Excel VBA szótár
A VBA Dictionary segítségével mindenféle adatot csoportosíthatunk egy szótárba, hogy egyetlen elemhez hozzáférhessünk egyetlen változóval. A szótár segítségével létrehozhatunk kulcs-érték kombinációk gyűjteményét. Miután az objektum összekapcsolódott kulcsokkal, később a kulcs nevének használatával hívhatjuk meg őket.
A VBA szótár nagyon nehéz bejutni, de megpróbáljuk a legjobban a szintünket, hogy könnyebben megértsük. Ugyanazon skálán összehasonlíthatjuk a Szótárat és a Gyűjteményt is, de néhány VBA szótár olyan funkciókat kínál, amelyek nem érhetők el a VBA Gyűjtemények objektummal.
Munka a VBA szótárakkal
Ahhoz, hogy a VBA szótárakkal dolgozzunk, először meg kell tennünk, hogy az objektum hivatkozást "Microsoft Scripting Runtime" -re állítsuk.
A referencia beállításához kövesse az alábbi lépéseket.
1. lépés: Lépjen az Eszközök> Hivatkozások elemre.
2. lépés: Görgessen lefelé, válassza ki a „Microsoft Scripting Runtime” opciót, majd kattintson az OK gombra.
Most hozzáférhetünk a VBA szótárhoz a Scripting Library segítségével.
Hozzon létre szótár példányát VBA kóddal
A „Microsoft Scripting Runtime” hivatkozás beállítása után létre kell hoznunk a VBA szótár egy példányát. Először deklarálja a változót Scripting.Dictionary néven.
Kód:
Sub Dict_Példa1 () Dim Dict parancsfájlként. Szótár End Sub
Most a „Dict” változó egy objektumváltozó. Az objektumváltozóhoz meg kell adnunk az objektum hivatkozást az „Új” szó használatával.
Állítsa be a Dict = New Scripting.Dictionary szót
Most hozzáférhetünk a szótár összes tulajdonságához és módszeréhez.
Most deklaráljon egy változót DictResult néven.
Dim DictResult As Variant
Most a „Dict” változóval létrehozunk egy új kulcsot.
A legfontosabb , hogy mi az a szó, amelyet hozzáadunk. Adjuk hozzá a mobiltelefon nevét „Redmi” néven.
Az elem nem más, mint a hozzáadott szó ( kulcs ) meghatározása . A telefonnak ez a meghatározása az ára, ezért hozzáadom az árat 15000-hez.
Most egy másik változó, a „DictResult” kapcsán hozzáadunk egy kulcsszót a „Dict” változóval.
A kulcs az előző lépésben létrehozott szó, azaz a telefon neve.
Most a „DictResult” változóban megtalálható az a kulcs, amelyet hozzáadtunk. Most mutassa meg a változó eredményét a VBA üzenetmezőben.
Kód:
Sub Dict_Example1 () Dim Dict Scripting.Dictionary Set Dict = New Scripting.Dictionary Dim DictResult As Variant Dict.Add Key: = "Redmi", Item: = 15000 DictResult = Dict ("Redmi") MsgBox DictResult End Sub
Most futtassa a kódot manuálisan vagy az F5 billentyű használatával, és egy üzenetmező megmutatja a telefon ( kulcs ) árát ( tételét ), amelyet hozzáadtunk a „Dict” használatával.
A KULCS & TÉTEL megértése
Ha még nem értette a KEY & ITEM elemet, hadd magyarázzam el Önnek egy egyszerű példával. Képzeljen el egy valós szótárt. Ezzel a szótárral rendelkezünk szavakkal (kulcsok) és e szavak jelentésével (elem). Hasonlóképpen, a szavak kulcsok, és a meghatározás vagy a jelentés az elem.
Most nézzen meg egy szótárat. Tegyük fel, hogy egy adott személy telefonszámát keresi. Hogyan keres?
Nyilvánvaló, hogy a név használatával a telefonszám mentése során használtuk. Itt két dolog van, az egyik a személy neve, a másik pedig a telefonszám.
The name of the Person is Key.
The Phone Number is Item.
If you want the example of Excel, we can give VLOOKUP as an example. We use the formula to look for values based on the LOOKUP VALUE (Key). The result returned by the VLOOKUP function is called Item.
Check Whether the Mobile Phone is there or not.
Imagine you are giving a user form to your customers to check the mobile phone’s price with a simple input box. Below Excel VBA code will present an Input Box in front of the user, and they need to enter the brand of the phone they are looking for. If the brand name is there in the dictionary, it will show the price of the respective phone, or else it will display the message as “Phone You are Looking for Doesn’t Exist in the Library.”
Code:
Sub Dict_Example2 () Dim PhoneDict Scripting.Dictionary Dim DictResult As Variant Set PhoneDict = Új Scripting.Dictionary PhoneDict.Add Key: = "Redmi", Item: = 15000 PhoneDict.Add Key: = "Samsung", Item: = 25000 PhoneDict .Add Key: = "Oppo", Item: = 20000 PhoneDict.Add Key: = "VIVO", Item: = 21000 PhoneDict.Add Key: = "Jio", Item: = 2500 DictResult = Application.InputBox (Prompt: = "Kérjük, adja meg a telefon nevét") Ha a PhoneDict.Exist létezik (DictResult), akkor az MsgBox "A telefon ára" & DictResult & ": Könyvtár "Vége, ha Vége al
Futtassa ezt a kódot az F5 billentyűvel vagy manuálisan, és tekintse meg az eredményt.
