Excel VBA vārdnīca
Izmantojot VBA vārdnīcu, mēs varam sagrupēt visu veidu datus vārdnīcā, lai piekļūtu visiem vienumiem ar vienu mainīgo. Mēs varam izmantot vārdnīcu, lai izveidotu galveno vērtību kombināciju kolekciju. Kad objekts ir saistīts ar atslēgām, vēlāk mēs tos varam izsaukt, vienkārši izmantojot atslēgas nosaukumu.
VBA vārdnīcai ir ļoti grūti iekļūt, taču mēs centīsimies vislabāk, lai jums būtu viegli saprast. Mēs varam salīdzināt gan vārdnīcu, gan kolekciju vienā mērogā, taču dažas no VBA vārdnīcām piedāvā dažas funkcijas, kas nav pieejamas ar objektu VBA kolekcijas.
Darbs ar VBA vārdnīcām
Lai strādātu ar VBA vārdnīcām, mums vispirms ir jāiestata objekta atsauce uz “Microsoft Scripting Runtime”.
Lai iestatītu atsauci, veiciet tālāk norādītās darbības.
1. darbība: dodieties uz Rīki> Atsauces.
2. solis: ritiniet uz leju un atlasiet opciju “Microsoft Scripting Runtime”, pēc tam noklikšķiniet uz Labi.
Tagad mēs varam piekļūt VBA vārdnīcai ar skriptu bibliotēku.
Izveidot vārdnīcas instanci ar VBA kodu
Pēc atsauces iestatīšanas uz “Microsoft Scripting Runtime” mums jāizveido VBA vārdnīcas eksemplārs. Vispirms deklarējiet mainīgo kā Scripting.Dictionary.
Kods:
Sub Dict_Example1 () Dim Dict kā skriptu. Vārdnīcas beigu apakšsadaļa
Tagad mainīgais “Dict” ir objekta mainīgais. Objekta mainīgajam mums jāiestata objekta atsauce, izmantojot vārdu “New”.
Iestatiet Dict = New Scripting.Dictionary
Tagad mēs varam piekļūt visām vārdnīcas īpašībām un metodēm.
Tagad deklarējiet vienu mainīgo kā DictResult.
Dim DictRezultāts kā variants
Izmantojot mainīgo “Dict”, mēs izveidosim jaunu atslēgu.
Galvenais ir tas, kuru vārdu mēs pievienojam. Pievienosim mobilā tālruņa nosaukumu kā “Redmi”.
Vienums nav nekas cits kā pievienotā vārda ( atslēgas ) definīcija . Šī tālruņa definīcija ir tā cena, tāpēc cenu pievienošu 15000.
Tagad par citu mainīgo “DictResult” mēs pievienosim atslēgvārdu, izmantojot mainīgo “Dict”.
Atslēga ir vārds, kuru esam izveidojuši iepriekšējā solī, ti, tālruņa nosaukums.
Tagad mainīgajam “DictResult” ir pievienotā atslēga. Tagad VBA ziņojumu lodziņā parādiet mainīgā rezultātu.
Kods:
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
Tagad palaidiet kodu manuāli vai izmantojot taustiņu F5, un ziņojumu lodziņā tiks parādīta tā tālruņa ( atslēgas ) cena ( prece ), kuru esam pievienojuši, izmantojot “Dict”.
Izpratne par ATSLĒGU UN ITEMU
Ja neesat sapratis ATSLĒGU UN ITEM, ļaujiet man paskaidrot jums ar vienkāršu piemēru. Iedomājieties reālās pasaules vārdnīcu. Ar šo vārdnīcu mums ir vārdi (atslēgas) un šo vārdu nozīme (vienums). Līdzīgi vārdi ir atslēgas, un definīcija vai nozīme ir vienums.
Apskatiet vēl vienu vārdnīcas piemēru. Pieņemsim, ka meklējat konkrētas personas tālruņa numuru. Kā jūs meklējat?
Acīmredzot, izmantojot vārdu, mēs to izmantojām, saglabājot tālruņa numuru. Šeit mums ir divas lietas, viena ir personas vārds un otrais ir tālruņa numurs.
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 kā skripts. Vārdnīca Dim DictResult As Variant Set PhoneDict = New 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 (uzvedne: = "Lūdzu, ievadiet tālruņa nosaukumu") Ja pastāv PhoneDict.Exist (DictResult), tad MsgBox "Tālruņa cena" & DictResult & "ir:" & PhoneDict (DictResult) Vēl MsgBox "Tālrunis, kuru meklējat, nepastāv. Bibliotēka "Beigt, ja beigas Apakšgrupa
Palaidiet šo kodu, izmantojot F5 taustiņu vai manuāli, un skatiet rezultātu.
