hücre içinde seçip toplam alma

[burak]

slm

a1 hücresinde " 2+1 " yazılı
a2 de " 2 " yazılı
a3 de " 3+1 yazılı
sonuçun 7+2 olması çok mu zor ? yoksa makro mu gerektirir.

Cevaplar için şimdiden teşekkür ederim.

 

[bedersu]

=topla(topla(parÇaal(a1;1;1);parÇaal(a1;3;1));topla(parÇaal(a3;1;1);parÇaal(a3;3;1))) & "+" & A2

 

[burak]

1-2 satır için olabilirde 20-30 satır için bu şekilde yapmam zor.
İlgin için tşk.ederim.

 

[bedersu]

o zaman makroyla bir çözüm arayacağız ama tam olarak koşulun ne olduğunun belli olması lazım çünkü 30 satırda hangi hücrelerden hangi sayıların alınacağının belli olması lazım.Bu şkilde bir açıklama getirirseniz yardımcı olmaya çalışırız.

 

[burak]

İlginize teşekkür ederim.
A sutununda 1'den 30' kadar A31 de de toplamı,
yada 13'e kadar A14 de toplam olabilir. ; satır sayısı değişken yani.

Hücre değerleri 2+1 , 3+1 yada 2 , 3 , 1 gibi onlarda değişken.Ama sadece 2 tip.
Makrosuz olması çok işime gelir ama napalım...

 

[bedersu]

şu kodları dener misiniz?

Sub toplam()
For i = 1 To WorksheetFunction.CountA(Range("A:A"))
aa = Right(Cells(1, i), 1)
If Cells(i, 1).Characters.Count > 1 Then ai = WorksheetFunction.Sum(Mid(Cells(i, 1), 1, 1), Right(Cells(i, 1), 1))
If Cells(i, 1).Characters.Count = 1 Then ai = Cells(i, 1)
toplam = toplam + ai
Next i
Cells(i, 1) = toplam
End Sub