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 Guid Yaratmak

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

VBA Dosya Silme

VBA Tüm Gizli Satır ve Sütunları Görünür Hale Getirmek

VBA Bir Sayının Faktöriyelini Bulma Örneği