Снова торможу с адресацией... - Microsoft Office Excel

tae1980 · 26.03.2010, 12:26

Как правильно записать вот этот пример:

Код:

                            With Лист
                                .Range(.Cells(Строка, Колонка), .Cells(Строка, Колонка).End(xlDown)).ClearContents
'                                .Range(.[B5], .[B5].End(xlDown)).ClearContents
                            End With

За комментирована рабочая строчка. Хочу задавать координаты того что нужно очистить в цифровом виде. И что не снова ни как не соображу как правильно написать команду.

The_Prist · 26.03.2010, 12:28

Код:

.Range(.Cells(Строка, Колонка), .Cells(.cells(Строка, Колонка).End(xlDown).row, Колонка).ClearContents

tae1980 · 26.03.2010, 12:38

Цитата:

Сообщение от The_Prist

Код:

.Range(.Cells(Строка, Колонка), .Cells(.cells(Строка, Колонка).End(xlDown).row, Колонка).ClearContents

Ругается: "Run-time error 424. Object required"

IgorGO · 26.03.2010, 12:57

если Строка, Колонка равны нулю, конечно заругается

tae1980 · 26.03.2010, 13:11

Цитата:

Сообщение от IgorGO

если Строка, Колонка равны нулю, конечно заругается

Колонка=1 as integer
Строка=10 as integer

tae1980 · 26.03.2010, 13:14

Цитата:

Сообщение от IgorGO

если Строка, Колонка равны нулю, конечно заругается

Изменил строку так

Код:

.Range(.Cells(10, 1), .Cells(.Cells(10, 1).End(xlDown).Row, 1)).ClearContents

The_Prist · 26.03.2010, 13:30

Цитата:

Сообщение от tae1980

Ругается: "Run-time error 424. Object required"

Одну скобку забыл

Код:

.Range(.Cells(Строка, Колонка), .Cells(.cells(Строка, Колонка).End(xlDown).row, Колонка)).ClearContents

Специально проверил - код работает, если значения Строка, Колонка больше нуля.

tae1980 · 26.03.2010, 13:46

Цитата:

Сообщение от The_Prist

Одну скобку забыл

Код:

.Range(.Cells(Строка, Колонка), .Cells(.cells(Строка, Колонка).End(xlDown).row, Колонка)).ClearContents

Специально проверил - код работает, если значения Строка, Колонка больше нуля.

ну со скопкой я разобрался... все равно не работает... :((((

The_Prist · 26.03.2010, 13:51

Цитата:

Сообщение от tae1980

ну со скопкой я разобрался... все равно не работает...

(((

Ищите проблему в другом. Я специально сейчас еще раз проверил вот такую конструкцию:

Код:

Dim Строка, Колонка
Строка = 1: Колонка = 1
With Sheets(2)
.Range(.Cells(Строка, Колонка), .Cells(.Cells(Строка, Колонка).End(xlDown).Row, Колонка)).ClearContents
End With

Все работает. Никакой ошибки.

Какую строку у Вас подсвечивает редактор во время ошибки? Какое значение Вы присваиваете переменным? Какое значение присвоено переменной Лист и переменная ли это вообще?

tae1980 · 26.03.2010, 14:03

Цитата:

Сообщение от The_Prist

Ищите проблему в другом. Я специально сейчас еще раз проверил вот такую конструкцию:

Код:

Dim Строка, Колонка
Строка = 1: Колонка = 1
With Sheets(2)
.Range(.Cells(Строка, Колонка), .Cells(.Cells(Строка, Колонка).End(xlDown).Row, Колонка)).ClearContents
End With

Все работает. Никакой ошибки.

Какую строку у Вас подсвечивает редактор во время ошибки? Какое значение Вы присваиваете переменным? Какое значение присвоено переменной Лист и переменная ли это вообще?

Спасибо! Разобрался. Проблема была в With. Нужно было написать With Sheets(Лист).

26.03.2010, 12:26	#1
tae1980 Форумчанин Регистрация: 02.02.2009 Сообщений: 842	Снова торможу с адресацией... Как правильно записать вот этот пример: Код: `With Лист .Range(.Cells(Строка, Колонка), .Cells(Строка, Колонка).End(xlDown)).ClearContents ' .Range(.[B5], .[B5].End(xlDown)).ClearContents End With` За комментирована рабочая строчка. Хочу задавать координаты того что нужно очистить в цифровом виде. И что не снова ни как не соображу как правильно написать команду. С уважением, Алексей.

26.03.2010, 12:28	#2
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Код: `.Range(.Cells(Строка, Колонка), .Cells(.cells(Строка, Колонка).End(xlDown).row, Колонка).ClearContents` WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

26.03.2010, 12:57	#4
IgorGO Новичок СтарожилДжуниор Регистрация: 05.02.2008 Сообщений: 9,487	если Строка, Колонка равны нулю, конечно заругается Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Проблема с многоуровневой адресацией	grook	Общие вопросы C/C++	3	18.12.2010 17:15
Проблема с адресацией к элементам формы (696 элементов)	alvazor	Microsoft Office Excel	4	16.02.2010 15:36
Помогите с адресацией листа в формуле	ABCOz	Microsoft Office Excel	2	09.09.2009 13:38
Помогите новичку с адресацией разобраться	Zeneth	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	13	16.06.2009 19:55