double arrow

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

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

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

Так как диапазон есть, теперь к нему можно применять всякие там методы. Выделяем его 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


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: