Kак определить адрес первой и последней ячейки диапазона смежных ячеек

Категория: Basic
2012-12-22 17:20:27
Вариант I.
code: #vba
With Range("F5:J153") 
     iF_Address = .Item(1).Address 
     iL_Address = .Item(.Count).Address 
End With 
MsgBox "Адрес первой ячейки : " & iF_Address & _ 
vbCrLf & "Адрес последней ячейки : " & iL_Address
Вариант II.
code: #vba
With Range("B3:Q742") 
     iF_Address = .Cells(1).Address 
     iL_Address = .Cells(.Count).Address 
End With 
MsgBox "Адрес первой ячейки : " & iF_Address & _ 
vbCrLf & "Адрес последней ячейки : " & iL_Address   
 
Поделиться:

Похожие статьи:

теги: vba, basic