循环选择单元格时需要对象错误

Question

我在一些单元格中循环，在垂直选择中，在 Excel 中，然后将该单元格作为参数传递给过程。

我已经这样做了，所以我没有两次ProcessCells的内容，在代码中，一次用于while循环，第二次用于For循环。

如果我尝试在 for 循环中写出单元格的值，它会起作用。 如果我将 ProcessCells 过程的内容放在 for 循环中，它也可以工作。

但如果我尝试将其作为参数传递到 ProcessCells 中，则会出现错误

'需要对象'

这里是代码，如果你想看看：

Sub loopThroughCells()

Dim c As Range
Dim autoSelect As String
Dim X, Y As Integer

autoSelect = Cells(3, 2).Value

If StrComp(autoSelect, "Y") = 0 Then
    Y = 5
    X = 4
    While Not IsEmpty(Cells(Y, X).Value)
        ProcessCells (Cells(Y, X))
        Y = Y + 1
    Wend
Else
    For Each c In Selection
        ProcessCells (c)
    Next c
End If
End Sub

Sub ProcessCells(ce As Range)
End Sub

怎么样

细胞(n,m)

不同于

c 在选择中

?

错误发生在 For 循环中，但不会发生在 while 循环中。

Answer 1

你应该这样做：

Option Explicit

Sub TestMe()

    Dim c   As Range

    For Each c In Selection
        Call ProcessCells(c)
    Next c
End Sub


Sub ProcessCells(ce As Range)
End Sub

您应该参考call，因为括号中有一个参数。 或者像这样，如果你不喜欢call：

Option Explicit

Sub TestMe()

    Dim c   As Range

    For Each c In Selection
         ProcessCells c
    Next c
End Sub


Sub ProcessCells(ce As Range)
End Sub

加上一个小版本的代码。像这样进行声明：

Dim X as Long, Y As long

在您的代码中，X 被声明为变体，并且整数比 long 慢且小 - Why Use Integer Instead of Long?

这里有一些很好的解释，何时将参数放在括号中以及何时使用call - How do I call a VBA Function into a Sub Procedure