10'a Bölümünden Kalan

[regency]

Slm, 2 adet sorum olucak

* Bir sayının 10'a bölümünden kalanı yazmak için formül ?

Örneğin hücrede 42 yazıyorsa Cevap 2 olacak gibi.

* Bir hücredeki sayının rakamlarını toplamak için formül ?

Örneğin hücrede 24 yazıyorsa Cevap 6 olacak gibi.

(Ama tabi 48 ise mesela 4+8=12 Çıktığından , Tekrar 1+2=3 işlemini yapıp 3 cevabını vermeli)

Yardımlarınız için şimdiden teşekkür ederim, kolay gelsin.

 

[leumruk]

Merhaba,
1. sorunuz için aşağıdaki fonksiyonu dener misiniz?

=C8-(BÖLÜM(C8;10)*10)

 

[regency]

Teşekkürler, denedim oldu.

Asıl kafamı karıştıran 2. soru için de yardımcı olabilirseniz sevinirim.

 

[Merhum İdris SERDAR]

Slm, 2 adet sorum olucak

* Bir sayının 10'a bölümünden kalanı yazmak için formül ?

Örneğin hücrede 42 yazıyorsa Cevap 2 olacak gibi.

* Bir hücredeki sayının rakamlarını toplamak için formül ?

Örneğin hücrede 24 yazıyorsa Cevap 6 olacak gibi.

(Ama tabi 48 ise mesela 4+8=12 Çıktığından , Tekrar 1+2=3 işlemini yapıp 3 cevabını vermeli)

Yardımlarınız için şimdiden teşekkür ederim, kolay gelsin.

.

Birinci sorunuz için:

42 sayısı A1'de ise;

=MOD(A1;10)

İkinci sorunuz için KTF kullanmak gerekir.

Aşağıdaki kodu deneyin.

Function rakamtopla(Number)
    Dim i As Integer
    For i = 1 To Len(Number)
      rakamtopla = rakamtopla + Val(Mid(Number, i, 1))
    Next i
 End Function

=rakamtopla(A1)


.

 

[regency]

Verdiğiniz kod ile başaramadım, muhtemelen kod doğrudur ben başaramamışımdır. #AD? hatası alıyorum.

 

[Orion1]

Verdiğiniz kod ile başaramadım, muhtemelen kod doğrudur ben başaramamışımdır. #AD? hatası alıyorum.

Büyük bir ihtamalle formülün adını yanlış girdiniz.Tekrar kontrol ediniz.

 

[regency]

Biraz uğraşınca başardım saolun yanlız bir eksik var;

Örneğin 45 yazınca 9 variyor - Doğru
Fakat 84 Yazınca 12 veriyor - Yanlış ( 1+2=3 sonucunu vermeli)

 

[Korhan Ayhan]

Selamlar,

Alternatif olarak aşağıdaki kullanıcı tanımlı fonksiyonu denermisiniz.

Kullanım şekli;

[B][COLOR=blue]=RAKAM_TOPLA(A1)[/COLOR][/B]

Option Explicit
 
Function RAKAM_TOPLA(HÜCRE As Range)
    Dim VERİ As Variant, X As Variant, TOPLA As Variant
 
    VERİ = HÜCRE.Value
 
DEVAM:
    For X = 1 To Len(VERİ)
        TOPLA = TOPLA + Val(Mid(VERİ, X, 1))
    Next
 
    If Len(TOPLA) > 1 Then
        VERİ = TOPLA
        TOPLA = 0
        GoTo DEVAM
    End If
 
    RAKAM_TOPLA = TOPLA
End Function