728x90

전체 글 197

EGTools-Excel Multi-Language

EGTools Excel Add-in 다국어 지원을 시작합니다. 현재는 기본 한글에 추가로 간단한 번역을 통해서 영어를 지원합니다. 적용 버전 : V4.1.6 적용 날짜 : 2024-03-15 Excel 옵션에서 언어 부분에 있는 Office 표시 언어에 첫번째 위치의 기본설정 언어를 기준으로 한국어인 경우에는 한글로, 이외의 언어는 영어로 표시합니다. 한글 영어 변경되는 사항은 아래와 같습니다. 1. 리본메뉴 : 메뉴 이름 및 풍선 도움말 2. UDF(신규호환함수 및 EGTools전용함수) : 함수마법사의 함수 설명, 인수에 대한 설명 3. 각종 팝업창 : 사용자 안내 메시지 한글윈도우에서 몇개의 Excel 버전으로 점검했습니다. 전체 언어가 제대로 표시되지 않을 경우 Excel을 닫고 다시 실행한 후..

EGTools Excel 2024.03.14

vWorld.kr의 Open API를 이용한 Geocoding

vWorld.kr에서 제공하는 Open API를 이용하여 주소를 지도 좌표로 변환합니다. 기본적으로 인증키를 발급 신청하여야 사용할 수 있습니다. 인증키는 3개월 사용가능하고, 3회 연장이 가능하므로 총 12개월 사용이 가능합니다. 만료되면 새로 신청하거나 여러 개 신청해서 쓰면 되겠죠?^^ 사용할 API는 검색API입니다. Geocoder API가 별도로 있는데, 검색API를 이용하는 이유는 정보가 좀 더 사용하기 편하기 때문입니다. 사용할 시나리오는 아래와 같이... 우리가 사용하는 주소가 2가지라 보편적으로 사용하는 도로명 주소를 먼저 조회하고, 검색 결과가 없으면 지번 주소로 추가 검색하여 결과를 파싱하여 필요한 정보를 뽑아 냅니다. ( x좌표, y좌표 , 우편번호, 도로명주소, 지번주소 등 ) ..

Excel - VBA 2024.02.12

GEODISTANCE 함수

【 함수 요약 】 지도 좌표로 거리를 개략적으로 측정 (좌표계 지정할 수 있고, 단위는 m) 이 함수는 EGTools 추가기능에서 지원하는 함수입니다. 【 적용 버전 】 Windows용 : 모든버전 【 함수 구문 】 = GEODISTANCE ( FromX , FromY , ToX , ToY, [ CRS ] , [ Method ] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 FromX 필수 없음 출발 지점의 경도 또는 x좌표 FromY 필수 없음 출발 지점의 위도 또는 y좌표 ToX 필수 없음 도착 지점의 경도 또는 x좌표 ToY 필수 없음 도착 지점의 위도 또는 y좌표 CRS 선택 0 사용하는 좌표계, 생략하면 GPS경위도 0 = EPSG:4326, WGS84, GPS 경위도 좌표계 1 = EPSG:..

GEOCONVERT 함수

【 함수 요약 】 지도 좌표를 다른 좌표계로 변환 이 함수는 EGTools 추가기능에서 지원하는 함수입니다. 【 적용 버전 】 Windows용 : 모든버전 【 함수 구문 】 = GEOCONVERT ( Src , Dst , x , y ) 【 함수 인수 】 인수명 옵션 기본값 설 명 Src 필수 없음 변환할 좌표계 0 = EPSG:4326, WGS84, GPS 경위도 좌표계 1 = EPSG:32652, UTM52N 2 = EPSG:5179, Korea 2000 / Unified CS, UTM-K, 네이버 지도 3 = EPSG:5181, Korea 2000/Central Belt, 타원체를 바꾼 중부원점, 다음지도 4 = EPSG:5186, Korea 2000/Central Belt 2010, 현재 중부원점 ..

GEOPOINT 함수

【 함수 요약 】 도로명 주소를 기준으로 해당 주소의 지도 좌표를 확인 이 함수는 EGTools 추가기능에서 지원하는 함수입니다. 【 적용 버전 】 Windows용 : Excel 2013~ (다음 개정시 확대 예정) 【 함수 구문 】 = GEOPOINT ( Address , [ EPGS ] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 Address 필수 없음 검색할 도로명 주소, 도로명 주소, 건물명 등을 사용할 수 있으며 검색 결과가 여러 개일 경우 목록을 나열함 EPSG 선택 4326 반환할 지도 좌표계의 EPSG코드 사용가능한 EPSG코드 4326=EGSG:4326, WGS경위도 (기본) 4019= EGSG:4019, GRS80경위도 3857= EGSG:3857, 구글경위도 5179= EGSG:..

[VBA] 지도 좌표계 변환 (WGS84, UTM52N, KATEC, UTM-K, 중부원점)

OPINET의 API를 이용하여 유가 정보를 조회하는 기능을 추가하던중 주유소의 좌표와 인근 주유소를 조회하는 API의 좌표가 KATEC이라고 하여 근 일주일 정도를 좌표계가 뭔지, 상호 변환은 어떻게 하는지 머리를 싸맸네요... 네이버나 카카오, SK 등에서 좌표 변환 API를 지원하기는 하는데, 사용자별로 Key를 신청해서 써야 하는지라 범용으로 사용하기 어려운 점이 있습니다. 여기저기 검색하다가 아래 페이지를 검색하여 좌표 변환 소스를 얻었습니다. https://www.androidpub.com/android_dev_info/1318647 https://javaexpert.tistory.com/142 하지만 VBA로 포팅을 해 봤는데, JAVA 관련 지식이 미천하여 시행착오를 일주일,,, 제가 사용..

Excel - VBA 2024.02.10

OILPRICE 함수

【 함수 요약 】 OPINET에서 제공하는 API를 이용하여 지역별 유종별 평균유가를 조회합니다. 전국, 광역시도, 시군구 단위로 유종별 평균 가격을 조회합니다. 이 함수는 EGTools 추가기능에서 지원하는 함수입니다. 【 적용 버전 】 Windows용 : 모든버전 【 함수 구문 】 = OILPRICE ( [ Area ] , [ Oil ] , [ Date ] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 Area 선택 "전국" 평균유가를 조회할 지역, 생략하면 "전국" 평균이 조회됨 지역은 광역시도 또는 광역시도와 그 직할 행정구역만 가능함 광역시도와 시군구는 반드시 공백(띄어쓰기)이 있어야 함 예) 서울시, 서울, 서울 중랑, 경기 수원 Oil 선택 0 검색할 유종, 생략하면 보통휘발유가 적용됨 0..

GASSTATION 함수

【 함수 요약 】 OPINET에서 제공하는 API를 이용하여 주변 유가를 검색하는 함수 도로명 주소를 사용하며 유종과 검색 반경을 지정할 수 있습니다. 이 함수는 EGTools 추가기능에서 지원하는 함수입니다. 【 적용 버전 】 Windows용 : Excel 2013~ (다음 개정시 확대 예정) 【 함수 구문 】 = GASSTATION ( Address , [ Oil ] , [ Radius ] , [ Sort ] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 Address 필수 없음 도로명 주소 주소지를 중심으로 근처 주유소의 가격을 검색 Oil 선택 0 검색할 유종, 생략하면 보통휘발유 적용 0=보통휘발유, 1=고급휘발유, 2=자동차경유, 3=자동차부탄, 4=실내등유 Radius 선택 2(km) 검색..

[Excel] Microsoft 365의 Icon 목록

Excel 2019에서 Icon을 삽입하게 추가된 이후로 Microsoft에서는 더 많은 Icon을 지원합니다. 구버전에서도 새롭게 지원하는 Icon을 사용할 수 있도록 전체 목록을 제공하고, 검색 및 삽입을 지원하여 사용 가능하도록 합니다. SVG 파일은 크기를 크게해도 모양이 그대로 유지되는 형식이므로 사용이 용이합니다. 총 3,200개의 Icon이 SVG 포멧으로 지원이 되며, 모두 다운로드 할 수 있습니다. 목록은 아래와 같이 되어 있습니다. name : 원본 이름 (이름에 _m이 있는 것은 wire frame 이미지입니다.) Category : 아이콘 삽입시 선택하는 Category이며, 여러 개가 설정된 것도 있습니다. 이름 : name을 적정하게 번역한 한글 이름입니다. 분류 : Catego..

Excel - Sample 2024.01.27

[VBA] 유효성 검사의 오류 > Dictionary에 Range개체 Key로 사용문제

아래 첨부 파일은 매크로 [실행] 버튼을 클릭하면 [I1] 셀에 유효성 검사 목록을 설정합니다. 실제로 정상적으로 작동은 되는데, 저장하고 다시 열면 아래와 같이 문서 복구가 진행이 됩니다. 사용된 코드는 매우 간단해서 아래와 같습니다. Sub test() Dim strText As String Dim int1 As Integer With CreateObject("Scripting.Dictionary") For int1 = 2 To 21 If Not .Exists(Cells(int1, 2)) Then .Add Cells(int1, 2), "" Next int1 strText = Join(.keys, ",") End With With Range("I1").Validation .Delete .Add xlVa..

Excel - Sample 2024.01.25
728x90