본문 바로가기
반응형

Find31

TextBefore와 TextAfter 함수를 이용해 주소를 법정동과 지번으로 분리하기 TextBefore와 TextAfter함수는 Microsoft 365 버전에서만 사용가능하기 때문에 사용에 제약이 있지만 쉽게 주소에서 법정동과 지번을 분리해 낼 수 있으므로 알아보겠습니다. 1. 구문 TextBefore함수의 구문은 =TEXTBEFORE(text,delimiter,[instance_num], [match_mode], [match_end], [if_not_found])로서 text는 범위로 지정하면 되며 delimiter는 구분자로 문자열을 나눌 구분 기호 또는 문자열이 됩니다. 예를 들어 쉼표(,) 또는 한 칸 공백(" ")이 될 수 있습니다. [instance_num]은 몇 번째인지를 지정하는 것으로 음수도 가능하면 음수인 경우는 뒤에서부터 가져옵니다. 2. 적용 가. '산'이 있는지.. 2024. 6. 18.
주소를 PNU로 만들기(1-5) : 필지구분과 본번,부번 변환하기 산인 경우 하이픈이 있는 경우가 없어서,A8셀의 주소를 경기도 가평군 북면 화악리 산 339에서 경기도 가평군 북면 적목리 산 1-1로 수정했습니다.   6. 필지구분(산과 일반) 구하기일반이면 1이고, 산이면 2이므로 간단한데,지번 데이터를 기준으로 생각하면 '산'이 있으면 2, 없으면 1이 됩니다. 따라서, 수식은=if(left(c2,1)="산",2,1)이 됩니다. F2셀의 채우기 핸들을 더블 클릭하면 '산'인 경우 2로 잘 표시됩니다. 7. 본번과 부번을 4자리로 변경하기가. 본번을 네 자리로 만들기본번과 부번을 모두 4자리로 표시해야 합니다.따라서, 앞에 '0"을 3개 붙인 후 뒤에서 4개를 가져와야 합니다. 그리고, 문제는 '산'이 있느냐 없느냐에 따라 다르고, 하이픈이 있느냐 없느냐에 따라 달.. 2024. 6. 17.
주소를 PNU로 만들기(1-3) : 주소를 법정동명과 지번으로 분리하기 4. 주소를 법정동과 지번으로 분리하기 가. 주소의 형태  아래와 같이 시도, 시군구, 읍면동, 리로 구성된 주소가 있을 때법정동과 지번을 구분해야 하는데한 칸 공백의 개수가 3개인 경우도 있고, 4개, 5개인 경우도 있습니다. 나. 주소를 법정동과 지번으로 나누는 논리필지 구분이 '산'인지, '일반'인지에 따라 주소 나누는 것을 달리해야 합니다.그런데, '산'도 한 글자인 경우도 있고, '산청군'과 같이 한글자 이상에 포함된 경우도 있어서 복잡해집니다. 그렇다면 공백의 개수를 구한 다음 (총 공백의 개수-1)의 위치에 '산'이 있는지 여부를 먼저 알아내고만약 '산'이라면 그 위치부터 맨 끝까지가 지번이 되고,'산'이 아니라면 '총 공백의 개수' 위치 다음부터가 지번이 됩니다. 그리고, 법정동은 지번이 .. 2024. 6. 13.
원하는 단어가 포함될 경우 행에 색칠하기 1. 문제 D열 주소에  Sheet2의 단어가 포함되어 있으면 그 행 전체에 색칠을 하려고 합니다. 2. 실패Sheet2의 단어가 주소에 포함되어 있을 경우이므로 CountIf를 생각할 수 있습니다. 먼저 A열에서 O열까지 선택하고,홈 > 조건부 서식 - 새 규칙을 누른 후 '수식을 사용하여 서식을 지정할 셀 결정'을 클릭한 후 수식 입력란에 =COUNTIF(Sheet2!$A$1:$A$36,$d1)>0 이라고 입력하고, 아래쪽의 서식 버튼을 누른 다음, 채우기 탭을 누르고, 원하는 색을 선택한 다음 확인 버튼을 누릅니다. 그러면 원하는 색이 미리 보기에 표시되는데, 확인 버튼을 누릅니다. 그리고, 주소에 '대상빌딩'이라고 입력하면 A열부터 O열까지 초록색이 칠해지는데 '대상빌딩주식회사'라고 입력하면 완전.. 2024. 5. 27.
문자열 중 원문자 지우기(2) - Unichar, Find, Min, Left 이번에는 Find 함수를 이용해 보겠습니다.  1. Find 함수의 구문FIND(find_text, within_text, [start_num])입니다. 다른 함수의 경우와는 다르게찾을 문자열이 먼저 나오고, 찾을 대상 주소가 두 번째로 나옵니다. 2. 첫 번째 원문자의 위치 찾기가. 마지막 글자가 원문자 1인 경우 찾기역시 B3을 대상으로 먼저 해보겠습니다.원문자 1은 Unicode가 9312입니다.그리고, 문자열을 하나씩 분리해야 하므로 Mid 함수를 사용합니다.그런데, 길이를 알아도 1부터 길이까지 연속으로 글자가 생성돼야 하는데,Sequence 함수를 사용할 수 없다면 아래와 같이 배열을 이용해서 {1,2,3,4,5,6,7,8,9,10}라고 최대 10글자라고 생각하고 배열을 만들었습니다.그러면, .. 2024. 5. 10.
표 간 서식 복사하기 1. 문제 아래와 같이 표 2개가 있고, 위의 서식이 변하면 아래에 서식이 자동으로 복사되도록 하려고 합니다. 2. 해법 1(실패) 일단 생각할 수 있는 것이 Worksheet_Change 메서드입니다. Sheet1을 클릭한 다음 오른쪽 코드 창에서 Worksheet 객체를 선택한 다음 오른쪽에서 Change 메서드를 클릭합니다. 그러면 아래와 같이 Worksheet_Change 서브 프러시저가 생성됩니다. "일정한 범위 내 값이 바뀐다면"이라는 조건문은 아래와 같이 정형화되어 있습니다. Private Sub Worksheet_Change(ByVal Target As Range) Dim keyCells As Range Set keyCells = Range("c5:d8") If Not Application.. 2024. 5. 3.
반응형