VBA280 [기초방] VBA 100제 #52 [ 민원인 서식변경 ] 민원인 서식을 변경하는 문제이다. 줄바꿈인 chr(10) 과 Replace를 이해하느냐의 문제이다. 더보기 Option Explicit Sub 서식명변경하기() Dim rngAll As Range: Set rngAll = [c8:c13] With rngAll .Copy [g8] .Offset(, 4).Replace " (", Chr(10) & "(", xlPart '= 기초방 52 .Offset(, 4).Copy [k8] .Offset(, 4).Offset(, 4).Replace Chr(10) & "(", " (", xlPart '= 기초방 52-1 .EntireRow.AutoFit '= 자동 열높이 End With End Sub Sub 모두지우기() Dim rngAll As Range: Set rngA.. 2023. 7. 3. [기초방] VBA 100제 #51 [ 주소 나누기 ] 주소 나누기이다. 주소는 도시와 지역구로 되어있는데 주소중 대분류로 도시와 지역구로만 시트이름으로 분류하여 통합시트에서 분류하는 문제이다. 여기서 함정은 주소의 띄어쓰기가 한칸이상인 주소가 여러 있다는 것이다. 결국 이문제를 풀기위해선 worksheetFunction.Trim과 VBA Trim의 차이를 아냐 모르냐의 문제이다. transStr = WorksheetFunction.Trim(rngA) '= 다중 공백을 하나로 vTemp = Split(transStr, " ") '= 공백으로 Split juso = vTemp(0) & "_" & vTemp(1) '= 시트이름을 도시_지역구로 또한 이문제는 현재 시트의 이름이 기존에 있는지 없는지를 파악해야 하는데, 이를 위해선 토탈주소라는 것에 새롭게 만들어진.. 2023. 7. 2. [VBA] 사원증만들기(feat. QR코드생성) 출근기록기와 QR코드 사원증을 만들어 보았다. 우연치않게 부동산 분양 관련 일을 서포트하는 일을 맡게 되서 이것저것 만들어보고 있다. 까이껏~~~ 일단 핵심 코드는 QR의 생성이다. QR역시 차트의 일환이기 때문에 구글에서 차트api를 제공하고 있다. "https://chart.googleapis.com/chart?cht=qr&chs=300x300&chl=" 여기서 300은 QR의 사이즈를 뜻하고 [ chl= ] 다음에 QR에 삽입할 내용을 적으면 QR스캐너로 해당 QR을 스캔하면 우리가 삽입한 내용이 나오게 된다. 코드 진행은 크게 1. 모집인 ID로 QR코드를 생성후 2. 사원증 시트에서 해당 사원의 개인정보를 업데이트 한후 사원증에 하나씩 입혀준다 3. 만들어진 사원증을 해당 엑셀매크로가 있는 폴더.. 2023. 6. 28. [심화방] VBA_심화_100제 #19 [ 유튜브목록 가져오기] 이번에는 유튜브 댓글에 이어 유튜브 목록을 가져오는 코드를 진행해보려고 한다. 본인같은 경우 유튜브에서 강의를 볼 경우 한 사람의 강의를 끝까지 보는 스타일이다. 이유는 그래야 코드를 따라치면서 유튜브상의 쌤들의 스타일을 알게되어 코드를 이해하는데도 더 편하기 때문이다. 본인이 공부할때 엑사남님의 스타일을 배워가면서 점점 본인의 스타일을 완성하였기 때문에 이글을 읽는 분들도 한번 따라해보시길 바란다. https://www.youtube.com/@excelloveman-3399/videos 엑사남ExcelLoveMan- 안녕하세요. (구) 엑셀만두 만두강사에서 (신) 엑셀을사랑하는남자로 다시 돌아온 엑사남 입니다. 모두가 엑셀과 쉽게 친해질 수 있도록 쉽고 간단 명료한 강의를 만들겠습니다. 실습파일은 아 .. 2023. 6. 13. 이전 1 ··· 18 19 20 21 22 23 24 ··· 70 다음
