
Большое спасибо!!!!!
Вот теперь все яно!!!!
Модератор: Naeel Maqsudov
Код: Выделить всё
For iRow = 6 To iRows - 1
iData = Cells(iRow, "H")
If IsNumeric(iData) = True Then
iSum = iSum + iData
End If
Next
MsgBox "Сумма ячеек :" & iSum
да, все верно, в строке формул у меня так и отбражается - согласно настроек А$1$. Все отлично работает, просто подумалось, раз уж у меня все формулы в проекте в стиле ссылок А$1$, можно ли записать и эту формулу так.VictorM, формулы Excel отобразит согласно свох настроек А$1$ или R1C1.