„Excel VBA“ žodynas
Naudodami „VBA Dictionary“, galime sugrupuoti įvairius duomenis į žodyną, kad gautumėte prieigą prie visų elementų vienu kintamuoju. Mes galime naudoti žodyną, kad sukurtume raktų ir verčių derinių kolekciją. Kai objektas bus susietas su raktais, vėliau galėsime juos iškviesti tiesiog naudodami rakto pavadinimą.
„VBA Dictionary“ yra labai sunku patekti į vidų, tačiau mes stengsimės geriausiai, kad jums būtų lengviau suprasti. Mes galime palyginti žodyną ir kolekciją tuo pačiu mastu, tačiau kai kurie VBA žodynai siūlo keletą funkcijų, kurių nėra objekte VBA kolekcijos.
Darbas su VBA žodynais
Norėdami dirbti su VBA žodynais, pirmiausia turime nustatyti objekto nuorodą į „Microsoft Scripting Runtime“.
Norėdami nustatyti nuorodą, atlikite toliau nurodytus veiksmus.
1 veiksmas: eikite į Įrankiai> Nuorodos.
2 žingsnis: slinkite žemyn ir pasirinkite parinktį „Microsoft Scripting Runtime“, tada spustelėkite gerai.
Dabar mes galime pasiekti VBA žodyną su scenarijų biblioteka.
Sukurkite žodyno egzempliorių su VBA kodu
Nustačius nuorodą į „Microsoft Scripting Runtime“, turime sukurti VBA žodyno egzempliorių. Pirmiausia paskelbkite kintamąjį kaip „ Scripting.Dictionary“.
Kodas:
Sub Dict_Example1 () Dim Dict kaip scenarijus. Žodyno pabaiga Sub
Dabar kintamasis „Dict“ yra objekto kintamasis. Objekto kintamajam turime nustatyti objekto nuorodą naudodami žodį „Naujas“.
Nustatykite „Dict“ = „New Scripting.Dictionary“
Dabar galime pasiekti visas žodyno savybes ir metodus.
Dabar paskelbkite vieną kintamąjį kaip „DictResult“.
„Dim DictRestult As Variant“
Dabar naudodami „Dict“ kintamąjį sukursime naują raktą.
Svarbiausia yra tas žodis, kurį pridedame. Pridėkime mobiliojo telefono pavadinimą kaip „Redmi“.
Elementas yra ne kas kitas, o žodžio ( rakto ) apibrėžimas, kurį pridėjome. Šis telefono apibrėžimas yra jo kaina, todėl pridėsiu kainą prie 15000.
Dabar dar vieną kintamąjį „DictResult“ pridėsime raktinį žodį naudodami kintamąjį „Dict“.
Raktas yra žodis, kurį sukūrėme ankstesniame etape, ty telefono pavadinimas.
Dabar kintamasis „DictResult“ turi pridėtą rakto elementą. Dabar rodykite kintamojo rezultatą VBA pranešimų laukelyje.
Kodas:
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
Dabar paleiskite kodą rankiniu būdu arba naudodami klavišą F5, o pranešimų laukelyje bus rodoma telefono ( rakto ), kurį pridėjome naudodami „Dict“, kaina ( prekė ) .
Suprasti pagrindinius dalykus
Jei nesupratote RAKTŲ IR PUNKTO, leiskite man paaiškinti jums paprastu pavyzdžiu. Įsivaizduokite realaus pasaulio žodyną. Šiame žodyne mes turime žodžius (raktus) ir tų žodžių (elemento) reikšmę. Panašiai žodžiai yra raktai, o apibrėžimas arba reikšmė yra punktas.
Dabar pažvelk į dar vieną žodyno pavyzdį. Tarkime, kad ieškote konkretaus asmens telefono numerio. Kaip jūs ieškote?
Akivaizdu, kad naudodami vardą naudojome išsaugodami telefono numerį. Čia mes turime du dalykus, vienas yra asmens vardas, o antrasis - telefono numeris.
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 () Blankus „PhoneDict“ kaip scenarijus. Žodynas „Dim DictResult“ kaip variantas Nustatykite „PhoneDict = naujas scenarijus. Žodynas„ PhoneDict.Add “raktas: =„ Redmi “, elementas: = 15000„ PhoneDict.Add “raktas: =„ Samsung “, elementas: = 25000„ PhoneDict “. .Add Key: = "Oppo", Item: = 20000 PhoneDict.Add Key: = "VIVO", Item: = 21000 PhoneDict.Add Key: = "Jio", Item: = 2500 DictResult = Application.InputBox (Prompt: = „Prašome įvesti telefono pavadinimą“) Jei egzistuoja „PhoneDict.Excont“ („DictResult“), tada „MsgBox“ „Telefono kaina“ ir „DictResult &“ yra: Biblioteka "Pabaiga, jei pabaiga
Paleiskite šį kodą naudodami klavišą F5 arba rankiniu būdu ir pamatykite rezultatą.
