Hücreye veri toplattırmak

[issever]

Arkadaşlar selam,

Şimdi yardım alarak tablo hazırladım, sağolun.

Bazı kalemlere veri girerken toplamak çıkartmak falan gerekiyor.

Hiç hesap makinesiyle uğraşmadan, 35+40+20 gibi değerleri girdirterek hücrenin kendisine 95 değerini verdirtmek mümkün mü?

 

[Muzaffer Ali]

başına eşittir işareti eklersen olur

=35+40+20 şeklinde

 

[Seyit Tiken]

Bu şekilde bir deneyiniz.

Dim dAccumulator As Double

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
With Target
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
dAccumulator = dAccumulator + .Value
Else
dAccumulator = 0
End If
Application.EnableEvents = False
.Value = dAccumulator
Application.EnableEvents = True
End With
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
dAccumulator = Target
End Sub