excel - 如何在 Excel 2016 中调试一个简单的 vba 函数？

Question

我正在尝试调试一个简单的 vba 函数，该函数返回给定的数组，但一旦到达空单元格就会停止:

Function Test2(source() As Variant) As Collection
    Debug.Print "Hello"
    Dim i As Integer
    i = 1
    Do While Not IsEmpty(source(i))
        Test2.Add source(i).Value
        Debug.Print source(i).Value
        i = i + 1
    Loop

End Function

例如，当我通过写入将数组传递给该函数时， =Test2(A:A)在一个单元格中，我得到一个 #VALUE!错误并且看不到任何打印到即时窗口的内容。

与如何使用工具来查找问题相比，我对找出此功能的问题不太感兴趣。为什么“TEST”没有打印到即时窗口，如果我的程序中有语法错误，为什么编译器没有设置断点？

Answer 1

再次查看您的函数，向下查看 End Function 语句附近。为了从函数返回值，您需要将函数名称设置为要返回的值。因此，如果您想返回值“1”(不带引号)，您在 End Function 之前的最后一行应该说 ...。

Test2 = 1

这是您的 #value 错误的一个可能原因。也可能有其他原因。但先看看那个。