5. VBA,매크로 (16) 썸네일형 리스트형 [엑셀 매크로/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 =============================.. [엑셀 매크로/VBA] 모든 워크시트에 같은 암호 적용하기 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 모든 워크시트에 같은 암호를 걸어줍니다. - 시트가 너무 많다면, 아래 매크로로 암호를 설정해보세요. - 확실한 설정을 위해, 암호를 2번 입력하도록 되어있습니다. =========아래를 붙여넣기 하세요========== Sub Protect_worksheet() PWD = InputBox("암호를 입력하세요.") PWD2 = InputBox("암호를 다시 입력하세요.") If PWD = PWD2 Then For Each WS In ThisWorkbook.Worksheets WS.Protect Password:=PWD Next Else MsgBox ("암호가 일치하지 않습니다.") Exit Sub End If MsgBox ("모든 shee.. [엑셀 매크로/VBA] 셀 테두리를 따라서 셀 병합하기 엑셀로 해결할 수 없는 기능은 VBA/매크로를 쓰시는게 맞습니다. - 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 한 줄에 대해, 빈 칸을 세로로 전부 병합해서 보여줍니다. - 테두리로 되어있는 셀을 병합해서 보여주고 싶다면 활용하세요. - 단, 세로로만 작동합니다 (위/아래 테두리만 보고 병합합니다). *(주의) 매크로로 바뀌는 내용은 "되돌리기 (Ctrl + Z)"로 복구되지 않습니다. 꼭! 사본으로 진행하세요. =========아래를 붙여넣기 하세요========== Sub Filldown_Upper_Lower_Border() '서로 다른 column에 대해 동일한 데이터를 입력하는 경우가 있지는 않을 것으로 가정합니다. 'Column 단위로 위아래만 조사 Set StRng =.. [엑셀 매크로/VBA] 빈 칸이 끝날때까지 셀 병합하기 엑셀로 해결할 수 없는 기능은 VBA/매크로를 쓰시는게 맞습니다. - 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 한 줄에 대해, 빈 칸을 세로로 전부 병합해서 보여줍니다. - 셀을 병합해서 보여주고 싶다면 활용하세요. *(주의) 매크로로 바뀌는 내용은 "되돌리기 (Ctrl + Z)"로 복구되지 않습니다. 꼭! 사본으로 진행하세요. =========아래를 붙여넣기 하세요========== Sub Mergedown() Set StRng = Application.InputBox("범위", "어디서부터 시작할까요? (가장 첫번째 셀을 골라주세요)", Selection.Address, Type:=8) Set EdRng = StRng EndNote = StRng.CurrentRegion.Ro.. 이전 1 2 3 4 다음
