VBA речник - Ръководство за работа с речници на Excel VBA

Речник на Excel VBA

Използвайки VBA Dictionary можем да групираме всички видове данни в речник, за да получим достъп до всички елементи с една променлива. Можем да използваме речника, за да създадем колекция от комбинации ключ-стойност. След като обектът е свързан с ключове, по-късно можем да ги извикаме, като използваме само името на ключа.

Речникът на VBA е много труден за влизане, но ние ще се опитаме най-добре, за да ви улесним в разбирането. Можем да сравним и речника, и колекцията в един и същ мащаб, но някои от речниците на VBA предлагат някои от функционалностите, които не са налични с обекта VBA Collections.

Работа с речници на VBA

За да работим с речниците на VBA, първото нещо, което трябва да направим, е да зададем препратката към обекта на „Microsoft Scripting Runtime“.

За да зададете препратката, следвайте стъпките по-долу.

Стъпка 1: Отидете на Инструменти> Референции.

Стъпка 2: Превъртете надолу и изберете опцията „Microsoft Scripting Runtime“, след което щракнете върху „ОК“.

Сега можем да получим достъп до VBA Dictionary с библиотека за скриптове.

Създайте екземпляр на речник с VBA код

След като зададем препратката към „Microsoft Scripting Runtime“, трябва да създадем екземпляр на речника VBA. Първо декларирайте променливата като Scripting.Dictionary.

Код:

Sub Dict_Example1 () Dim Dict As Scripting.Речник End Sub

Сега променливата „Dict“ е обектна променлива. За обектна променлива трябва да зададем препратка към обекта, като използваме думата „New“.

Задайте Dict = New Scripting.D rečник

Сега можем да получим достъп до всички свойства и методи на речника.

Забележка: Всички зелени бутонени думи са Методи, а други са Свойства.

Сега декларирайте една променлива като DictResult.

Dim Dict Резултат като вариант

Сега, използвайки променливата „Dict“, ще създадем нов ключ.

Ключът е каква е думата, която добавяме. Нека добавим името на мобилния телефон като „Redmi“.

Елементът не е нищо друго освен дефиницията на думата ( ключ ), която сме добавили. Това определение на телефона е неговата цена, така че ще добавя цената към 15000.

Сега за друга променлива, „DictResult“, ще добавим ключова дума, използвайки променливата „Dict“.

Ключът е думата, която сме създали в предишната стъпка, т.е. името на телефона.

Сега променливата “DictResult” има елемента на ключа, който сме добавили. Сега покажете резултата от променливата в полето за съобщения на VBA.

Код:

Sub Dict_Example1 () Dim Dict As Scripting.Dictionary Set Dict = New Scripting.D Dictionary Dim DictResult As Variant Dict.Add Key: = "Redmi", Item: = 15000 DictResult = Dict ("Redmi") MsgBox DictResult End Sub

Now run the code manually or using the F5 key, and a message box will show you the price (item) of the phone (key) we have added using “Dict.”

Understanding KEY & ITEM

If you have not understood KEY & ITEM, let me explain to you with a simple example. Imagine a real-world dictionary. With this dictionary, we have words (keys) and the meaning of those words (item). Similarly, words are Keys, and definition or meaning is the Item.

Now, look at one more example of a Dictionary. Assume you are searching for a phone number of a particular person. How do you search?

Obviously, by using the name, we have used while saving the phone number. Here we have two things one is the Name of the Person & the second one is the Phone Number.

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.D Dictionary Dim DictResult As Variant Set PhoneDict = New Scripting.Dictionary PhoneDict.Add Key: = "Redmi", Item: = 15000 PhoneDict.Add Key: = "Samsung", Item: = 25000 PhoneDict .Добавяне на ключ: = "Oppo", Елемент: = 20000 PhoneDict. Добавяне на ключ: = "VIVO", Елемент: = 21000 PhoneDict. Добавяне на ключ: = "Jio", Елемент: = 2500 DictResult = Application.InputBox (Подкана: = "Моля, въведете името на телефона") Ако PhoneDict.Exists (DictResult), тогава MsgBox "Цената на телефона" & DictResult & "е:" & PhoneDict (DictResult) Else MsgBox "Телефон, който търсите, не съществува в Библиотека "End If End Sub

Изпълнете този код с помощта на клавиша F5 или ръчно и вижте резултата.