Excel VBA rječnik
Korištenjem VBA rječnika možemo grupirati sve vrste podataka u rječniku kako bismo dobili pristup svim stavkama s jednom varijablom. Rječnik možemo koristiti za stvaranje zbirke kombinacija ključ / vrijednost. Jednom kada je objekt povezan s ključevima, kasnije ih možemo nazvati samo pomoću naziva ključa.
VBA rječnik vrlo je teško ući unutra, ali mi ćemo se potruditi na najbolji način da vam olakšamo razumijevanje. Možemo usporediti i Rječnik i Zbirku na istoj ljestvici, ali neki od VBA rječnika nude neke funkcionalnosti koje nisu dostupne s objektom VBA Zbirke.
Rad s VBA rječnicima
Da bismo mogli raditi s VBA rječnicima, prvo što moramo učiniti je postaviti referencu objekta na "Microsoft Scripting Runtime".
Da biste postavili referencu, slijedite korake u nastavku.
Korak 1: Idite na Alati> Reference.
Korak 2: Pomaknite se prema dolje i odaberite opciju 'Microsoft Scripting Runtime', a zatim kliknite ok.
Sada možemo pristupiti VBA rječniku s bibliotekom skriptiranja.
Stvorite primjerak rječnika s VBA kodom
Nakon postavljanja reference na 'Microsoft Scripting Runtime', moramo stvoriti instancu VBA rječnika. Prvo deklarirajte varijablu kao Scripting.Dictionary.
Kodirati:
Sub Dict_Example1 () Dim Dict As Scripting.Rječnik Kraj Sub
Sada je varijabla "Dict" objektna varijabla. Za objektnu varijablu moramo postaviti referencu na objekt pomoću riječi "Novo".
Postavi dikt = Novo skriptiranje.Rječnik
Sada možemo pristupiti svim svojstvima i metodama rječnika.
Sada jednu varijablu deklarirajte kao DictResult.
Dim DictResult As Variant
Sada ćemo pomoću varijable "Dict" stvoriti novi ključ.
Ključ je ono što je riječ koju dodajemo. Dodajmo naziv mobitela kao "Redmi".
Stavka nije ništa drugo doli definicija riječi ( ključa ) koju smo dodali. Ova definicija telefona je njegova cijena, pa ću dodati cijenu na 15000.
Sada ćemo za drugu varijablu, "DictResult", dodati ključnu riječ pomoću varijable "Dict".
Ključ je riječ koju smo stvorili u prethodnom koraku, tj. Ime telefona.
Sada varijabla "DictResult" ima stavku ključa koji smo dodali. Sada prikaži rezultat varijable u okviru VBA poruke.
Kodirati:
Sub Dict_Example1 () Dim Dict As Scripting.Dictionary Set Dict = New Scripting.D rečnik Dim DictResult As Variant Dict.Add Key: = "Redmi", Item: = 15000 DictResult = Dict ("Redmi") MsgBox DictResult End Sub
Sada pokrenite kôd ručno ili pomoću tipke F5, a okvir za poruku prikazat će vam cijenu ( stavku ) telefona ( ključa ) koji smo dodali pomoću "Dict".
Razumijevanje KLJUČA I STAVA
Ako niste razumjeli KLJUČ I STAV, dopustite mi da vam objasnim na jednostavnom primjeru. Zamislite rječnik iz stvarnog svijeta. Uz ovaj rječnik imamo riječi (ključeve) i značenje tih riječi (stavka). Slično tome, riječi su tipke, a definicija ili značenje je stavka.
Sada, pogledajte još jedan primjer Rječnika. Pretpostavimo da tražite telefonski broj određene osobe. Kako pretražujete?
Očito smo, koristeći ime, koristili dok smo spremali telefonski broj. Ovdje imamo dvije stvari jedna je ime osobe , a druga telefonski broj.
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 As Scripting.Dictionary Dim DictResult As Variant Set PhoneDict = Novo Scripting.Dictionary PhoneDict.Add Key: = "Redmi", Item: = 15000 PhoneDict.Add Key: = "Samsung", Item: = 25000 PhoneDict .Dodaj ključ: = "Oppo", Stavka: = 20000 PhoneDict.Dodaj ključ: = "VIVO", Stavka: = 21000 PhoneDict.Dodaj ključ: = "Jio", Stavka: = 2500 DictResult = Application.InputBox (Prompt: = "Molimo unesite ime telefona") Ako PhoneDict.Exists (DictResult), tada MsgBox "Cijena telefona" & DictResult & "je:" & PhoneDict (DictResult) El MsgBox "Telefon koji tražite ne postoji u Biblioteka "End If End Sub
Pokrenite ovaj kod pomoću tipke F5 ili ručno i pogledajte rezultat.
