Hücre içinde formülsüz toplam

[rumuz]

Sayın arkadaşlar

hücre içerisine örn; 6*150
5*100
10*50
........
Genel toplam 1900 tl gibi olabilir mi

hücre içerisine formül yazmadan ama kendi içinde yazılan rakamları çarparak sonucu oluşturup genel toplama gerçek değeri yazmak.
Yardımcı olursanız sevinirim.

 

[Asri]

En basit yolu ile her hücrede eşittir ile başlamak olacaktır. =6*150

Kod ile yapılmak istenirse, A sütünu için aşağıdaki şekilde yapılabilir.
10*10 yada
10*10*10*10*10 gibide kullanabilir siniz.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A1:A10000")) Is Nothing Then Exit Sub

    If InStr(Target.Value, "*") > 0 Then
       deg = Split(Target.Value, "*")
       For i = 0 To UBound(deg)
          If i = 0 Then toplam = deg(i) Else toplam = toplam * deg(i)
       Next i
       Cells(Target.Row, Target.Column).Value = toplam
    End If
          
End Sub