Excel VBA-将工作表传递给公共功能

Question

我有一个公共职能：

Public Function Test(wrs As Worksheet, arr As Variant) As Variant

我有主要子：

Sub Main()
Dim ws as Worksheet
Dim out, in

ws = ThisWorkbook.Sheets("Sheet1") 

out = Test (ws, in)

调用测试时，出现“ ByRef参数类型不匹配”错误。

Answer 1

像这样使用Set关键字：

set ws = ThisWorkbook.Sheets("Sheet1") 

编辑：

然后确保还设置了函数的返回值。 像这样：

Public Function Test() As Variant
    Set Test = ActiveSheet
End Function

Public Sub TestMe()
    Debug.Print Test.name
End Sub