Binlerce satırlık iki listeyi karşılaştırmak için iç içe döngü kurarsanız Excel donar. Scripting.Dictionary nesnesi ise bunu ışık hızında yapar.
Neden Kullanılır?
Dictionary, verileri "Anahtar" ve "Değer" olarak hafızada tutar. Bir verinin var olup olmadığını (Exists) milisaniyede kontrol eder.
Kullanım Örneği
Dim dict As Object
Set dict = CreateObject("Scripting.Dictionary")
dict.Add "Ahmet", 100 'Ahmet'i ekle
If dict.Exists("Ahmet") Then MsgBox "Ahmet listede var!"
Set dict = CreateObject("Scripting.Dictionary")
dict.Add "Ahmet", 100 'Ahmet'i ekle
If dict.Exists("Ahmet") Then MsgBox "Ahmet listede var!"
Mükerrer kayıtları bulmak veya iki listeyi kıyaslamak için en profesyonel yöntemdir.
Yorum Yap