Kак определить адрес всех ячеек, содержащих формулу массива, исходя из любой ячейки этого массива?
Категория: Basic
2012-08-29 15:36:50
code: #vba
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
Поделиться: