photosdematures.com

Екцел ВБА речник

Коришћењем ВБА речника можемо да групишемо све врсте података у речнику да бисмо добили приступ свим ставкама са једном променљивом. Речник можемо користити за стварање колекције комбинација кључ / вредност. Једном када је објекат повезан са кључевима, касније их можемо позвати само помоћу имена кључа.

ВБА речник је врло тешко ући унутра, али потрудићемо се да учинимо све што је у нашој моћи да вам олакшамо разумевање. Можемо упоредити и Речник и Збирку на истој скали, али неки од ВБА речника нуде неке функционалности које нису доступне са објектом ВБА Цоллецтионс.

Рад са ВБА речницима

Да бисмо могли да радимо са ВБА речницима, прво што треба да урадимо је да поставимо референцу објекта на „Мицрософт Сцриптинг Рунтиме“.

Да бисте поставили референцу, следите кораке у наставку.

Корак 1: Идите на Алатке> Референце.

Корак 2: Померите се надоле и изаберите опцију „Мицрософт Сцриптинг Рунтиме“, а затим кликните на ОК.

Сада можемо приступити ВБА речнику са библиотеком скрипти.

Овај предложак ВБА речника Екцел можете преузети овде - ВБА речник програма Екцел

Направите инстанцу речника помоћу ВБА кода

Након постављања референце на „Мицрософт Сцриптинг Рунтиме“ треба да креирамо инстанцу ВБА речника. Прво прогласите променљиву као Сцриптинг.Д речник

Шифра:

 Суб Дицт_Екампле1 () Дим Дицт Ас Сцриптинг.Д речник Крај Суб

Сада је променљива „Дицт“ објектна променљива. За променљиву објекта морамо да поставимо референцу на објекат помоћу речи „Ново“.

Постави дикт = Ново скриптирање.речник

Сада можемо приступити свим својствима и методама речника.

Белешка: Све зелено копчане речи су Методе, а друге су Својства.

Сада прогласите једну променљиву као ДицтРесулт.

Дим ДицтРесулт Ас Вариант

Сада ћемо помоћу променљиве „Дицт“ створити нови кључ.

Кључ је реч коју додајемо. Додајте име мобилног телефона као „Редми“.

Предмет није ништа друго него дефиниција речи (кључ) додали смо. Ова дефиниција телефона је његова цена, па ћу додати цену на 15000.

Сада ћемо за другу променљиву „ДицтРесулт“ додати кључну реч користећи променљиву „Дицт“.

Кључ је реч коју смо створили у претходном кораку, тј. име телефона.

Сада променљива “ДицтРесулт” има ставку кључа коју смо додали. Сада прикажи резултат променљиве у оквиру ВБА поруке.

Шифра:

 Суб Дицт_Екампле1 () Дим Дицт Ас Сцриптинг.Дицтионари Сет Дицт = Нев Сцриптинг.Дицтионари Дим ДицтРесулт Ас Вариант Дицт.Адд Кеи: = "Редми", Итем: = 15000 ДицтРесулт = Дицт ("Редми") МсгБок ДицтРесулт Енд Суб 

Сада покрените код ручно или помоћу тастера Ф5 и оквир за поруку ће вам показати цену (ставка) телефона (кључ) додали смо користећи „Дицт“.

Разумевање КЉУЧА И СТАВА

Ако нисте разумели КЉУЧ И СТАВ, објасните ми на једноставном примеру. Замислите речник из стварног света, са овим речником имамо речи (кључеве) и значење тих речи (ставка). Слично томе, речи су тастери, а дефиниција или значење је ставка.

Сада погледајте још један пример Речника. Претпоставимо да тражите телефонски број одређене особе. Како претражујете?

Очигледно је да смо користили име које смо користили приликом чувања телефонског броја. Овде имамо две ствари, једна је Име особе & друго је Број телефона.

Име Особе је Кључ.

Тхе Број телефона је Предмет.

Ако желите пример Екцел-а, можемо дати ВЛООКУП као пример. Формулу користимо за тражење вредности заснованих на ЛООКУП ВАЛУЕ (Кључ). Позива се резултат који је вратила функција ВЛООКУП Предмет.

Проверите да ли постоји мобилни телефон или не

Замислите да купцима дајете кориснички образац да једноставним оквиром за унос провере цену мобилног телефона. Испод Екцел ВБА кода ће приказати поље за унос пред корисником и он треба да унесе марку телефона који тражи, ако је име марке у речнику, приказаће цену одговарајућег телефона или ће у супротном прикажите поруку као „Телефон који тражите не постоји у библиотеци“.

Шифра:

 Суб Дицт_Екампле2 () Дим ПхонеДицт Ас Сцриптинг.Дицтионари Дим ДицтРесулт Ас Вариант Сет ПхонеДицт = Нев Сцриптинг.Дицтионари ПхонеДицт.Адд Кеи: = "Редми", Итем: = 15000 ПхонеДицт.Адд Кеи: = "Самсунг", Итем: = 25000 ПхонеДицт .Додај кључ: = "Оппо", ставка: = 20000 ПхонеДицт.Додај кључ: = "ВИВО", ставка: = 21000 ПхонеДицт.Додај кључ: = "Јио", ставка: = 2500 ДицтРесулт = Апплицатион.ИнпутБок (упит: = "Молимо унесите име телефона") Ако ПхонеДицт.Екистс (ДицтРесулт) онда МсгБок "Цена телефона" & ДицтРесулт & "је:" & ПхонеДицт (ДицтРесулт) Ел МсгБок "Телефон који тражите не постоји у Библиотека „Енд Иф Енд Суб 

Покрените овај код помоћу тастера Ф5 или ручно и погледајте резултат.