Excel 2016 VBA에서 래퍼 함수를 ​​사용하는 방법

여기에서는 매우 유용한 비교적 간단한 사용자 지정 Excel VBA 워크시트 기능을 찾을 수 있습니다. 이러한 함수는 내장 VBA 요소를 둘러싸는 코드로 구성되어 있기 때문에 래퍼 함수 라고 합니다. 즉, 워크시트 수식에서 VBA 함수를 사용할 수 있습니다.

함수 사용자()
' 현재 사용자의 이름을 반환
  사용자 = Application.UserName
종료 기능

본질적으로 이 함수를 사용하면 수식이 Application 개체의 UserName 속성에 액세스할 수 있습니다.

NumberFormat 함수

이 함수는 단순히 셀의 숫자 형식을 표시합니다. 셀 그룹이 모두 동일한 숫자 형식을 갖도록 해야 하는 경우 유용할 수 있습니다.

함수 번호 형식(셀)
' 셀의 숫자 형식을 반환합니다.
  NumberFormat = Cell(1).NumberFormat
종료 기능

Cell(1)의 사용을 알 수 있습니까? 다중 셀 범위가 인수로 사용되는 경우 첫 번째 셀만 사용됩니다.

셀의 텍스트 색상, 배경 색상, 글꼴 등을 반환하는 유사한 함수를 쉽게 작성할 수 있습니다.

ExtractElement 함수

이 래퍼 함수는 구분 문자로 구분된 여러 요소를 포함하는 텍스트 문자열에서 부분 문자열을 반환합니다. 예를 들어, 이 수식은 공백을 구분 기호로 사용하는 문자열의 세 번째 요소인 cow를 반환합니다. 물론 인수는 셀 참조가 될 수 있습니다.

=ExtractElement("개 말소 고양이", 3, " ")

다음은 VBA의 Split 함수에 대한 래퍼인 코드입니다.

함수 ExtractElement(Txt, n, Sep)
' 텍스트 문자열의 n번째 요소를 반환합니다. 여기서
' 요소는 지정된 구분 문자로 구분됩니다.
  ExtractElement = Split(Application.Trim(Txt), Sep)(n - 1)
종료 기능

아래 이미지는 워크시트 수식에 사용되는 ExtractElement 함수를 보여줍니다. 열 A에는 텍스트 문자열이 포함되고 열 B에는 추출할 요소 번호가 포함되며 열 C에는 구분 기호가 포함됩니다(공백으로 표시되는 셀에는 공백 문자가 포함됨).

ExtractElement 함수를 사용하여 문자열에서 요소를 반환합니다.

세이잇 기능

이 간단한 함수는 Application.Speech 개체의 Speak 메서드에 대한 래퍼입니다. 주장을 "말하기" 위해 합성된 음성을 사용합니다.

함수 SayIt(txt)
' 주장을 펼친다.
  Application.Speech.Speak txt, True
종료 기능

다음은 예입니다.

=IF(C10>10000,SayIt(“예산 초과”),”OK”)

수식은 C10 셀을 확인합니다. 값이 10,000보다 크면 함수는 "예산 초과"라는 텍스트를 말합니다. 값이 10,000보다 작으면 함수는 텍스트 OK를 표시하고 아무 말도 하지 않습니다.

아껴서 사용하십시오. 이 기능을 두 번 이상 사용하면 매우 혼란스러울 수 있습니다. 또한 이 함수는 워크시트를 계산할 때마다 평가되므로 많은 변경을 하면 목소리가 매우 거슬릴 수 있습니다. 이 기능은 아마도 오락용으로 더 적합할 것입니다.

IsLike 함수

VBA의 Like 연산자는 텍스트 문자열을 비교하는 매우 유연한 방법입니다. VBA 도움말 시스템에서 확인하십시오. 이 기능은 워크시트 수식에 강력한 기능을 제공합니다.

함수 IsLike(텍스트, 패턴)
' 첫 번째 인수가 두 번째 인수와 같으면 true를 반환합니다.
  IsLike = 텍스트 유사 패턴
종료 기능