Шаг 45 - Начало и конец данных

Если мы захотим изменить наш пример в плане, что нам цена нужна не только одного товара, но и нескольких скажем картошка, лук и апельсины, то возникнет вопрос как это сделать. Ответ это именованный диапазон. Тогда как определить его начало и конец ? В том смысле где находятся цифры ? Вот этим мы и займемся в этом шаге.

Создаем новую книгу и колонку A переименовываем в диапазон rrrrr.

45_1.gif (5385 b)

Так как диапазон есть, теперь к нему можно применять всякие там методы. Выделяем его Range, у Range есть метод End - мол где конец или начало :-))), а у End есть адрес вообще-то говоря смотрите !!!

Sub TestRange()
	Dim r As Range
	Set r = Range("rrrrr")
	MsgBox (r.Columns.End(xlUp).Address)
	MsgBox (r.Columns.End(xlDown).Address)
End Sub

Вот теперь мы и знаем адрес первой и последней ячейки !!!. Привяжем вызов данной процедуры к нажатию кнопки.

Private Sub CommandButton1_Click()
	TestRange
End Sub

Загрузить проект | Предыдущий Шаг | Следующий Шаг | Оглавление
Автор Каев Артем.