본문 바로가기
반응형

Dim11

주소를 PNU로 변환하기(1) - VBA 1. 법정동 코드 가져오기 PNU 코드는 법정동 10자리 + 특지 구분 1자리 + 본번 4자리 + 부번 4자리 = 19자리로 되어 있습니다. 법정동 코드는 https://www.code.go.kr/ 사이트에서코드 검색을 누르고, 코드명에 '법정동'이라고 입력하고 검색을 하면텍스트 파일로 받을 수 있으면 이것을 엑셀 파일로 바꾸면 됩니다.자세한 것은 https://lsw3210.tistory.com/517 을 참고 바랍니다. 텍스트 파일을 연 후 Ctrl + A키를 눌러 전체를 선택한 후 복사해서 시트2에 붙여 넣고 시트명을 '법정동코드'로 바꾸면 아래와 같습니다.  2. 법정동에 대한 법정동 코드 검색하기 매크로로 만들기 위해 개발도구 - Visual Basic을 누른 후코드 창에 Sub pnu라고 입력.. 2024. 8. 16.
소재지, 특지구분, 본번, 부번 합치기(2) - VBA 1. 문제 소재지와 특지구분, 본번, 부번이 나뉘어져 있을 경우에 이를 합치는 것을 VBA로 해결해보겠습니다.  두 가지 경우가 있는데, 첫번째는 특지구분에 산과 빈칸이 있고, 부번이 숫자와 빈칸인 경우이고, 두번째는 특지구분에 산과 일반이 있고, 부번이 0과 양수로 구성된 경우입니다. 2. 특지 구분에 일반이 없는 경우 개발도구 - Visual Basic을 눌러 VBA 편집기를 엽니다.만약 개발도구 탭이 안보인다면 파일 - 옵션 - 리본 사용자 지정에서 개발 도구 왼쪽의 체크 박스에 체크하면 됩니다. 왼쪽 위 프로젝트 창에서 '지번주소 결합 완성(2).xlsx)를 선택하고,  삽입 - 모듈을 눌러 모듈을 추가합니다.엑셀 파일 아래에 모듈과 Module1이 추가되고, 오른쪽에는 빈 코드 창이 열립니다. .. 2024. 5. 23.
VBA로 ColorIndex에 대한 색 표시하기 VBA는 Visual Basic for Application의 약자로, 엑셀, 워드, 파워포인트 등 응용프로그램을 위한 비주얼 베이직이란 의미로, 비주얼 베이직을 이용해서 응용프로그램을 쉽고, 빠르게 사용하는 것입니다. 개발 도구 탭에서 Visual Basic을 누르고, 비주얼 베이직 에디터에서 삽입 - 모듈을 눌러 Module1을 삽입을 누르면 아래와 같이 왼쪽 통합 문서에 Module1이 추가되고, 오른쪽에는 빈 코드 창이 열립니다. 이때 코드 창에 아래 코드를 복사해서 붙여 넣고, Sub 색표시() Dim i As Integer For i = 1 To 128 Range("a" & i) = i Range("b" & i).Interior.ColorIndex = i Next End Sub F5키 또는 세.. 2024. 4. 12.
한글이 아닌 엑셀로 하는 메일 머지(2) 다. 연결키를 가져오는 매크로 작성(1) 매크로 작성 명단 시트에 만들어둔 연결키 중 B열의 번호를 하나씩 고지서 시트의 L6셀에 넘겨주면 됩니다. 코드를 작성하기 위해 개발 도구 - Visual Basic을 클릭합니다. 만약 개발 도구 탭이 보이지 않는다면 파일 - 옵션 - 리본 사용자 지정에서 개발 도구 탭에 체크하고 확인 버튼을 눌러야 합니다. => https://lsw3210.tistory.com/142#google_vignette 그리고, 삽입 - 모듈을 클릭해서 Module1을 만든 다음 오른쪽 에디터 창에 아래 내용을 복사해서 붙여 넣습니다.Sub 고지서개별인쇄() Dim sht1 As Worksheet, sht2 As Worksheet Dim i As Integer, endRow As In.. 2024. 3. 28.
좌표를 이용해 엑셀에 도면 위치 표시하기(2) 3. 여러 개의 좌표를 도면에 일괄 표시하기 이번에는 엑셀에 아래와 같이 가상의 좌표를 표시하고, (참고 사항) - 도면의 위치는 1000단위로 간격을 두었으며, 숫자는 #, 표시형식을 사용해서 천단위 위만 표시되도록 했습니다. 예를 들어 첫번째 N의 좌표는 723,000입니다. - 도면의 좌표는 왼쪽에서 오른쪽, 위쪽에서 아래로 내림차순으로 표시되어 있습니다. 그 안에 아래의 좌표에 해당하는 도면의 위치를 표시해보겠습니다. 가. 작성 방법 ① 왼쪽과, 위쪽, 너비와 높이가 필요한데, 좌표가 정확히 구간과 일치하는 것이 아니므로 좌표보다 큰 값의 위치에 표시하도록 하겠습니다. ② 도면 색은 ColorScheme를 사용하는데, 1은 흰색이므로 제외하고 일련번호를 이용해 표시하겠습니다. 나. 코드 Dim i.. 2023. 11. 15.
좌표를 이용해 엑셀에 도면 위치 표시하기(1) 위와 같이 도면별 위, 경도(통상적인 위, 경도와 다르지만 그렇게 표시합니다)가 있을 때 도면에 표시하는 방법을 알아보고자 합니다. 1. 셀의 위치 알아내기 먼저 위치와 관련한 셀의 속성을 알아야 합니다. 셀은 왼쪽 위를 기준으로 열 너비와 행 높이를 가지고 있습니다. 가. 셀의 왼쪽, 위 구하기 ① 셀의 왼쪽 위치 구하기 개발도구 - Visual Basic을 실행하고, 삽입 - 모듈 메뉴를 누르면 모듈과 Module1이 추가됩니다. 오른쪽 편집기 창에 sub cellinfo라고 입력하고 엔터 키를 누릅니다. 그리고, 왼쪽 위치는 셀 주소를 쓴 후 .left라고 하면 됩니다. 다시 말해 range("a1").left 인데 화면에서 확인해야 하므로 debug.print를 앞에 추가하면 됩니다. debug... 2023. 11. 13.
반응형

티스토리툴바