5. VBA,매크로 (16) 썸네일형 리스트형 [엑셀 매크로/VBA] 이름을 모두 삭제 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 지금 엑셀시트에 있는 쓸데없는 이름을 모두 제거해줍니다. - 이름은 잘 설정해야 오류가 나지 않습니다. - 외부에서 참조하게끔 설정된 이름들은 하나같이 아래와 같은 오류를 만들게 됩니다. =========아래를 붙여넣기 하세요========== Sub DeleteNames() Dim n As Name Dim lngCount As Long On Error Resume Next lngCount = ActiveWorkbook.Names.Count For Each n In ActiveWorkbook.Names n.Visible = True n.Delete Next n MsgBox "총 " & lngCount & "개의 [이름] 중, " & lng.. [엑셀 매크로/VBA] 매크로 코드를 실행하는 법 모든 매크로를 실행하실 때는, 아래의 방법을 따라하시면 됩니다. 1. ALT + F11 을 눌러서, Microsoft Visual Basic for Applications를 열어주세요. 2. 삽입 > 모듈을 눌러서 새 모듈을 삽입하고, 오른쪽 창에 원하는 코드를 붙여넣으세요. 3. 코드를 넣으셨다면, F5 키를 눌러서 코드를 실행하면 됩니다. 이후는 코드에서 지시하는대로 명령을 수행하시면 됩니다. 4. (주의) 매크로로 바뀌는 내용은 "되돌리기 (Ctrl + Z)"로 복구되지 않습니다. 꼭! 사본으로 진행하세요. 5. (참고) 매크로를 실행하고 나서, 문서를 저장하려고 하면 아래 메세지가 뜹니다. 매크로를 문서에 포함시킬게 아니라면, 무시하시고 "예"를 누르시면 됩니다 :) [엑셀 매크로/VBA] 모든 메모의 사이즈를 잘 보이게끔 조정 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 지금 워크시트에 적혀있는 모든 메모를, 적절한 위치와 크기로 변환해줍니다. - 너무 멀리 떨어져 있거나, 크기가 너무 작아서 안보이는 메모들을 편하게 한번에 바꿔줍니다. =========아래를 붙여넣기 하세요========== Sub Reset_Autosize_Comments() Dim cmt As Comment '1 pixel = 0.75 points (for comment) '64 pixels = 8.43 characters, but column width/characters cannot be specified by arithmetic operations 'Empty cell selection Set Empty_cell = Applic.. [엑셀 매크로/VBA] 스타일을 모두 삭제 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 지금 엑셀시트에 있는 쓸데없는 스타일을 모두 제거해줍니다. - 과도한 스타일은 느려지는 성능 및 잦은 오류의 원인이 됩니다. =========아래를 붙여넣기 하세요========== Sub StyleKiller() Dim N As Long, i As Long With ActiveWorkbook N = .Styles.Count For i = N To 1 Step -1 If Not .Styles(i).BuiltIn Then .Styles(i).Delete Next i End With MsgBox "스타일 초기화 완료." End Sub =============================== https://mwoe.tistory.com/71 [.. [엑셀 매크로/VBA] 빈 칸이 끝날때까지 세로로 채워넣기 매크로를 쓰는 자세한 방법은 문서 맨 아래 링크를 참고하세요 :) 병합되었던 셀을 해제하면서 생긴 빈 칸을 모두 첫 줄 데이터로 채워서 넣어주는 매크로입니다. - 손으로 하려면 너무 귀찮아요... *(주의) 매크로로 바뀌는 내용은 "되돌리기 (Ctrl + Z)"로 복구되지 않습니다. 꼭! 사본으로 진행하세요. =========아래를 붙여넣기 하세요========== Sub Filldown() Set StRng = Application.InputBox("범위", "어디서부터 시작할까요? (가장 첫번째 셀을 골라주세요)", Selection.Address, Type:=8) Set EdRng = StRng EndNote = StRng.CurrentRegion.Rows.Count EndNote_C = StRng.. 이전 1 2 3 4 다음
