EGTools

Barcode 발행 매크로를 만들면서 2D Array에 담고, Excel sheet에 붙여 넣어서 그림으로 복사하는 방식을 사용했는데 이렇게 사용할 경우 함수로는 사용할 수 없어서 Array로부터 직접 BMP파일을 생성하여 삽입하는 방식으로 정리하였습니다. BMP파일을 일반적인 24bit로 만들경우 용량이 커지는 문제가 있어서 1bit 단일색상 BMP 파일로 최소한으로 만들기 위해서 정리했습니다. 색상표현 관련하여 제대로 표시되지 않은 문제를 v2.5로 개선했습니다. BMP파일은 Version 3형식을 선택 (이유는 간단하므로,,,) 구조는 아래처럼 총 4가지 구조로 되어 있으며 File Header DIB Header Color Table Image Data 아래 구조에 대한 참고: http://jus..

아래 추가기능으로 기능 통합 및 이전되었습니다.https://cafe.naver.com/egtools/226 EGBarcode - 바코드생성기 및 바코드 함수 (v3.0)EGTools와 함께 사용할 수 있게 변경하여 별도 추가기능으로 제공합니다. 단독으로 사용할 수 있으며, EGTools와 함께 사용할 수도 있습니다. 함께 사용할 경우 함수는...cafe.naver.com

오늘 VBA 매크로 기능중 이상한 내용이 있어 확인을 했습니다. 셀 내용을 Array로 전환한 다음 각 셀의 내용이 없는 것과 Format(값, "YYYY-MM")으로 당월인지 확인하는 과정이 있었는데, 아래와 같은 IF문을 거치면 Array내의 Empty 값이 Null로 변환이 되어 계속 예상하지 못한 결과가 나왔습니다. IF Format(vData(r, c), "YYYY-MM") = "2023-03" Then 그래서 별도로 빈 Array를 하나 만들어 점검해 봤는데, 이러네요... Sub testEmptyTurnToNullError() Dim vData As Variant, r As Long, c As Long, EmptyCount As Long, NullCount As Long ReDim vData..

다양한 바코드를 생성할 수 있는 별도의 Excel 바코드 발행 추가기능으로 업그레이드 되었습니다. https://egtools.tistory.com/entry/EGBarcode Excel로 바코드 발행하는 추가기능 EGBarcode (v2.5) 순수한 VBA로 작성된 바코드 발행기입니다. 최종 버전 : V2.5 배포일자 : 2023-03-14 이 함수는 EGTools 추가기능에도 추가되었습니다.(v3.6.0) 발행할 수 있는 바코드 종류는 아래와 같습니다. 1D : Code128, C egtools.tistory.com EGTools 추가 기능에서도 함수 및 매크로로 지원하고 있습니다. 이미 기능이 개선되어 아래 내용은 추천하지 않으니 참고만 하시기 바랍니다. VBA 코드만으로 바코드를 생성하는 매크로 ..

주말에 바코드 관련 정보를 검색하다가 바코드를 전용 Font와 함께 사용할 수 있는 소스를 알게 되어 소개합니다. http://grandzebu.net/informatique/codbar-en/codbar.htm 아주 오래된 소스이기는 하지만, GNU - GPL로 소스와 폰트를 제공하고 있어서 VBA에서 쉽게 사용할 수 있습니다. Font는 아래 Zip파일을 해제한 다음에 오른쪽 마우스 메뉴를 통해서 설치하시면 됩니다. EAN13과 EAN8은 ean13.ttf를 공용으로 사용합니다. 함수는 EAN13과 EAN8이 알수 없는 내장함수로 #REF오류가 나므로 함수 이름을 모두 Barcode를 추가한 이름으로 변경하여 제공합니다. 바코드 출력 부분에는 해당 Font를 적용해야 바코드로 출력됩니다. 2D 바코드..

범위내에 그림의 수를 확인하고 싶을 때 사용할 수 있는 함수입니다. 함수는 대상 영역에 그림/시진을 추가한다고 함수 결과가 즉시 반영되지 않습니다. 함수를 사용한 후에 그 결과를 다시 사용할 경우에는 반드시 사용셀을 재입력하세요. F9키로 재계산으로 해도 반영되지 않으며, 반드시 F2 키나 더블클릭으로 셀 수정 상태에서 Enter나 Tab키로 입력합니다. CountP( 범위 ) : 셀의 왼쪽위 꼭지점이 범위에 있으면 숫자를 셈 CountPA( 범위 ) : 그림이 범위내에 걸치기만 해도 숫자를 셈 Option Explicit Public Function CountP(aRange As Range) Dim oPic As Shape, iCnt As Long For Each oPic In aRange.Parent..

ToLunar와 ToSolar 함수를 EGTools에 추가하면서 실제 변환이 정확한지 확인하는 것을 천문연구원에서 제공하는 API를 이용해서 확인을 했었는데, 여기에 사용한 코드입니다. 천문연구원에서는 양력기준으로 기원전 59년 2월 13일부터 2050년 12월 31일까지의 양력/음력 날짜를 제공합니다. 양력 달력을 이용하기 위한 API를 주소는 https://astro.kasi.re.kr/life/solc? 이며 yyyy, mm, dd 3가지를 양력으로 입력합니다. 조회 결과는 아래와 같은 형태로 반환됩니다. {"SOLC_WEEK":"토","SOLC_DD":"01","SOLC_LEAP_YYYY":"평","JULIAN_DD":"18","JULIAN_YYYY":"2017","LUNC_YYYY":"2017"..

Macro를 작성하면서 시간을 1ms라도 줄이기 위해서 현재 작성한 매크로의 실행 시간을 측정하는 데 사용하기 위해서 사용 1. Class 모듈 이름을 "cTimer"로 삽입하고 아래 코드 추가 Option Explicit #If Win64 Or VBA7 Then Private Declare PtrSafe Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long Private Declare PtrSafe Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long #Else Private Declare Functio..

Excel 에 도입된 신규 함수중 일부는 Dynamic Array 결과를 Sheet에 출력하는데, UDF에서 이와 비슷한 기능을 할 수 있도록 하는 방법입니다. 장점 : 함수 결과가 배열인 경우 바로 Sheet에 쓸 수 있다. 단점 : 결과 범위가 축소된 경우 줄어든 부분에 대해서 값을 지울 수는 없다. -> 사용상 주의하지 않은 경우 변경된 결과에 이전 결과의 잔상이 남음... (현재 EGTools에는 완벽하지는 않지만 기존 자료를 자동으로 지울 수 있도록 적용되어 있습니다.) 기본적인 개념은 아래 출처에서 착안하여 시행착오를 거쳐 정리한 결과입니다. https://stackoverflow.com/a/37344343 처리 과정은 대강 이렇게 진행됩니다. 1. Global 변수에 결과를 전달할 배열 선언..

VBA로 셀값의 형태가 어떤 것인지 판단하기 위해서 여러가지 방법을 사용합니다만, 시간값만 있을 경우 판단하기 애매한 경우가 있습니다. 입력된 값이 어떤 것이고 셀서식이 어떻게 되어 있느냐에 따라 달라지는데, 아래의 코드와 예제 결과를 참고해 보세요. Function IsDateValue(Cell As Range) IsDateValue = IsDate(Cell.Value) End Function Function IsString(Cell As Range) IsString = TypeName(Cell.Value) = "String" End Function Function IsNumericValue(Cell As Range) IsNumericValue = IsNumeric(Cell.Value) End Func..