Excel VBA slovar
Z uporabo slovarja VBA lahko v slovarju združimo vse vrste podatkov, da dobimo dostop do vseh elementov z eno spremenljivko. Slovar lahko uporabimo za ustvarjanje zbirke kombinacij ključ-vrednost. Ko je objekt povezan s ključi, jih lahko pozneje pokličemo samo z imenom ključa.
V slovar VBA je zelo težko vstopiti, vendar se bomo potrudili po svojih najboljših močeh, da ga boste lažje razumeli. Slovar in zbirko lahko primerjamo v istem merilu, vendar nekateri slovarji VBA ponujajo nekatere funkcije, ki niso na voljo v objektu VBA Collections.
Delo s slovarji VBA
Za delo s slovarji VBA moramo najprej nastaviti referenco predmeta na »Microsoft Scripting Runtime«.
Če želite nastaviti referenco, sledite spodnjim korakom.
1. korak: Pojdite na Orodja> Reference.
2. korak: Pomaknite se navzdol in izberite možnost »Microsoft Scripting Runtime« in kliknite v redu.
Zdaj lahko dostopamo do slovarja VBA s skriptno knjižnico.
Ustvari primerek slovarja s kodo VBA
Po nastavitvi sklica na "Microsoft Scripting Runtime" moramo ustvariti primerek slovarja VBA. Najprej spremenljivko razglasite kot Scripting.Dictionary.
Koda:
Sub Dict_Example1 () Dim Dict As Scripting. Slovar End Sub
Zdaj je spremenljivka "Dict" predmetna spremenljivka. Za spremenljivko predmeta moramo referenco na objekt nastaviti z besedo »Novo«.
Set Dict = New Scripting.S Dictionary
Zdaj lahko dostopamo do vseh lastnosti in metod slovarja.
Zdaj eno spremenljivko razglasite kot DictResult.
Dim DictResult As Variant
Zdaj s pomočjo spremenljivke "Dict" bomo ustvarili nov ključ.
Ključno je, kaj je beseda, ki jo dodajamo. Dodajmo ime mobilnega telefona kot »Redmi«.
Element ni nič drugega kot definicija besede ( ključa ), ki smo jo dodali. Ta definicija telefona je njegova cena, zato bom ceno dodal na 15000.
Zdaj bomo za drugo spremenljivko »DictResult« dodali ključno besedo s spremenljivko »Dict«.
Ključ je beseda, ki smo jo ustvarili v prejšnjem koraku, tj. Ime telefona.
Zdaj ima spremenljivka "DictResult" element ključa, ki smo ga dodali. Zdaj prikaži rezultat spremenljivke v polju za sporočila VBA.
Koda:
Sub Dict_Example1 () Dim Dict As Scripting.Dictionary Set Dict = New Scripting.Dictionary Dim DictResult As Variant Dict.Add Key: = "Redmi", Item: = 15000 DictResult = Dict ("Redmi") MsgBox DictResult End Sub
Zdaj zaženite kodo ročno ali s tipko F5 in v oknu za sporočilo se bo prikazala cena ( kos ) telefona ( ključa ), ki smo ga dodali s pomočjo »Dict«.
Razumevanje KLJUČEV IN POSTAVK
Če niste razumeli KLJUČA IN POSTAVKE, naj vam razložim s preprostim primerom. Predstavljajte si resnični slovar. V tem slovarju imamo besede (tipke) in njihov pomen (element). Podobno so besede tipke, definicija ali pomen pa je postavka.
Zdaj pa si oglejte še en primer slovarja. Predpostavimo, da iščete telefonsko številko določene osebe. Kako iščete?
Očitno smo z uporabo imena uporabili med shranjevanjem telefonske številke. Tu imamo dve stvari, eno je ime osebe, drugo pa telefonska številka.
Ime osebe je Ključ.
Telefonska številka je točka.
Če želite primer Excela, lahko za primer navedemo VLOOKUP. S formulo iščemo vrednosti, ki temeljijo na LOOKUP VALUE (Key). Rezultat, ki ga vrne funkcija VLOOKUP, se imenuje Element.
Preverite, ali je mobilni telefon tam ali ne.
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.D Dictionary Dim DictResult As Variant Set PhoneDict = New Scripting.Dictionary PhoneDict.Add Key: = "Redmi", Item: = 15000 PhoneDict.Add Key: = "Samsung", Item: = 25000 PhoneDict .Dodaj ključ: = "Oppo", postavka: = 20000 PhoneDict. Dodaj ključ: = "VIVO", postavka: = 21000 PhoneDict. Dodaj ključ: = "Jio", postavka: = 2500 DictResult = Application.InputBox (poziv: = "Prosimo, vnesite ime telefona") Če PhoneDict.Exists (DictResult), potem MsgBox "Cena telefona" & DictResult & "je:" & PhoneDict (DictResult) El MsgBox "Telefon, ki ga iščete, ne obstaja v Knjižnica "End If End Sub
Zaženite to kodo s tipko F5 ali ročno in si oglejte rezultat.
