vba - 在 Excel VBA 中将对象作为参数传递

Question

如何在 Excel VBA 中将对象传递给私有(private)子作为引用？以下是我正在尝试做的事情:

Sub main()
    Dim r As Range
    Set r = Sheets("Sheet1").Range(Cells(1, 1), Cells(27, 27))
    r.Select 'this works
    select_cells (r) 'this doesn't work
End Sub

Private Sub select_cells(a As Range)
    a.Select 'prompts Object Required error
End Sub

Answer 1

select_cells (r) 'this doesn't work

不能使用括号将对象参数传递给过程。只需这样做:

select_cells r

如果您确实想要保留括号，可以使用过时的、过时的Call关键字。