vba - Excel VBA - 使用范围作为函数的可选参数？

Question

我想编写一个具有 Range 作为可选参数的 VBA 函数。例如:

Public Function testfunc(S As String, Optional R As Range) As String
testfunc = S
For Each cell In R
testfunc = testfunc + cell
Next cell
End Function

我尝试了上面的函数，但我得到了#VALUE!错误。我还尝试将 For 循环包装在 If (R) Then...End If 语句内。

处理可选范围的方法是什么，如果该范围存在，则通过 For Each 循环对其进行迭代？

Answer 1

试试这个

Public Function testfunc(S As String, Optional R As Range = Nothing) As String
    testfunc = S
    if not R is nothing then
        For Each cell In R
            testfunc = testfunc & cell
        Next cell
    end if
End Function

我已经在 Excel 2007 中测试了这一点。您需要将其放入模块中，而不是工作表或工作簿代码部分中。然后可以使用或不使用 Range 对象从 VBA 调用该函数，或者将其作为工作表函数调用。