Метод диапазона в Excel VBA

Question

Я знаю, что это глупый вопрос, но я нахожусь в конце, пытаясь понять это.

Этот небольшой фрагмент кода вызывает ошибку времени выполнения '1004': метод 'Range' объекта '_Worksheet' не удался. Но только тогда, когда Sheet3 не является активным листом. Он делает то, что ожидается, когда Sheet3 активен.

With Sheet3.Range(Cells(1, 1), Cells(nrows1, ncols1)) 
    .Clear 
    .Value = SCDevNeeds1 
End With 

Кроме того, если изменить ссылку на имя вкладки листа, я все еще получаю ошибку во время выполнения, но на этот раз это ошибка приложения или объекта определены. Эта ТАКЖЕ случается только тогда, когда лист не активен:

With Sheets("newest").Range(Cells(1, 1), Cells(nrows1, ncols1)) 
    .Clear 
    .Value = SCDevNeeds1 
End With 

Что мне не хватает?

Answer 1

Cells в выражении Sheet3.Range(Cells(1, 1), Cells(nrows1, ncols1)) относится к:
а) активный лист, если код является индивидуальный код модуля
б) лист модуля, если код в рабочий лист-модуль.

Таким образом, код будет работать, если он находится внутри модуля Sheet3, но скорее случайно.
Вы должны всегда использовать полные ссылки на все объекты Range (например,, Range, Rows, Columns, ...).

Sheet3.Range(Sheet3.Cells(1, 1), Sheet3.Cells(nrows1, ncols1))

Answer 2

Попробуйте этот код

With ThisWorkbook.Sheets("Sheet3") 
    With .Range(.Cells(1, 1), .Cells(100, 2)) 
     .Clear 
     .Value = "" 
    End With 

End With