Самы
Цитата:
Pride Assa$$in™:
Я понимаю что это наверное просто очень,
|
Конечно просто.
Перебираешь ячейки. Для каждой ячейки меребираешь посимвольно содержание. Если число - складываешь, умножаешь, делишь, вычитаешь.
А лучше прицепи пример.
ну вот так для ячейки можно сделать
rez = 0
'
MsgBox ActiveCell.FormulaR1C1
L = ActiveCell.FormulaR1C1
For i = 1 To Len(L)
If Val(Mid(L, i, 1)) <> 0 Then ' Это условие можно вообще отключить
rez = rez + Val(Mid(L, i, 1))
End If
Next
MsgBox rez
End Sub
работает для текущей ячейки