Определить адрес первой и последней ячейки диапазона смежных ячеек — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Вариант I.
 
With Range("F5:J153")
     iF_Address = .Item(1).Address
     iL_Address = .Item(.Count).Address
End With
MsgBox "Адрес первой ячейки : " & iF_Address & _
vbCrLf & "Адрес последней ячейки : " & iL_Address
 
Вариант II.
 
With Range("B3:Q742")
     iF_Address = .Cells(1).Address
     iL_Address = .Cells(.Count).Address
End With
MsgBox "Адрес первой ячейки : " & iF_Address & _
vbCrLf & "Адрес последней ячейки : " & iL_Address  

Похожие записи/страницы:

Leave a Comment