Объект, требующий ошибки при переходе по ячейкам при выборе

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 

Как

Клетки (п, м)

отличается от

С в селекции

?

Ошибка возникает в цикле 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 

Plus небольшой тираж вашего кода. Сделайте свои заявления, как это:

Dim X as Long, Y As long 

В программном коде X объявлен как вариант, и целое число медленнее и меньше, чем в длину - Why Use Integer Instead of Long?

Вот некоторые хорошее объяснение, когда поставить аргумент в скобках и когда использовать call - How do I call a VBA Function into a Sub Procedure