در مدول فانکشن*ها:
کد PHP:
Function TestMacro(ByVal FirstArgo As Integer, ByVal SecoundArgo As Integer) As Boolean
TestMacro = True
End Function
Function TestMacroX(ByVal FirstArgo As Integer, ByVal SecoundArgo As Integer) As Boolean
TestMacroX = False
End Function
در مدول شرح فانکشن*ها:
کد PHP:
Sub UDFDiscriptions()
Call UDFTestMacro
Call UDFTestMacroX
End Sub
Sub UDFTestMacro()
Dim ArgDesc(1 To 2) As String
FuncDesc = "TestMacro"
ArgDesc(1) = "عدد صحيح اول:"
ArgDesc(2) = "عدد صحيح دوم:"
Application.MacroOptions Macro:="TestMacro", Category:="My Custom Category", _
Description:=FuncDesc, ArgumentDescriptions:=ArgDesc
End Sub
Sub UDFTestMacroX()
Dim ArgDesc(1 To 2) As String
FuncDesc = "TestMacro"
ArgDesc(1) = "عدد صحيح اول:"
ArgDesc(2) = "عدد صحيح دوم:"
Application.MacroOptions Macro:="TestMacroX", Category:="My Custom Category", _
Description:=FuncDesc, ArgumentDescriptions:=ArgDesc
End Sub
در WorkBook:
کد PHP:
Private Sub Workbook_Open()
Call UDF_Discriptions.UDFDiscriptions
End Sub
علاقه مندی ها (Bookmarks)