컴퓨터를 만나는 기쁨

https://lsw3210.tistory.com/567에서 읍면동명을 포함하는 법정동명을 구했는데,이번 글에서는 유효성 검사를 이용해 목록을 만드는 것부터 해보겠습니다. 나. 데이터 유효성 검사D1셀을 클릭하고 데이터 탭에서 데이터 도구 그룹의 데이터 유효성 검사 윗부분을 누릅니다. 그리고, 제한 대상으로 목록을 선택하고, C2:C30을 마우스로 끌어서 원본을  선택하고 확인 버튼을 누릅니다. 그러면 D2셀 오른쪽에 콤보 상자 버튼이 생깁니다. 콤보 상자 버튼을 누르면 C열의 법정동명이 표시되므로 원하는 동을 클릭해서 선택하면 됩니다. 맨 아래 회색 부분은 공백 때문에 그런 것입니다. 다. 법정동코드 구하기이제 선택된 법정동명에 대한 법정동코드를 구해보겠습니다. C2셀에 사용했던 수식과 비슷한데, in..

3. 특지 구분 연결하기특지 구분 등을 구하는 사용자 정의 함수는 아래 글을 참고 바랍니다.https://lsw3210.tistory.com/564 이번에는 사용자 정의 함수가 아니라 매크로로 특지 구분을 구하겠습니다.그러나 구문은 사용자 정의 함수나 같은데,사용자 정의 함수는 특지구분이란 변수로 값을 반환해야 하는데 반해서매크로는 직접 처리하고 값을 반환할 필요가 없고, 사용자 정의 함수의 경우는 인수(아래 코드에서 '범위')를 직접 대입할 수 있는데 반해서,매크로의 경우는 인수를 대입할 수도 있지만 본 예제의 경우는 반복 구문이기 때문에 인수를 직접 입력할 수 없다는 점입니다.Function 특지구분(범위 As Range) '범위(주소)에서 특지구분을 추출한다. Dim 마지막공백 A..

법정동을 구하는 것은 아래 글을 참고 바랍니다.https://lsw3210.tistory.com/563 5. 특지 구분 구하기특지는 법정동 다음에 '산'이 있는지 여부로 판단하면 되므로법정동 함수를 참고해서 만들면 됩니다. 코드는 아래와 같습니다.Function 특지구분(범위 As Range) '범위(주소)에서 특지구분을 추출한다. Dim 마지막공백 As Integer Dim 지번 As String 마지막공백 = InStrRev(범위, " ") If Mid(범위, 마지막공백 - 1, 1) = "산" Then 마지막공백 = InStrRev(범위, " ", 마지막공백 - 1) End If 지번 = Mid(범위, 마지막공백 + 1)..

1. 수식 이용 하기아래 글에서 수식을 이용해 주소에서 법정동을 분리해내고,https://lsw3210.tistory.com/519 주소를 PNU로 만들기(1-3) : 주소를 법정동명과 지번으로 분리하기4. 주소를 법정동과 지번으로 분리하기 가. 주소의 형태  아래와 같이 시도, 시군구, 읍면동, 리로 구성된 주소가 있을 때법정동과 지번을 구분해야 하는데한 칸 공백의 개수가 3개인 경우도 있lsw3210.tistory.com 지번에서 특지구분과 본번, 부번을 분리했는데https://lsw3210.tistory.com/521 주소를 PNU로 만들기(1-5) : 필지구분과 본번,부번 변환하기산인 경우 하이픈이 있는 경우가 없어서,A8셀의 주소를 경기도 가평군 북면 화악리 산 339에서 경기도 가평군 북면 적..

1. PNU 코드의 의미PNU코드는 주민등록번호와 유사하게 땅에 부여되는 고유번호입니다. PNU코드는 19자리로 구성되어 있는데,앞 10자리는 시도, 시군구, 읍면동, 리에 해당하는 코드로 아래에서 구할 법정동 코드에 해당하며,11번째 자릿수는 산 지번이면 2, 아니면(일반이면) 1이 부여됩니다. 참고로 산지번은 임야대장, 일반 지번은 토지대장에 등재됩니다.   본번과 부번은 본번만 있거나 본번의 자릿수가 한 자리일 수도 있고, 부번도 한자리일 수도 있는데, 둘 다 없거나 자릿수와 관계없이 네 자리 숫자로 통일됩니다. 2. PNU 코드를 만드는 순서주소를 PNU 코드로 만들기 위해서는 ① 주소에 해당하는 법정동 코드 테이블이 필요하며,② 주소에서 법정동과 산 또는 일반 구분 그리고 본번과 부번을 분리한 ..

3. 특지 구분에 일반이 있는 경우위 수식에서 특지 구분이 null인 조건을 특지구분이 "일반"인 경우로 수정하고,부번이 null이 아닌 조건도 부번이 0이 아닌 경우로 수정해야 합니다. 가. 작업 순서Sheet1의 오른쪽 범위에 커서를 놓은 다음데이터 탭의 테이블/범위에서를 누르고, 확인 버튼을 누릅니다. 쿼리가 '표3'이란 이름으로 생성되었습니다. 마찬가지로 열 추가 > 사용자 지정 열을 클릭한 다음 수식을 작성합니다. 아래 수식을 복사한 후 if ([부번] null) then if [특지구분]=null then [소재지] & " " & Number.ToText([본번]) & "-" & Number.ToText([부번]) else [소재지] & [특지구분] & N..

1. 문제 소재지와 특지구분, 본번, 부번이 나뉘어 있을 경우에 이를 합치는 것을 해보겠습니다.  두 가지 경우가 있습니다. 첫 번째는 특지구분에 산과 빈칸이 있고, 부번이 숫자와 빈칸인 경우이고, 두 번째는 특지구분에 산과 일반이 있고, 부번이 0과 양수로 구성된 경우입니다. 2. 지번 표기 방법(공간정보관리법 참고)공간정보의 구축 및 관리 등에 관한 법률 제2조(정의) (생략) 20. “토지의 표시”란 지적공부에 토지의 소재ㆍ지번(地番)ㆍ지목(地目)ㆍ면적ㆍ경계 또는 좌표를 등록한 것을 말한다.공간정보의 구축 및 관리 등에 관한 법률 시행령제56조(지번의 구성 및 부여방법 등) ① 지번(地番)은 아라비아숫자로 표기하되, 임야대장 및 임야도에 등록하는 토지의 지번은 숫자 앞에 “산”자를 붙인다.    ②..

아래 사용자 정의함수를 추가기능에 등록하고 사용하기만 하면 됩니다. 그런데 이전에 위 추가기능 파일을 등록하신 분이라면 먼저 해당 폴더의 파일을 삭제하고 추가 기능의 체크를 해제한 다음 엑셀을 닫고 열어서 다시 등록을 해야 합니다. 추가기능 파일 제거가 잘 안되면 계속 등록하라는 메시지가 나와 등록을 해도 Visual Basic을 보면 등록이 안되어 있습니다. 그래도 잘 안되면, 아래와 같이 개발도구 - 매크로 보안 - 신뢰할 수 있는 위치에 Addins 폴더를 등록하시기 바랍니다. 종전 사용자 정의함수는 지번이 하이픈(-)으로 연결된 경우만을 기준으로 작성되어 있었는데, 지번이 대시(ㅡ)로 연결된 경우도 적용되도록 하이픈위치란 변수의 정의를 변경했습니다. (종전) (변경) 하이픈위치 = InStr(1,..