VBA Dictionary Key Value Değerlerini Ters Çevirmek

63 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 Bugünün Tarihini Getirmek

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

VBA Dosyanın Güncelleme Tarihini Değiştirme

VBA Tek Satırda If Else Yazmak

VBA 1 İle 100 Arasında 3'e Bölünebilenleri Bulma Örneği