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

1. 사용자 정의 함수 작성

1) 사용자 함수의 개념

○ 계산할 때 사용할 수 있도록 VBA를 통해서 사용자가 직접 제작하는 함수

2) 사용자 정의 함수 작성 방법

○ 사용자 정의 함수 = User Define Function, Function Procedure로 작성

▶ Function Procedure

Function 함수명(인수)     실행문     ……     함수명 = 결과값  End Function

▶ 사용자 정의 함수의 예

Function 주문수량(주문일, 판매평균, 재고량)      Dim 수량 As Integer      If Application.WorksheetFunction.Weekday(주문일) = 6 Then           수량 = (판매평균 * 4) - 재고량      Else           수량 = (판매평균 * 2) - 재고량      End If      If 수량 < 0 Then           주문수량 = 0      Else           주문수량 = 수량      End If  End Function

3) 사용자 정의 함수 활용 방법

○ [함수 마법사] 대화상자 실행 → [사용자 정의] 범주 선택

  

2. 사용자 정의 함수 설명 및 범주 지정

1) 사용자 정의 함수 관리하기

○ 사용자 정의 함수가 어떤 값을 계산하는 함수인지 설명해주는 도움말지정 가능

○ 함수의 범주를 ‘사용자 정의’가 아닌 다른 범주로 분리 가능

▶ MacroOptions 메서드의 내부 형식

Application.MacroOptions (Macro, Description, , , HasShortcutKey, ShortcutKey, Category)

• Macro : 매크로 이름 또는 사용자 정의 함수 이름

• Description : 매크로 설명 지정

• HasShortcutKey : TRUE 이면 매크로에 바로 가기 키가 할당되고, 

                         FALSE이면 매크로에 바로 가기 키가 할당되지 않음

• ShortcutKey : HasShortcutKey가 TRUE 일 경우에 필수 요소로 바로 가기 키

• Category : 기존의 매크로 함수 범주(재무, 날짜/시간, 수학/삼각, 사용자 정의 등)를 지정하는 정수로, 기본 제공 범주에 설정되어 있는 정수를 사용하거나 사용자 지정 범주에 대한 문자열도 지정 가능

▶ MacroOptions 메서드의 내부 형식 작성 예시

2) 추가 기능으로 사용자 정의 함수 사용하기

○ 추가 기능 : 엑셀 통합 문서가 열릴 때 숨겨진 파일로 함께 열려 어느 문서에서든 추가 기능에 있는 함수를 사용할 수 있게 하는 기능

▶ 추가기능으로 저장

▷ 다른 이름으로 저장 대화상자에서 파일 형식을 [Excel 추가 기능(*.xlam)] 으로 선택하여 저장

▶ 적용 단계

① [개발 도구] 탭 → [추가 기능] 그룹 → [추가 기능] 아이콘 클릭

② [추가 기능] 대화상자의 [사용 가능한 추가 기능] 목록에서 [사용자 정의 함수] 선택