분류 전체보기369 [기초방] 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. Image Zoom Effect On Hover CSS https://www.youtube.com/watch?v=1rZhnou0lEE&ab_channel=CodingArtist 마우스 호버 상태에서 이미지가 확대되는 재밌는 녀석이다. 최근에 프로젝트를 진행함에 있어 잠시 놓았던 Css를 다시 만지니 역시 재미지다. 이미지는 영상의 이미지와는 다른데, 전 시간에 언급했듯, https://www.somanet.xyz/2017/06/blog-post_21.html 구글 드라이브를 외부 이미지 링크 저장소로 사용하기 Update 2020/6/19: 최근 구글 드라이브의 공유주소가 약간 변경되었나 봅니다. 몇몇분이 댓글로 알려주셔서 새롭게 바뀐 Prefix로 변환하도록 수정하였습니다. 다들 관심가져주셔서 감사합니다. ... www.somanet.xyz 구글 드라이브에.. 2023. 6. 30. [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. 이전 1 ··· 26 27 28 29 30 31 32 ··· 93 다음
