E. 사용자 정의 함수 등록

E. 사용자 정의 함수 등록

사용자 정의 함수 및 함수에 대한 설명, 함수에 들어가는 인수의 설명을 넣어주는 Sub입니다.

Sub RegisterUDF()

Dim s1 As String

Dim s2 As String

Dim s3 As String

s3 = InputBox("사용자 정의 함수에 넣을 인수는 몇개인가요?", "인수 숫자", "없음")

Dim s4 As Integer

If IsNumeric(s3) Then

s4 = CInt(s3)

Else

s4 = 0

End If

ReDim strArgs(1 To s4)

s1 = InputBox("등록하실 사용자 정의함수 이름을 입력하세요", "함수이름", "없음")

s2 = InputBox("등록하실 사용자 정의함수 설명을 입력하세요", "함수설명", "없음")

For i = 1 To s4

strArgs(i) = InputBox("사용자 정의함수에서 넣어야 하는 인수에 대한 설명을 입력하세요", "인수이름", "없음")

Next i

Application.MacroOptions Macro:=s1, Description:=s2, Category:=14, StatusBar:=s2, ArgumentDescriptions:=strArgs

End Sub