UDF在调试模式下工作，但没有给单元的值

Question

我第一次使用 VBA Excel UDF。 我的目标是创建类似于“SumIf”的东西，但它通过项目列表获得次要标准（写入单元格并用“|”分隔）。

我已经通过回调 sub 测试了这个 UDF，以完成逐步过程，在这里它工作正常（这是测试子： MsgBox SommaSeIncludo(Range("A:A"), Range( "B:B"), Range("B1"), Range("C:C"), "D1") 但是，我不知道为什么，如果我将公式放入它显示的单元格中只有一个“值”错误（ =SommaSeIncludo(A:A;B:B;B1;C:C;D1) ）。 你有什么想法吗？

这是我的代码：

Function SommaSeIncludo(ByVal intSomma As Range, ByVal intCriteri1 As Range, ByVal criteri1 As Range, ByVal intCriteri2 As Range, ByVal listaCriteri2 As String) As String

    Dim listaCriteri2Array As Variant
    Dim numberOfListaCriteri2ArrayItems As Integer
    Dim thisItemCriteria As String
    Dim subTotal As Double
    Dim total As Double
    Dim thisSheet As Worksheet
    
    Set thisSheet = ThisWorkbook.Sheets("MySheet")
    
    total = 0
    listaCriteri2Array = Split(thisSheet.Range(listaCriteri2).Value, "|")
    numberOfListaCriteri2ArrayItems = UBound(listaCriteri2Array) - LBound(listaCriteri2Array)
    
    For i = 0 To numberOfListaCriteri2ArrayItems
        subTotal = 0
        thisItemCriteria = listaCriteri2Array(i)
              
        subTotal = WorksheetFunction.SumIfs(intSomma, intCriteri1, criteri1.Value, intCriteri2, thisItemCriteria)
        
        
        total = subTotal + total
    Next
    
    SommaSeIncludo = total
 
End Function

Answer 1

评论中的以下建议：

简短的答案是，您可以通过在调用函数时将 D1 转换为字符串来使其工作：

=SommaSeIncludo(A:A;B:B;B1;C:C;"D1")

但可能更好的方法是将函数的第一行更改为范围，

Function SommaSeIncludo(ByVal intSomma As Range, ByVal intCriteri1 As Range, ByVal criteri1 As Range, ByVal intCriteri2 As Range, ByVal listaCriteri2 As Range) As Long

如果您希望它引用D1 在指定的工作表中，我只知道 Split 语句中稍微冗长的构造，将范围转换为字符串，将其与工作表名称连接，然后转换回范围：

 listaCriteri2Array = Split(Range("MySheet" & "!" & listaCriteri2.Address).Value, "|")

参见

也许最好不要将其绑定到不过，您始终可以将 MySheet!D1 放在函数调用中，并将 Split 行保留为

listaCriteri2Array = Split(listaCriteri2.Value, "|")