VBA Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Örneği

"VBA" Programlama dilinde "Bir Dictionary'i Filtreleyip Yeni Bir Dictionary Yaratma Örneği" ile ilgili örnek kod aşağıda gösterilmiştir.

Sub main()
    Dim d1 As Object
    Set d1 = CreateObject("Scripting.Dictionary")
    d1("A") = 65
    d1("B") = 66
    d1("C") = 67
    d1("D") = 68
    d1("E") = 69
    d1("F") = 70

    Dim l1 As Variant
    l1 = Array("A", "C", "F")

    Dim new_dict As Object
    Set new_dict = CreateObject("Scripting.Dictionary")

    Dim key As Variant
    For Each key In l1
        new_dict(key) = d1(key)
    Next key

    Dim item As Variant
    For Each item In new_dict.Items
        Debug.Print item
    Next item
End Sub



İlginizi Çekebilir

VBA Text Wrap Kaldırma

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

VBA 1'den 100'e Kadar Asal Sayı Toplam Örneği

VBA Bir Stringin Küçük Harfe Çevrilmesi

VBA Üç Kenarı Verilen Bir Üçgenin Alanını Bulma