bir hücredeki sayıyı kendi içinde toplama

[ttkas]

örneğin bir hücredeki sayı 149 olsun , bunu 1+4+9 = 13 şeklinde toplatmak istiyorum , ilgilenenlere teşekkürler

 

[Ali]

Aşağıdaki linki inceleyiniz.

aynı hücrede çoklu toplam

.

 

[Orion1]

Aşağıdaki kodu bir standart modüle kopuyalayınız.
Kullanışılı
=kendini_topla(A1)

Function kendini_topla(sayi As Range) As Long
Dim tpl As Long, i As Byte
MsgBox Len(sayi)
For i = 1 To Len(sayi)
tpl = tpl + CInt(Mid(sayi, i, 1))
Next
kendini_topla = tpl
End Function

 

[Necdet]

Merhaba,

Bir örnekte benden olsun,

Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayıp dener misiniz?

A sütunu için geçerlidir, gerekirse siz kendinize göre uyarlayınız.

Makrosuz çözüm isterseniz Rakamın Digitlerini Toplama linkini inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
If IsNumeric(Target.Value) = False Then Exit Sub
Dim i As Integer
Dim Toplam As Integer
Application.EnableEvents = False
    For i = 1 To Len(Target.Value)
        Toplam = Toplam + Mid(Target.Value, i, 1) + 0
    Next i
    Target.Value = Toplam
Application.EnableEvents = True
Son:
End Sub