seychellesartprojects.org

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ā un tajā pašā 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.

Šo VBA Dictionary Excel veidni varat lejupielādēt šeit - VBA Dictionary Excel Template

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.

Piezīme: Visi ar zaļo taustiņu vārdi ir Metodes un citi ir Rekvizīti.

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, kas ir vārds, kuru 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 es pievienošu cenu 15000.

Tagad attiecībā uz 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ņojuma lodziņā tiks parādīta tālruņa ( atslēgas ) cena ( prece ), kuru esam pievienojuši, izmantojot “Dict”.

Izpratne par ATSLĒGU UN ITEM

Ja neesat sapratis ATSLĒGU UN PUNKTU, ļ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, kuru esam izmantojuši, saglabājot tālruņa numuru. Šeit mums ir divas lietas, viena ir personas vārds un otrais ir tālruņa numurs.

Personas vārds ir atslēga.

Tālruņa numurs ir punkts.

Ja vēlaties Excel piemēru, kā piemēru varam norādīt VLOOKUP. Mēs izmantojam formulu, lai meklētu vērtības, pamatojoties uz LOOKUP VALUE (Key). Funkcijas VLOOKUP atgriezto rezultātu sauc par Vienumu.

Pārbaudiet, vai mobilais tālrunis ir vai nav

Iedomājieties, ka klientiem dodat lietotāja veidlapu, lai pārbaudītu mobilā tālruņa cenu ar vienkāršu ievades lodziņu. Zem Excel VBA koda lietotāja priekšā tiks parādīts ievades lodziņš, un viņam jāievada meklētā tālruņa zīmols. Ja vārdnīcā ir zīmola nosaukums, tas parādīs attiecīgā tālruņa cenu vai arī tas būs parādīt ziņojumu kā “Meklējamais tālrunis bibliotēkā nepastāv”.

Kods:

 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.