Перегрузка функций и UDF в Excel VBA
Если вы можете различать workbook по количеству параметров, то visual-basic-applications будет работать что-то вроде excel этого:
Public Function Morph(ParamArray Args())
Select Case UBound(Args)
Case -1 '' nothing supplied
Morph = Morph_NoParams()
Case 0
Morph = Morph_One_Param(Args(0))
Case 1
Morph = Two_Param_Morph(Args(0), Args(1))
Case Else
Morph = CVErr(xlErrRef)
End Select
End Function
Private Function Morph_NoParams()
Morph_NoParams = "I'm parameterless"
End Function
Private Function Morph_One_Param(arg)
Morph_One_Param = "I has a parameter, it's " & arg
End Function
Private Function Two_Param_Morph(arg0, arg1)
Two_Param_Morph = "I is in 2-params and they is " & arg0 & "," & arg1
End Function
Если единственный способ excel-macro отличить функцию — по типам, то workbook вам фактически придется делать excel то, что делают C++ и другие visual-basic-applications языки с переопределенными udf функциями, то есть вызывать table-valued-functions по сигнатуре. Я бы предложил workbook сделать звонок примерно таким:
Public Function MorphBySig(ParamArray args())
Dim sig As String
Dim idx As Long
Dim MorphInstance As MorphClass
For idx = LBound(args) To UBound(args)
sig = sig & TypeName(args(idx))
Next
Set MorphInstance = New MorphClass
MorphBySig = CallByName(MorphInstance, "Morph_" & sig, VbMethod, args)
End Function
и table-valued-functions создание класса с набором scalar-function методов, соответствующих vba-macros ожидаемым сигнатурам. Однако scalar-function вам, вероятно, потребуется vba-macros некоторая обработка ошибок, и udf имейте в виду, что распознаваемые macros-vba типы ограничены: например, даты vba-macros — это TypeName Double.
excel
user-defined-functions
vba
Перегрузка функций и UDF в Excel VBA
Мы используем файлы cookies для улучшения работы сайта. Оставаясь на нашем сайте, вы соглашаетесь с условиями использования файлов cookies. Чтобы ознакомиться с нашими Положениями о конфиденциальности и об использовании файлов cookie, нажмите здесь.