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

64 Okunma VBA

"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
Dictionary Yarat Filtre Yeni Dizi VBA

İlginizi Çekebilir

VBA Bir Dizi Gerçek Sayının Çarpımını Bulma Örneği

VBA Fibonacci Serisinde N'inci Terimi Bulma Örneği

VBA Bir Listede Birden Çok Olan Elemanları Göstermek

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

VBA Bir Sayının Rakamlarının Toplamını Bulma Örneği