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 Tüm Kolonları Auto Fit Yapmak

VBA Bugünün Tarihini Getirmek

VBA Aktif Olan Dışındaki Tüm Worksheet'leri Gizlemek

VBA Yarıçap Girilen Bir Dairenin Çevre ve Alanını Bulma Örneği

VBA Bir Stringi Ters Çevirmek