엑셀 (115) 썸네일형 리스트형 [엑셀 매크로/VBA] Unpivot, 크로스탭 데이터를 리스트/목록으로 바꿔주기 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 세로 열로 구성된 데이터를 행으로 내리는 매크로입니다. (제가 가장 자주 쓰고, 가장 필요로 하는 unpivot 매크로입니다.) - 엑셀 2016부터는 파워쿼리라는 기능을 이용하면서부터, 매크로 없이도 구현이 가능하게 되었습니다만, - 파워쿼리 자체에 대한 설치/활용에 대한 거부감이 있는 분들에게는 아직 매크로가 더 나은 대안이 될 수있죠. - 필요할때만 한번, 열어서 활용하시면 좋습니다. =========아래를 붙여넣기 하세요========== Sub Unpivoting() On Error Resume Next Selection.CurrentRegion.Select Set TotRng = Application.InputBox("범위 선택.. [정보] 엑셀 관련된 주요 해외 커뮤니티 엑셀은 전세계적으로 쓰이는 프로그램인 만큼, 해외 커뮤니티가 매우 크게 발달되어 있습니다. 아무래도 전세계인의 지식이 모이는 곳일 수록, 더 양질의 정보가 나오겠죠. 제가 자주 가고, 이용하는 사이트들 4군데만 모아보았습니다. - 저도 잘 모르겠는 내용은, 아래 커뮤니티를 자주 참고합니다. - 커뮤니티에서 궁금한 내용이 있다면 댓글로 언제든 달아주세요. 지금에 맞게 변형해서 올려드립니다. 이름 설명 주소 TRUMPexcel 블로그 형태로 엑셀과 관련된 내용들을 잘 요약해준 곳. 메일링 리스트를 등록하면 괜찮은 정보를 종종 제공해주는 곳. https://trumpexcel.com/blog/ KUTOOLS 사람들이 엑셀에 대해 자주 질문하는 내용을, 1) 엑셀 기능만으로 2) VBA/매크로를 사용한 솔루션 .. [엑셀 매크로/VBA] 모든 링크 하이퍼링크로 바꿔주기 엑셀로 해결할 수 없는 기능은 VBA/매크로를 쓰시는게 맞습니다. - 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 링크가 없는 주소들을 모두 하이퍼링크로 바꿔줍니다. - 주소가 텍스트로만 되어있다면, 하이퍼링크로 바꿔줍니다. - 몇개 없다면, VBA쓰지 마시고 [F2 + Enter]로 하세요! =========아래를 붙여넣기 하세요========== Sub Hyperlinks_add() Dim WorkRng, i As Range On Error Resume Next Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("선택 범위", "주소 범위를 선택해주세요.", WorkRng.Address, Type:=8).. [엑셀 매크로/VBA] 모든 하이퍼 링크, 외부 링크 한번에 열기 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 여러개의 하이퍼링크를 일일이 클릭할 필요없이 한번에 열어줍니다. =========아래를 붙여넣기 하세요========== Sub OpenHyperLinks() Dim xHyperlink As Hyperlink Dim WorkRng As Range On Error Resume Next Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("범위 선택", "링크들을 선택해주세요.", WorkRng.Address, Type:=8) For Each xHyperlink In WorkRng.Hyperlinks xHyperlink.Follow Next End Sub =======.. [엑셀 매크로/VBA] 모든 탭의 이름을 리스트로 뽑기 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 탭의 이름을 모두 리스트로 뽑아주는 매크로입니다. - 탭 이름을 정리해서 목차를 만들거나, - 탭 이름을 통해서 함수를 응용하시는 경우 참고하세요. =========아래를 붙여넣기 하세요========== Sub Listing_EntireWS() Dim Opt_cell As Range i = 0 Set Opt_cell = Application.InputBox(prompt:="리스트를 어디에 출력할까요?.", Type:=8) For Each WS In ActiveWorkbook.Worksheets Opt_cell.Offset(i) = WS.Name i = i + 1 Next End Sub =============================.. 이전 1 ··· 17 18 19 20 21 22 23 다음
