EGTools

【 함수 요약 】텍스트 일부가 정규 표현식과 일치하는지 여부입니다.이 함수는 EGTools 추가기능에서 지원하는 함수입니다.이전 Google Sheet 호환함수인 RegExMatch 함수를 Microsoft 365 신규 함수에 맞춰 이름과 용법을 변경함(v4.2.5)원본함수 설명  :  https://support.microsoft.com/ko-kr/office/regextest-function-7d38200b-5e5c-4196-b4e6-9bff73afbd31원본 함수와 차이점 :정규식을 구현하는 규칙이 달라서 일부 패턴이 호환되지 않을 수 있습니다. 【 적용 버전 】Windows용 : 모든버전 【 함수 구문 】= REGEXTEST (  Text ,  pattern ,  [ case_sensitivity..

【 함수 요약 】Excel의 기본 TRIM 함수와는 조금 다르게, 양쪽 끝의 공백만 제거합니다. 이 함수는 EGTools 추가기능에서 지원하는 함수입니다.【 적용 버전 】Windows용 : 모든버전 【 함수 구문 】= TRIMENDS (  Text ,  [Opt]  ) 【 함수 인수 】인수명옵션기본값설    명Text필수없음양쪽 공백을 제거할 문자열Opt선택0제거할 공백 제거 옵션0(기본)=띄어쓰기만, 1=ASCII 32 이하의 인쇄할 수 없는 문자2= (ASCII 160,  Non-breaking space)4=UniCode중 Space류 (U+2000~06, U+2007~0A, U+2028, U+205F, U+3000)상기 각 옵션을 더하여 혼합사용 가능 【 함수 상세 설명 】기본 Trim ..

VBA로 프로그램 진행하고, 버전마다 소스 백업을 할 경우에일일이 모듈별로 내보내기 작업을 했었는데,모듈수가 많아지다보니 귀찮아져서,,,이것도 자동으로 하는 매크로를 만들어 봅니다. 모듈을 자동화할 때에는 아래 리소스를 참조에 추가해야 합니다.Microsoft Visual Basic for Application Extensibility 5.3 물론, 개발이 끝나면 Late Bind로 처리하고 참조에서 제외하여 사용성을 고려합니다. 소스코드가 저장되는 위치는 이 매크로가 실행되는 파일이 있는 폴더 하위에"Source"  폴더를 만들고, 그 아래 버전별로 폴더를 만들어 Module, Class, WorkSheet 들을 보관합니다. Public Const ThisVersion As String = "4.2.4..

CSV파일로 자료를 다운받은 경우Excel의 행 번호를 넘어가서 Excel에서 자료를 로딩하기 어려울 때파일을 열어 볼 수 있도록 적정 크기로 분할할 수 있습니다. Sub SplitCSVFile() Dim FSO As Object, oFile As Object Dim sPath As String, sFullName As String, sFileName As String, sLine As String, sExt As String Dim iR As Currency, iMax As Variant, iC As Long sFullName = Application.GetOpenFilename(Title:="File을 선택하세요.", FileFilter:="Text Files (*.csv..

【 함수 요약 】국세청의 API를 이용하여 사업자등록번호의 현재 상태를 조회합니다.(Business Registration Number, Tax ID) 이 함수는 EGTools 추가기능에서 지원하는 함수입니다.【 적용 버전 】Windows용 : 모든버전 【 함수 구문 】= BRNSTATUS (  BizRegNum  ) 【 함수 인수 】인수명옵션기본값설    명BizRegNum필수없음사업자등록번호 0000000000 형식의 10자리 숫자 또는 000-00-00000 형식의 12자리 문자열 【 함수 상세 설명 】국세청의 API를 이용하여 사업자 등록번호의 현재 영업 상태를 조회합니다. 【 함수 오류 설명 】BizRegNum에 숫자와 "-"를 제외한 문자가 있을 경우 #VALUE 오류API 조회중 문제가 발생..

SeleniumBasic을 사용하여 Chrome제어를 할 때가 많은데,Chrome이 버전업이 되면 ChromeDriver도 다시 새 버전을 설치해 줘야 합니다.이게 귀찮아 지게 되면,,,, 우선 현재 Selenium이 설치된 폴더를 확인해 봅니다.마땅한 Registry를 찾지 못해서 대충 CLSID에 있는 걸 써 봅니다.Private Function getSeleniumPath() Dim sPath As String sPath = CreateObject("WScript.Shell").RegRead("HKEY_CLASSES_ROOT\CLSID\{0277FC34-FD1B-4616-BB19-5D556733E8C9}\InprocServer32\CodeBase") getSeleniumPath = ..

JSON을 배열로 변경하는 JSONPair함수와 JSONtoArray 함수에 이어서,,, 변경된 배열에서 이름 경로를 지정하여 값이나 목록을 검색하는 함수입니다. JSONParser로 이름을 하고 싶으나,,, VBA로 저장은 되지만 Excel에서 사용할 수 없었습니다.ㅠㅠ 이전 버전에서 나오던 일부 오류는 수정하였습니다. 【 함수 구문 】 = JsonParse( JSON , Path , [ Header ] , [PAD ] , [ Delimiter ] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 JSON 필수 없음 JSON 텍스트, 배열 또는 범위 Path 필수 없음 검색할 이름, 이름 경로인 경우 "/"를 사용해서 연결, 대소문자 구별함 이름 및 이름 경로에 와일드 카드 사용 가능 이름1/이름2/이름..

이전 버전에서 몇 가지 문제가 있어서 함수 구성을 조금 변경하여 JSONPair 함수로 기본 분석을 정리하고나서 이름경로를 셀 하나씩 분리하여 배열을 확장하는 함수로 구성하니다. 결과는 이전 함수와 같으나 효율이 좀 더 좋아 졌습니다. 【 함수 구문 】 = JSONtoArray( JSON , [PAD ] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 JSON 필수 없음 JSON 텍스트, 배열 또는 범위 PAD 선택 빈문자열("") 빈 셀에 채울 값 JSON 구조에 대해서는 JSONPair 함수에서 정리한 결과 배열을 받아서 진행합니다. 따라서 이 함수에서는 매우 간단한 구조로 처리가 진행됩니다. Function JSONtoArray(JSON, Optional PAD$ = vbNullString) '==..

구글 캘린더나 다른 API 작업을 할 때, 결과가 xml 아닌 json으로 출력되는 경우 그 동안에는 JSON converter를 사용하고 있었습니다. 이를 VBA에서 쉽게 사용할 수 있는 배열로 변환하고 이를 바탕으로 이름 경로(Path)를 이용하여 값이나 목록을 출력하도록 설계를 했습니다. 여기서는 먼저 배열로 변환하는 함수를 설명합니다. 【 함수 구문 】 = JSONPair( JSON , [ Delimiter ] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 JSON 필수 없음 JSON 텍스트, 배열 또는 범위 Delimiter 선택 "/" "이름 경로" 각 단계를 연결할 구분자, 기본값은 "/" JSON 문자열을 하나씩 읽어서 그에 따른 처리를 진행하는 구조입니다. 공백문자를 Skip하기 위한 ..

Google Calendar를 Excel에서 사용할 수 있도록 아주 간단한 기능만 들어 있는 파일로 자동 인증이 좀 더 매끄럽게 되도록 수정하였습니다. Google Calendar를 사용할 수 있도록 Google의 OAuth 2.0 인증을 사용합니다. 현재는 Google의 인증을 받기 전의 상태로 사용에 제약이 있을 수 있습니다. 이 파일로 계정 인증이 완료되면, EGTools의 Ribbon메뉴의 달력중 '일일 일정표' 만들기에서 해당 일자의 Google Calendar 일정이 일정표에 자동으로 등록됩니다. 사용방법은 첨부 파일의 [Manual] 시트에 간략하게 설명되어 있으므로 꼭 읽고 사용하세요.