VBA Dictionary Key Value Değerlerini Ters Çevirmek
"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