VBA Bir String İçindeki Sayıların Toplamını Bulma Örneği

"VBA" Programlama dilinde "Bir String İçindeki Sayıların Toplamını Bulma Örneği" ile ilgili örnek kod aşağıda verilmiştir.

Sub CountDigits()
    Dim input_str As String
    Dim total As Integer
    Dim cnt As Integer
    Dim i As Integer
    input_str = "5:.Yazılım@#8!4..96"
    For i = 1 To Len(input_str)
        If IsNumeric(Mid(input_str, i, 1)) Then
            total = total + Val(Mid(input_str, i, 1))
            cnt = cnt + 1
        End If
    Next i
    MsgBox "Sayıların Toplamı: " & total
End Sub



İlginizi Çekebilir

VBA 1'den 100'e Kadar Çift Sayı Toplam Örneği

VBA Döngü İle Bir Dizideki En Büyük Sayıyı Bulma Örneği

VBA 1'den N'e Kadar Asal Sayıları Bulma Örneği

VBA Bir Stringin Büyük Harfe Çevrilmesi

VBA Rastgele Sayılardan En Büyük ve En Küçüğü Bulma Örneği