Написал пользовательскую функцию. За основу взял пример из книги по использованию FindNext.
По моей идее эта функция ищет в диапазоне ячейки, в которых формула начинается с "=СУММ(" и суммирует значения этих ячеек.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Function SummaSumm(rngInput As Range) As Double
Dim firstAddress As String
Dim rng As Range
SummaSumm = 0
Set rng = rngInput.Find( _
What:="=СУММ(", LookIn:=xlFormulas, _
LookAt:=xlPart, MatchCase:=False)
If Not (rng Is Nothing) Then
firstAddress = rng.Address
Do
SummaSumm = SummaSumm + rng.Value
Set rng = rngInput.FindNext(rng)
'Здесь почему-то не воспринимается rngInput.FindNext(rng)
Loop While Not (rng Is Nothing) And rng.Address <> firstAddress
End If
End Function
Отлаживаю это дело.
Первая инструкция Find работает нормально. Функции SummaSumm присваивается значение 2.
Потом доходит в первом циклом до строчки
и вылетает.
