Екцел ВБА речник
Коришћењем ВБА речника можемо да групишемо све врсте података у речнику да бисмо добили приступ свим ставкама са једном променљивом. Речник можемо користити за стварање колекције комбинација кључ / вредност. Једном када је објекат повезан са кључевима, касније их можемо позвати само помоћу имена кључа.
ВБА речник је врло тешко ући унутра, али потрудићемо се да учинимо све што је у нашој моћи да вам олакшамо разумевање. Можемо упоредити и Речник и Збирку на истој скали, али неки од ВБА речника нуде неке функције које нису доступне са објектом ВБА Цоллецтионс.
Рад са ВБА речницима
Да бисмо могли да радимо са ВБА речницима, прво што треба да урадимо је да поставимо референцу објекта на „Мицрософт Сцриптинг Рунтиме“.
Да бисте поставили референцу, следите кораке у наставку.
Корак 1: Идите на Алатке> Референце.
Корак 2: Померите се надоле и изаберите опцију „Мицрософт Сцриптинг Рунтиме“, а затим кликните на ОК.
Сада можемо приступити ВБА речнику са библиотеком скрипти.
Направите инстанцу речника помоћу ВБА кода
Након постављања референце на „Мицрософт Сцриптинг Рунтиме“, треба да креирамо инстанцу ВБА речника. Прво прогласите променљиву као Сцриптинг.Дицтионари.
Шифра:
Суб Дицт_Екампле1 () Дим Дицт Ас Сцриптинг.Д речник Крај Суб
Сада је променљива „Дицт“ објектна променљива. За променљиву објекта морамо да поставимо референцу на објекат помоћу речи „Ново“.
Постави дикт = Ново скриптирање.речник
Сада можемо приступити свим својствима и методама речника.
Сада прогласите једну променљиву као ДицтРесулт.
Дим ДицтРесулт Ас Вариант
Сада ћемо помоћу променљиве „Дицт“ креирати нови кључ.
Кључ је оно што је реч коју додајемо. Хајде да додамо име мобилног телефона као „Редми“.
Ставка није ништа друго доли дефиниција речи ( кључа ) коју смо додали. Ова дефиниција телефона је његова цена, па ћу додати цену на 15000.
Сада ћемо за другу променљиву, „ДицтРесулт“, додати кључну реч користећи променљиву „Дицт“.
Кључ је реч коју смо креирали у претходном кораку, тј. Име телефона.
Сада променљива „ДицтРесулт“ има ставку кључа који смо додали. Сада прикажи резултат променљиве у оквиру ВБА поруке.
Шифра:
Суб Дицт_Екампле1 () Дим Дицт Ас Сцриптинг.Дицтионари Сет Дицт = Нев Сцриптинг.Дицтионари Дим ДицтРесулт Ас Вариант Дицт.Адд Кеи: = "Редми", Итем: = 15000 ДицтРесулт = Дицт ("Редми") МсгБок ДицтРесулт Енд Суб
Сада покрените код ручно или помоћу тастера Ф5, а оквир за поруку ће вам показати цену ( ставку ) телефона ( кључа ) који смо додали помоћу „Дицт“.
Разумевање КЉУЧА И СТАВА
Ако нисте разумели КЉУЧ И ПРЕДМЕТ, дозволите ми да вам објасним на једноставном примеру. Замислите речник из стварног света. Уз овај речник имамо речи (кључеве) и значење тих речи (ставка). Слично томе, речи су тастери, а дефиниција или значење је ставка.
Сада погледајте још један пример Речника. Претпоставимо да тражите телефонски број одређене особе. Како претражујете?
Очигледно је да смо користећи име користили док смо чували телефонски број. Овде имамо две ствари једна је Име особе , а друга је телефонски број.
Име Особе је Кључно.
Број телефона је ставка.
Ако желите пример Екцел-а, можемо дати ВЛООКУП као пример. Формулу користимо за тражење вредности на основу ЛООКУП ВАЛУЕ (Кеи). Резултат који враћа функција ВЛООКУП назива се Предмет.
Проверите да ли постоји мобилни телефон или не.
Замислите да дајете кориснички образац својим купцима да једноставним оквиром за унос провере цену мобилног телефона. Испод Екцел ВБА кода ће приказати поље за унос пред корисником и он мора да унесе марку телефона који тражи. Ако се име марке налази у речнику, приказаће цену одређеног телефона или ће се приказати порука „Телефон који тражите не постоји у библиотеци“.
Шифра:
Суб Дицт_Екампле2 () Дим ПхонеДицт Ас Сцриптинг.Дицтионари Дим ДицтРесулт Ас Вариант Сет ПхонеДицт = Нев Сцриптинг.Дицтионари ПхонеДицт.Адд Кеи: = "Редми", Итем: = 15000 ПхонеДицт.Адд Кеи: = "Самсунг", Итем: = 25000 ПхонеДицт .Додај кључ: = "Оппо", ставка: = 20000 ПхонеДицт.Додај кључ: = "ВИВО", ставка: = 21000 ПхонеДицт.Додај кључ: = "Јио", ставка: = 2500 ДицтРесулт = Апплицатион.ИнпутБок (упит: = "Молимо унесите име телефона") Ако ПхонеДицт.Екистс (ДицтРесулт) онда МсгБок "Цена телефона" & ДицтРесулт & "је:" & ПхонеДицт (ДицтРесулт) Ел МсгБок "Телефон који тражите не постоји у Библиотека „Енд Иф Енд Суб
Покрените овај код помоћу тастера Ф5 или ручно и погледајте резултат.
