셀 서식의 통화 표시 알아내기 (2) - 사용자 정의 함수(UDF)

EXCEL - VBA

셀 서식의 통화 표시 알아내기 (2) - 사용자 정의 함수(UDF)

별동산 2024. 7. 9. 08:36

Sub 프로시저를 실행하면 여러 가지 동작을 한 번에 실행하는 것이고,

Function 프로시저는 내가 원하는 형태의 함수를 만드는 것입니다.

다시 말해 =함수명(셀 주소) 형식으로 매크로를 실행하는 것이 아니라

함수로 결괏값을 반환받는 것입니다.

따라서, 사용자 정의 함수(User Defined Function, UDF)를 만들어 사용하면 편리합니다.

1. 논리

NumberFormat을 했을 때는 원화 표시 ￦가 $로 표시되어서 사용할 수 없고,

NumberFormatLocal을 사용해야 합니다.

그러나. 세 번째 줄부터는 NumberFormat이나 NumberFormatLocal이 같습니다.

그리고, 한 자리 기호인 경우, 다시 말해 '['표시가 없는 경우)는 첫 번째 기호인 ￦와 $를 가져오면 되는데

세 번째 줄인 ￥표시부터는 셋째 자리 기호부터 가져오는 것은 같은데

다른 점은 네 번째 줄부터는 세 번째 위치부터 세 개를 가져오면 되는데,

세 번째 줄의 경우는 1개만 가져와야 한다는 것입니다.

2. 함수 만들기

가. ￥인지 비교하기

(1) 세 번째부터 한 글자를 가져와서 ￥과 같은지 비교하기 1(실패)

세 번째 위치의 기호가 ￥인지 알아보려면

직접 실행창에

?mid(range("a3").NumberFormat,3,1)="￥"

라고 입력할 수 있는데,

￥은 ㄹ을 누른 후 한자 키를 누르면 아래와 같이 2바이트 문자가 표시되는데,

탭키를 눌러 펼치면 두 번째 줄에 있으므로 마우스로 클릭하거나, 화살표 키를 이용해 이동한 후 엔터키를 눌러 입력할 수 있습니다.

위와 같이 입력한 후 엔터 키를 누르면

True가 나올 줄 알았는데 False가 나옵니다.

(2) 세 번째부터 한 글자를 가져와서 ￥과 같은지 비교하기 2(성공)

이번에는 Ascii 값을 구한 후 다시 문자로 변환한 후 비교해 보겠습니다.

직접 실행창에

?chr(asc(mid(range("a3").NumberFormat,3,1)))="￥"

라고 입력하면 True라고 표시됩니다.

오른쪽은 같은데, 왼쪽을 asc함수를 이용해 아스키코드 값을 구한 후

chr함수로 아스키코드를 문자로 바꾼 후 비교하면 True라고 표시됩니다.

asc 한 후 chr을 했으니 원래대로 돌아온 것인데 신기하게 True로 반환됩니다.

나. 사용자 정의 함수 만들기

(1) 함수명과 인수 지정하기

사용자 정의 함수를 만들 것이기 때문에

Funciton으로 시작해야 합니다.

함수명을 Sub 프로시저명과 동일하면 안 되므로

Get_Currency_Type으로 입력하고 인수로는 범위 변수인 rngA를 Range형식으로 지정하면

아래와 같이 됩니다.

Function Get_Currency_Type(rngA As Range)

End Function

그리고, 함수명 get_currency(sub 프로시저의 프로시저명과 동일함)를 입력한 다음

인수로 rngA를 입력하는데 Range(범위) 형식으로 지정합니다.

그리고, 엔터 키를 누르면 End Function은 자동으로 생깁니다.

(2) 조건문과 반환값 입력하기

(가) 조건문

조건문은 첫 번째 기호가 '['인지 비교해서

맞다면 세 번째부터 기호 3개를 가져오면 되는데,

세 번째부터 1개의 기호가 '￥'라면

예외적으로 '￥'라고 해야 합니다.

그리고, 첫 번째 기호가 '['가 아니라면

왼쪽부터 기호 1개를 가져오면 됩니다.

(나) 반환값 입력하기

VBA에서는 반환 값을 지정할 때 반드시 함수명을 사용합니다.

따라서, Get_Currrency_Type=Left(rngA,1) 식이 됩니다.

(다) 완성된 구문

아래와 같습니다.

Function Get_Currency_Type(rngA As Range)
    If Left(rngA.NumberFormatLocal, 1) = "[" Then
        Get_Currency_Type = Mid(rngA.NumberFormatLocal, 3, 3)
        If Chr(Asc(Mid(rngA.NumberFormatLocal, 3, 1))) = "￥" Then
            Get_Currency_Type = "￥"
        End If
    Else
        Get_Currency_Type = Left(rngA.NumberFormatLocal, 1)
    End If
End Function