Set iRange = Range("B5:B25")
iFirstCell = iRange.Item(1).Address
iLastCell = iRange.Item(iRange.Count).Address
'Or
iFirstCell = iRange.Cells(1).Address
iLastCell = iRange.Cells(iRange.Count).Address
Границы диапазона
Господа!
В переменную типа Range считан выделенный диапазон с одним столвцом (напр. B5:B15).Уверен, есть краткий и красивый способ получить адреса граничных ячеек (т.е. B5 и B15 соответственно) но не могу сообразить как.
Заранее благодарен!
В переменную типа Range считан выделенный диапазон с одним столвцом (напр. B5:B15).Уверен, есть краткий и красивый способ получить адреса граничных ячеек (т.е. B5 и B15 соответственно) но не могу сообразить как.
Заранее благодарен!
Код:
Примечание : Если диапазон будет представлять собой несмежные ячейки, то для решения подобной задачи, необходимо будет использовать свойство .Areas
Цитата:
Originally posted by pashulka
Примечание : Если диапазон будет представлять собой несмежные ячейки, то для решения подобной задачи, необходимо будет использовать свойство .Areas
Код:
Set iRange = Range("B5:B25")
iFirstCell = iRange.Item(1).Address
iLastCell = iRange.Item(iRange.Count).Address
'Or
iFirstCell = iRange.Cells(1).Address
iLastCell = iRange.Cells(iRange.Count).Address
iFirstCell = iRange.Item(1).Address
iLastCell = iRange.Item(iRange.Count).Address
'Or
iFirstCell = iRange.Cells(1).Address
iLastCell = iRange.Cells(iRange.Count).Address
Примечание : Если диапазон будет представлять собой несмежные ячейки, то для решения подобной задачи, необходимо будет использовать свойство .Areas
Спасибо!
".Item(n)" -это гениально! В моей толстой книжке я такого не нашел, но был уверен, что что-то подобное есть.
Свойство .Item - это свойство по умолчанию и поэтому его можно убрать ...
... но лично мне нравиться именно полный синтаксис.
Код:
Set iRange = Range("B5:B25")
iFirstCell = iRange(1).Address
iLastCell = iRange(iRange.Count).Address
iFirstCell = iRange(1).Address
iLastCell = iRange(iRange.Count).Address
... но лично мне нравиться именно полный синтаксис.