Excel VBA ordbog
Ved hjælp af VBA Dictionary kan vi gruppere alle slags data i en ordbog for at få adgang til alle elementerne med en enkelt variabel. Vi kan bruge ordbogen til at oprette en samling nøgleværdikombinationer. Når objektet er linket til nøgler senere, kan vi kalde dem ved blot at bruge nøglenavnet.
VBA Dictionary er meget svært at komme ind, men vi vil prøve vores niveau bedst for at gøre det let for dig at forstå. Vi kan sammenligne både ordbog og samling på samme skala, men nogle af VBA-ordbøgerne tilbyder nogle af de funktioner, der ikke er tilgængelige med VBA Collections-objektet.
Arbejde med VBA-ordbøger
For at arbejde med VBA Dictionaries er det første, vi skal gøre, at sætte objektreferencen til 'Microsoft Scripting Runtime.'
For at indstille henvisningen til at følge nedenstående trin.
Trin 1: Gå til Værktøjer> Referencer.
Trin 2: Rul ned, og vælg 'Microsoft Scripting Runtime', og klik derefter på ok.
Nu kan vi få adgang til VBA Dictionary med Scripting Library.
Opret forekomst af ordbog med VBA-kode
Efter at have sat henvisningen til 'Microsoft Scripting Runtime' skal vi oprette en forekomst af VBA Dictionary. Forklar først variablen som Scripting.Dictionary.
Kode:
Sub Dict_Example1 () Dim Dict as Scripting.Diction End Sub
Nu er variablen “Dict” en objektvariabel. For objektvariablen skal vi indstille objektreferencen ved hjælp af ordet "Ny".
Set Dict = New Scripting.Dictionary
Nu kan vi få adgang til alle egenskaberne og metoderne i ordbogen.
Erklær nu en variabel som DictResult.
Dim DictResult Som Variant
Nu bruger vi “Dict” -variablen, opretter vi en ny nøgle.
Nøglen er, hvad ordet, vi tilføjer, er. Lad os tilføje navnet på mobiltelefonen som "Redmi."
Element er intet andet end definitionen af det ord ( nøgle ), vi har tilføjet. Denne definition af telefonen er dens pris, så jeg vil føje prisen til 15000.
Nu til en anden variabel, "DictResult", vil vi tilføje et nøgleord ved hjælp af "Dict" -variablen.
Nøglen er det ord, vi har oprettet i det forrige trin, dvs. navnet på telefonen.
Nu har variablen “DictResult” det element af nøglen, vi har tilføjet. Vis nu resultatet af variablen i VBA-meddelelsesfeltet.
Kode:
Sub Dict_Example1 () Dim Dict Som Scripting.Diction Set Dict = New Scripting.Diction Dim DictResult As Variant Dict.Add Key: = "Redmi", Item: = 15000 DictResult = Dict ("Redmi") MsgBox DictResult End Sub
Kør nu koden manuelt eller ved hjælp af F5-tasten, og en meddelelsesboks viser dig prisen ( varen ) på den telefon ( nøgle ), vi har tilføjet ved hjælp af "Dict".
Forstå KEY & ITEM
Hvis du ikke har forstået KEY & ITEM, så lad mig forklare dig med et simpelt eksempel. Forestil dig en ordbog fra den virkelige verden. Med denne ordbog har vi ord (nøgler) og betydningen af disse ord (element). Tilsvarende er ord nøgler, og definition eller betydning er varen.
Se nu på endnu et eksempel på en ordbog. Antag, at du søger efter et telefonnummer til en bestemt person. Hvordan søger du?
Det er klart, at vi ved at bruge navnet har brugt det, mens vi gemte telefonnummeret. Her har vi to ting, den ene er personens navn, og den anden er telefonnummeret.
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 Som Scripting.Diction Dim DictResult Som 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 (Prompt: = "Indtast venligst telefonnavnet") Hvis PhoneDict.Exists (DictResult) Så er MsgBox "Telefonens pris" & DictResult & ":" & PhoneDict (DictResult) Ellers MsgBox "Telefon, du leder efter, findes ikke i Bibliotek "Afslut, hvis slut sub
Kør denne kode ved hjælp af F5-tasten eller manuelt og se resultatet.
