VBA Bir Stringin Ortadaki Üç Karakterini Bulma Örneği

"VBA" Programlama dilinde "Bir Stringin Ortadaki Üç Karakterini Bulma Örneği" ile ilgili örnek kod aşağıda verilmiştir.

Sub GetMiddleThreeChars(ByVal str1 As String)
    Debug.Print "Orjinal String: " & str1
    
    Dim mi As Integer
    mi = Len(str1) / 2
    
    Dim res As String
    res = Mid(str1, mi, 3)
    
    Debug.Print "Ortadaki Üç Karakter: " & res
End Sub

Sub Test()
    Call GetMiddleThreeChars("Yazilim")
    Call GetMiddleThreeChars("Yazilimi Çok Seviyorum")
End Sub



İlginizi Çekebilir

VBA Döngü Kullanarak Fibonacci Serisi Yazdırma Örneği

VBA Dört İşlem Yapan Örnek

VBA Bir Dizi Tam Sayının Ortalamasını Bulma

VBA Tüm Gizli Satır ve Sütunları Görünür Hale Getirmek

VBA Öğrenmenin Avantajları Nelerdir?