Как заставить WorkSheet.Cells(i,j) вернуть Range object?

[Gudvin]

В Excel

А то у меня он возвращает значение ячейки, как не крути...

[GSerg]

Зависит от контекста.
Код в студию...

[Gudvin]

For Each WS In WB.Worksheets
Set C = WS.Cells(C1,C2)
S=C.Address'Здесь ошибка: object required
Next

[GSerg]

option explicit не пробовал? Наряду с явным объявлением переменных?

[Gudvin]

Переменная С явно объявлена

Dim с as Range

А вот option explicit не могу... придется очень много переделывать. Раньше я про нее не знал

[GSerg]

Ну для начала, чему равно выражение "c is nothing"?

[Gudvin]

Ничего не понимаю. В одном месте работает такой же по смыслу код, в другом - нет...

[alibek]

Лучше все же поставь Option Explicit, меньше загадок будет

[Gudvin]

НЕ, слишком много переделывать, или везде придется все равно вариант ставить....

-------------------------
"Умный в гору не пойдет, умный гору обойдет," - сказал муравей, подойдя к железной дороге

[Leon_]

For Each WS In WB.Worksheets
Set C = WS.Cells(C1,C2)
S=C.Address'Здесь ошибка: object required
Next

Попробуй сделать так:

Код: Выделить всё

Dim C      As Excel.Range
For Each WS In WB.Worksheets
     Set C = WS.Range(WS.Cells(1,3), WS.Cells(2,3))
     S = C.Address
Next