VBA Dictionary Key Value Değerlerini Ters Çevirmek

174 Okunma VBA

"VBA" Programlama dilinde "Dictionary Key Value Değerlerini Ters Çevirmek" ile ilgili kod örneği aşağıda verilmiştir. 

Sub ReverseDict()
    Dim ascii_dict As Scripting.Dictionary
    Set ascii_dict = New Scripting.Dictionary
    ascii_dict.Add "A", 65
    ascii_dict.Add "B", 66
    ascii_dict.Add "C", 67
    ascii_dict.Add "D", 68

    Dim new_dict As Scripting.Dictionary
    Set new_dict = New Scripting.Dictionary
    Dim key As Variant
    For Each key In ascii_dict.Keys()
        new_dict.Add ascii_dict.Item(key), key
    Next key

    Dim item As Variant
    For Each item In new_dict.Items()
        Debug.Print item
    Next item
End Sub
Dictionary Key Value Tes Çevir VBA

İlginizi Çekebilir

VBA Dosya Varsa Oluşturmama

VBA Bir Sayının Mutlak Değerinin Hesaplanması

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

VBA Tam Sayıdaki Rakamları Ters Sırada Gösterme Örneği

VBA Bir String İçinde Başka Bir Stringin Adetini Bulma Örneği