분류 전체보기 (122) 썸네일형 리스트형 [엑셀 매크로/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.. [표] 주소록 초성으로 카테고리 만들기 "...... 주소록을 엑셀로 만들려고 하는데요 이름,주소,연락처 를 정리해서 만들려고했는데 혹시 이름 ㄱ,ㄴ,ㄷ,ㄹ,ㅁ... 으로해서 카테고리를 하나 만들어서 ㄱ을 클릭하면 ㄱ 이름 뜨고 ㄴ 을 클릭하면 ㄴ 이름 뜨게 하는 그런 카테고리 만드는 방법 쉽게 알수있을까요" https://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=352210995 [결과물] 1. 사실 엑셀 자체 기능만으로 "초성"을 추출할 방법은 없습니다. 초성을 입력해야 한다면, 1) 정렬을 한다. 2) ㄱ-ㅎ까지 14번 입력한다 (채우기 기능을 이용하면 30초내로 해결됨) 으로 입력하는 것이 좋습니다. 자음은 14개 뿐이므로 14번만 채우기를 하면 됩니다. - 매크로를 쓰면 .. [Don't] 당신의 엑셀이 계속 오류가 나는 이유 (1/3) [회사에서 흔히 엑셀로 일을하는 순서] 1. 고민해본다. 어떤 함수를 써야하지? 어떻게 만들어야 하지? 2. 구글에서, 네이버에서 이것 저것 찾아보고 적용해본다. 3. 매크로를 쓰면 된다는 이야기도 있어서, 어디서 코드를 가져와서 Alt + F11을 눌러서 코드를 붙여넣는다. 4. 그렇게 몇시간/며칠의 작업 끝에 만족스러운 결과물을 얻고, 행복하게 퇴근한다. 5. 자랑도 좀 해본다. 여러가지 함수도 넣고 로직도 고민해보았으니, 프로그래머까지는 아니더라도 데이터 전문가? 정도는 되지 않을까? (심지어 우리 회사에는 나보다 못하는 사람이 천지인데!) ...... 그렇게 1달 뒤, 똑같은 내용을, 새로운 데이터로 업데이트를 해야한다. 자신만만하게 데이터를 집어넣으면, 그 결과는? 온갖 오류천국이다! (#NAM.. [엑셀 매크로/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 ··· 21 22 23 24 25 다음
