VBA Bir Sayının Rakamlarının Toplamını Bulma Örneği

"VBA" Programlama dilinde "Bir Sayının Rakamlarının Toplamını Bulma Örneği" ile ilgili örnek kod aşağıda gösterilmiştir.

Sub Main()
    Dim sum As Integer
    sum = 0
    Dim number As Integer
    number = InputBox("Bir Sayı Girin:")
    While number <> 0
        Dim digit As Integer
        digit = number Mod 10
        sum = sum + digit
        number = number \ 10
    Wend
    MsgBox "Rakamların Toplamı: " & sum
End Sub



İlginizi Çekebilir

VBA Dikdörtgenin Alanını Hesaplama Örneği

VBA Tüm Worksheet'lerin Gizliliğini Kaldırmak

VBA Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Örne ...

VBA Bir Dizi Kullanarak N Sayının Toplamını Bulma Örneği

VBA Bir Stringten İlk N Karakteri Kaldırma Örneği