Excel VBA：答案“卡住”

Question

我是 Excel 2003 中的 VBA 新手。我编写了一个包含两个字符串的 UDF：一个是过滤器，另一个是单元格引用。当我在 VBA 编辑器中调试并连续调用该函数几次时，一切都按我的预期工作。但是，当我在电子表格中多次使用 UDF 时，尽管输入不同，但所有使用都会显示完全相同的答案。

函数如下。它更新数据透视表，然后将值从单元格中复制出来。但我一定是在滥用它：

Function UpdatePivotAndFetchCell(catcode As String, theCell As String) As Variant
Dim ws, pt, catField, pi, theval, finalVal
Set ws = Worksheets("Reporting")
Set pt = ws.PivotTables("MyReport")
pt.RefreshTable
Set catField = pt.PivotFields("Category")

For Each pi In catField.PivotItems
    If InStr(pi.Value, catcode) Then
        pt.PivotFields("Category").CurrentPage = pi.Value
        theval = ws.Range(theCell).Value
        On Error Resume Next
        If (TypeName(theval) <> "Error") Then
            finalVal = theval
        End If
        Exit For
    End If
Next pi
UpdatePivotAndFetchCell = finalVal
End Function

如果我使用 VBA 编辑器运行它，我会得到：

Debug.Print (UpdatePivotAndFetchCell("C001", "K284"))
    'Returns 0.48
Debug.Print (UpdatePivotAndFetchCell("C002", "K284"))
    'Returns 0.52

但在工作表中：

=UpdatePivotAndFetchCell("C001", "K284")
    (displays 0.52)
=UpdatePivotAndFetchCell("C002", "K284")
    (displays 0.52)

也许我没有正确指定函数？这对我来说是个谜。

Answer 1

从工作表调用的函数是not allowed to change sheets。否则，您可以轻松地在计算树中创建无限循环。因此，更改工作表的所有内容都会被忽略（例如 RefreshTable() 或 .CurrentPage =）并导致函数停止。

为了完整起见，有一个workaround，但你不应该使用它，如果你使用它，你可以run into problems。