EGTools

Outlook 이 설치되지 않은 경우나, Outlook을 사용하지 않고 직접 메일 서버를 통해서 메일을 발송해야 하는 경우에 사용할 수 있습니다. 함수로 구현하며, 수신주소, 메일제목, 메일본문, 첨부파일 4가지 인수를 받도록 합니다. Function SendMailwithCDO(vReceipt As Variant, _ sTitle As String, _ Optional sBody As Variant = "", _ Optional vAttachments As Variant = "") 메일 서버에서 발송하기 위해서는 메일서버 및 계정 정보가 필요합니다. Dim sName As String '발송인 이름 Dim sEmail As String '발송 메일 주소/계정 Dim sPass As String '계정 ..

간단하게 메이를 발송하기 위한 코드를 정리합니다. 함수로 제작을 하고, 받을 인수는 수신주소, 메일제목, 메일본무, 첨부파일 4가지로 합니다. 수신인은 수신만 있는 String 이거나, 수신/참조/숨은참조를 넣은 배열로 받을 수 있도록 Variant로 선언하고 본문과 첨부는 없어도 에러는 아니므로 Optional 처리 첨부파일도 다일파일 Path는 String이고, 여러 첨부파일으 Path를 넣은 배열로 받기 위해 Variant로 합니다. Function SendMailwithOutlook(vReceipt As Variant, _ sTitle As String, _ Optional sBody As Variant = "", _ Optional vAttachments As Variant = "") Outlo..

Chart의 특정 부위를 더블 클릭하면 이벤트를 실행하고자 할 때 Class를 이용해서 차트에서 이벤트를 사용할 수 있도록 설정하는 방법입니다. 전체적인 내용은 이벤트를 가진 개체를 정의할 때 사용하는 방법과 동일합니다. □ 이벤트를 가진 Chart용 이벤트 Class 정의 먼저 Chart에서 이벤트를 사용할 수 있도록 WithEvents를 사용한 Class를 정의합니다. Class 이름은 clsEventChart라고 하겠습니다. 실제 Chart에서 일어나는 이벤트 처리 작업은 여기에서 설정합니다. Public WithEvents EvtChart As Chart '//이벤트를 가진 Chart개체 Private m_x As Long '//마우스 위치 Private m_y As Long '//마우스 위치 P..

기본 양식과, 양식에 넣을 데이터를 사용하여 자동으로 개별 파일 또는 시트를 만들고이메일주소를 등록한 경우에 메일까지 발송할 수 있는 기능입니다. 예를들어, 급여명세서를 만들기 위해서 개인별로 파일을 만들고 보안 때문에 개인 암호를 지정하고 저장하는데개별적인 작업을 해야 해서 손이 많이 가게 됩니다. ㅁ 작업 옵션의 선택 1 = 파일저장2 = 인쇄4 = 메일발송3가지 옵션 값을 더해서 병렬 선택 가능(3=파일저장+인쇄, 5=파일저장+메일발송, 6=인쇄+메일발송, 7=파일저장+인쇄+메일발송) ㅁ 양식에 대한 규칙공통으로 적용할 기본 내용과 양식을 작성합니다.셀서식도 출력할 내용에 맞게 설정합니다.개별 자료를 입력할 필드명을 입력합니다. {{필드명}}하나의 셀에 2개 이상의 필드를 넣을 수도 있습니다.필트가..

어느 날짜가 공휴일이면 이후 첫번째 근무일을 찾는 경우가 있습니다. 이를 함수로 구현해 봅니다. 함수의 인수로는 지정일자, 주말휴일, 공휴일 목록, 검색방향 4개를 사용합니다. 주말 휴일은 NetWorkDays.Intl함수에서와 같은 주말휴일 옵션을 사용합니다. Public Function FindWorkDay(StartDate As Date, _ Optional Weekend As Variant = 1, _ Optional Holidays As Variant, _ Optional Direction As Integer = 1) 내부적으로 사용할 변수를 지정합니다. Dim sWeekend As String '// 요일별 근무일/휴무일 지정 Dim vHolidays As Variant '// 휴일 목록 Di..

수천행 또는 수십만행 정도의 대량 목록에 대해서 VLOOKUP을 하게되면 각 셀마다 수천/수십만개의 자료에 대해서 검색을 하느라 내장함수이지만 시간이 많이 소요될 수 밖에 없습니다. 대부분의 업무가 조회 대상 Data는 고정해서 VLOOKUP을 사용하므로, 각 셀별로 따로따로 검색을 하지 않고, 검색 결과를 일괄로 작업하여 결과를 도출하는 것이 시간을 많이 단축될 것입니다. 이를 함수로 구현하는 부분은 이렇게 됩니다. 인수는 VLOOKUP과 같으나 찾는 값이 단일값이 아닌 범위를 사용하는 것이 차이가 될 수 있습니다. 추가로 VLOOKUP에서 찾는 값이 없을 때 #N/A 오류가 나오고 이를 처리하기 위해서 IFERROR 함수를 추가로 사용하므로 이를 줄이고자 추가 인수로 PAD_with를 넣어 주는 것으..

【 함수 요약 】 FindWorkDay함수는 기준일자 전/후의 첫번째 근무일을 검색합니다. 의미가 명확하게 이후일자를 검색하는 NextWorkDay()와 이전일자를 검색하는 PrevWorkDay() 함수로 사용 가능합니다. 이 함수는 EGTools 추가기능에서 지원하는 함수입니다. 【 적용 버전 】 Windows용 : 모든버전 【 함수 구문 】 = FINDWORKDAY ( StartDay , [ Weekend ] , [ Holidays ] , [ Direction ] ) 다음찾기 = NEXTWORKDAY ( StartDay , [ Weekend ] , [ Holidays ] ) 이전찾기 = PREVWORKDAY ( StartDay , [ Weekend ] , [ Holidays ] ) 【 함수 인수 】 ..

【 함수 요약 】 TextNumSort함수는 문자와 숫자가 섞여 있는 데이터를 정렬할 때, 숫자가 숫자로 정렬하도록 합니다. 문자를 무시하고 숫자로만 정렬하는 옵션을 추가하였습니다.(v3.8.7) 이 함수는 EGTools 추가기능에서 지원하는 함수입니다. 【 적용 버전 】 Windows용 : 모든버전 【 함수 구문 】 = TEXTNUMSORT ( DataRange , [ sort_index ] , [ sort_order ] , [ IgnoreText ] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 DataRange 필수 없음 원본 Data의 범위 또는 Array sort_index 선택 1 정렬할 열번호, 생략하면 1 (첫번째 열) sort_order 선택 1 정렬방법, 기본값은 1 1 = 오름차순 ..

【 함수 요약 】 Excel의 VLOOKUP함수를 다량으로 실행한 결과를 출력합니다. (mass VLOOKUP) 대량 자료에 대해서 VLOOKUP을 할 때, 계산에 걸리는 시간을 매우 빠르게 단축해 줍니다. VLOOKUP을 수천줄 이상 입력할 때 계산 시간을 단축할 수 있습니다. 이 함수는 EGTools 추가기능에서 지원하는 함수입니다. 【 적용 버전 】 Windows용 : 모든버전 【 함수 구문 】 = MVLOOKUP ( Find_Range , Search_Array , Col , [ Match_type ] , [ PAD_with ] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 Find_Range 필수 없음 찾을 값이 있는 범위나 배열 Search_Array 필수 없음 검색할 범위나 배열 Col 선..

【 함수 요약 】 도로명 주소나 건물명 등의 키워드로 우편번호 및 도로명주소, 지번주소를 검색 인증키가 필요하므로 아래 [인증키] 부분 참고하세요.-> v4.1.0에서 인증키 없이 사용하도록 수정 이 함수는 EGTools 추가기능에서 지원하는 함수입니다. 【 적용 버전 】 Windows용 : Excel 2013~ (다음 개정시 확대 예정) 【 함수 구문 】 = ZIPCODE ( Text , [Info] ) 【 함수 인수 】 인수명 옵션 기본값 설 명 Text 필수 없음 검색할 주소, 도로명 건물번호, 지번 주소 일반적으로 도로명으로 우편번호 검색방법과 유사하게 사용 (지번주소보다 도로명 주소가 우편번호 검색이 더 잘됨) Info 선택 1 출력할 내용 1 = 우편번호 (기본) 2 = 도로명 주소 3 = 지..