Определить адрес всех ячеек, содержащих формулу массива, исходя из любой ячейки этого массива — Visual Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
If Range("A1").HasArray = True Then
   iRangeArray = Range("A1").CurrentArray.Address
   MsgBox "Формула массива введена в ячейки : " & iRangeArray
Else
   MsgBox "Ячейка не содержит формулы массива"
End If
code: #vba
Dim iCell As Range, iDiapazon As Range
Set iCell = Range("A1")
If iCell.HasArray = True Then
   Set iDiapazon = iCell.CurrentArray
   MsgBox "Формула массива введена в ячейки : " & iDiapazon.Address
Else
   MsgBox "Ячейка не содержит формулы массива"
End If

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

Leave a Comment