是否可以在由VBA创建的用户定义或定制函数中使用excel内置函数？

Question

我想通过VBA在excel中创建一个函数，并想知道是否可以在该函数内使用excel内置函数。例如，查找或匹配等功能。我有与VBA &公式的解决方案，但有兴趣知道功能是否可以做到这一点。

我想创建一个函数，其中VLookup应该只返回第一个找到的项目的值。

'function which can return the Vlookup value only for 1st found value 
Function SLOOKUP(Pvalue As Range, Rng As Range, Rng1 As Range, pIndex As Long) 

    Dim Cvalue As Variant 
    Dim Mvalue As Long 
    Dim Uvalue As Long 
    Dim Result As Variant 
    Result = "" 

Cvalue = Pvalue.Value 
Mvalue = Application.Worksheet.Function.Match(Cvalue, Rng, -1) 
Uvalue = Pvalue.Row 

If Mvalue = Uvalue Then 
Result = Application.Worksheet.Function.VLookup(Cvalue, Rng1, pIndex, 0) 
Else 
Result = 0 
End If 

SLOOKUP = Result 

End Function 

Answer 1

下面是一个使用MAX（）和SUM（）的例子：

Public Function whatever(rin As Range) As Variant 
    Dim mx As Variant 
    mx = Application.WorksheetFunction.Max(rin) 
    whatever = Application.WorksheetFunction.Sum(rin)/mx 
End Function 

注意，不是所有内置的工作表函数可以在VBA中使用这样的。以下是可用的：

List of Worksheet Functions Available to Visual Basic