Excel VBA-ordbok
Ved hjelp av VBA Dictionary kan vi gruppere alle slags data i en ordbok for å få tilgang til alle elementene med en enkelt variabel. Vi kan bruke ordboken til å lage en samling nøkkelverdikombinasjoner. Når objektet er koblet til nøkler, senere, kan vi ringe dem ved å bare bruke nøkkelnavnet.
VBA Dictionary er veldig vanskelig å komme inn, men vi vil prøve vårt beste for å gjøre det enkelt for deg å forstå. Vi kan sammenligne både ordbok og samling på samme skala, men noen av VBA-ordbøkene tilbyr noen av funksjonene som ikke er tilgjengelige med VBA Collections-objektet.
Arbeide med VBA Dictionaries
For å jobbe med VBA Dictionaries, må vi først sette objektreferansen til 'Microsoft Scripting Runtime.'
For å sette referansen til å følge trinnene nedenfor.
Trinn 1: Gå til Verktøy> Referanser.
Trinn 2: Bla ned og velg alternativet 'Microsoft Scripting Runtime', og klikk deretter ok.
Nå kan vi få tilgang til VBA Dictionary med Scripting Library.
Lag forekomst av ordbok med VBA-kode
Etter å ha satt referansen til 'Microsoft Scripting Runtime', må vi opprette en forekomst av VBA Dictionary. Forklar først variabelen som Scripting.Dictionary.
Kode:
Sub Dict_Example1 () Dim Dict As Scripting.Diction End Sub
Nå er variabelen “Dict” en objektvariabel. For objektvariabel må vi stille inn objektreferansen ved å bruke ordet "Ny".
Set Dict = New Scripting.Diction
Nå kan vi få tilgang til alle egenskapene og metodene i ordboken.
Nå erklær en variabel som DictResult.
Dim DictResult As Variant
Nå bruker vi "Dict" -variabelen, og vi oppretter en ny nøkkel.
Nøkkelen er hva ordet vi legger til er. La oss legge til mobiltelefonnavnet som “Redmi.”
Element er ikke annet enn definisjonen av ordet ( nøkkel ) vi har lagt til. Denne definisjonen av telefonen er prisen, så jeg vil legge prisen til 15000.
Nå for en annen variabel, "DictResult", vil vi legge til et nøkkelord ved hjelp av "Dict" -variabelen.
Nøkkelen er ordet vi har opprettet i forrige trinn, dvs. navnet på telefonen.
Nå har variabelen “DictResult” elementet til nøkkelen vi har lagt til. Vis nå resultatet av variabelen i VBA-meldingsboksen.
Kode:
Sub Dict_Example1 () Dim Dict As Scripting.Diction Set Dict = New Scripting.Diction Dim DictResult As Variant Dict.Add Key: = "Redmi", Item: = 15000 DictResult = Dict ("Redmi") MsgBox DictResult End Sub
Kjør nå koden manuelt eller ved hjelp av F5-tasten, og en meldingsboks viser deg prisen ( varen ) på telefonen ( nøkkelen ) vi har lagt til ved bruk av "Dict."
Forstå nøkkel og vare
Hvis du ikke har forstått Nøkkel & ITEM, la meg forklare deg med et enkelt eksempel. Se for deg en ordbok fra den virkelige verden. Med denne ordboken har vi ord (nøkler) og betydningen av disse ordene (element). Tilsvarende er ord nøkler, og definisjon eller mening er varen.
Se nå på et eksempel på en ordbok til. Anta at du søker etter et telefonnummer til en bestemt person. Hvordan søker du?
Åpenbart, ved å bruke navnet, har vi brukt det mens vi lagret telefonnummeret. Her har vi to ting, en er navnet på personen og den andre 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 As Scripting.Diction 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 (Prompt: = "Vennligst skriv inn telefonnummeret") Hvis PhoneDict.Exists (DictResult) er MsgBox "The Price of the Phone" & DictResult & "er:" & PhoneDict (DictResult) Ellers MsgBox "Phone du leter etter finnes ikke Bibliotek "End If End Sub
Kjør denne koden ved hjelp av F5-tasten eller manuelt og se resultatet.
