Суммирование в одной ячейке (Excel)
Спасибо!:-?
Цитата:
Originally posted by NetSpider
Каким образом можно организовать суммирование вводимого числа с тем которое уже содержится в ячейке, причем сумма должна записываться в ту же ячейку!!!
Спасибо!:-?
Каким образом можно организовать суммирование вводимого числа с тем которое уже содержится в ячейке, причем сумма должна записываться в ту же ячейку!!!
Спасибо!:-?
Вот вроде работает. Ячейка A4
Dim mysum, waschange
Private Sub Worksheet_Activate()
mysum = [A4].Value
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$A$4" Then Exit Sub
mysum = [A4].Value
waschange = 0
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If waschange = 1 Then Exit Sub
If Target.Address <> "$A$4" Then Exit Sub
waschange = 1
mysum = mysum + [A4].Value
[A4].Value = mysum
End Sub
Спасибо gacol, то что нужно;)