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

300 Okunma VBA

"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
String Sayı Toplam İçinde Rakam VBA

İlginizi Çekebilir

VBA Bir Sayının Tek Mi Çift Mi Olduğunu Göstermek

VBA Bir Stringin İlk Orta ve Son Karakterini Alma Örneği

VBA Bir Stringin Küçük Harfe Çevrilmesi

VBA Dosya Oluşturma

VBA Worksheet'leri Alfabetik Sıraya Sokmak