ВБА ВЛООКУП у Екцелу - Како написати ВЛООКУП код у ВБА?

Преглед садржаја:

Anonim

ВБА ВЛООКУП функција (Садржај)

  • Где писати макрое?
  • Како се користи ВБА ВЛООКУП у Екцелу?

Шта је ВБА ВЛООКУП функција?

ВБА има много уграђених функција за решавање. ВЛООКУП је функција радног листа која се може користити и у ВБА. Ако сте свесни нормалне ВЛООКУП функције, биће вам много лакше да разумете ВБА функцију. Нормални ВЛООКУП има 4 обавезна аргумента. И у ВБА функцији је иста као функција радног листа.

Формула функције ВЛООКУП

Формула укључује 4 обавезна аргумента.

  • Вриједност претраживања : Ово су основне вриједности које тражите. На основу тога у табели тражимо вредност.
  • Вредност табеле: Ово је табела која садржи све вредности. Из ове табеле користећи вриједност претраживања, преузећемо податке.
  • Индексни број колоне: Ово је број ступца из табеле коју тражимо. У табели је пуно ступаца, од многих колона тражимо само ступац у коме тражимо податке.
  • Тражење опсега: Овде морамо да одредимо какав резултат желимо. Ако желимо тачно подударање, морамо поменути ФАЛСЕ или 0, ако желимо приближну утакмицу можемо споменути као ТРУЕ или 1.

Где писати макрое?

ВБА се налази у табели Девелопер у екцелу. Ако нисте у могућности да пронађете картицу за програмере, следите следеће кораке да бисте то открили.

1. корак: Кликните на Филе.

2. корак: Под Датотека кликните на Опције.

Корак 3: Изаберите Прилагоди врпцу.

Корак 4: На десној страни се уверите да је потврдни оквир на картици Девелопер .

Сада морате да видите картицу за програмере на траци.

Како се користи ВБА ВЛООКУП функција у Екцелу?

ВБА ВЛООКУП Функција је врло једноставна за употребу. Погледајмо сада како користити ВБА ВЛООКУП функцију у Екцелу уз помоћ неких примера.

Овај ВБА ВЛООКУП Екцел предложак можете преузети овде - ВБА ВЛООКУП Екцел предложак

Пример # 1

Имам табелу продаје различитих производа. Има назив производа и продају остварене против тог производа.

У ћелији Е2 желим да знам продајну вредност телевизора помоћу ВБА ВЛООКУП функције.

1. корак: Идите на картицу Девелопер и кликните на Висуал Басиц

Корак 2: Једном када кликнете на Висуал Басиц отвориће се доњи прозор за вас

Корак 3: Кликните на Уметање и одаберите Модул

Корак 4: Једном када кликнете на Модул, он ће уметнути нови модул за вас. Двапут кликните на тај ново уметнути модул да напишете свој ВЛООКУП код.

Корак 5: Копирајте и залепите доњи код на ново убачени модул.

Sub Vlookup_Example()
Dim rng As Range, FinalResult As Variant
Set rng = Sheets("Example 1").Range("E2")
FinalResult = Application. WorksheetFunction. VLookup(Range("D2"), Range("A2:B7"), 2, False)
rng = FinalResult
End Sub

Дозволите ми да вам разложим шифру да бих вам је објаснио.

Ред 1: Дим рнг као домет, ФиналРесулт као варијанта

Ово је прва линија кода. Користећи ДИМ изјаву декларирао сам две варијабле, једна је рнг, а друга је ФиналРесулт.

Рнг држи Ранге као променљиву, а ФиналРесулт као варијаблу држи Вариант.

Ред 2.: Поставите рнг = табеле („Пример 1“). Распон („Е2“)

Претходна декларисана варијабла рнг је објектна варијабла, тако да морамо поставити на који опсег заправо мислимо. Поставио сам распон на Е2 ћелију. За то ми треба резултат да се прикаже.

Редак 3: ФиналРесулт = Апликација. ВорксхеетФунцтион.ВЛоокуп (домет („Д2“), домет („А2: Б7“), 2, лажно)

Ово је важна линија кода. ФиналРесулт садржи варијаблу варијанте, тј. Било коју врсту података. ФиналРесугетгетгетс податке из функције ВЛООКУП.

Ред 4: рнг = ФиналРесулт

Почетна варијабла рнг једнака је вредности ФиналРесулт. Рнг означава Е2 ћелију, ФиналРесулт значи вредност враћену ВЛООКУП функцијом.

Корак 6: Притисните дугме РУН или притисните Ф5 да бисте извршили код

Корак 7: Добићемо резултат испод.

Пример бр. 2

Узмите исте податке из горњег примера. Овде ћу створити имена и иста применити у ВЛООКУП-у. Код ће бити исти као у претходном примеру. Само у ВЛООКУП-у, мењам референце.

Sub Vlookup_Example1()
Dim rng As Range, FinalResult As Variant, Table_Range As Range, LookupValue As Range
Set rng = Sheets("Example 1").Range("E2")
Set Table_Range = Sheets("Example 1").Range("A2:B7")
Set LookupValue = Sheets("Example 1").Range("D2")
FinalResult = Application. WorksheetFunction. VLookup(LookupValue, Table_Range, 2, False)
rng = FinalResult
End Sub

Вриједност претраживања постављена је на Д2 ћелију на име ЛоокупВалуе. Низ таблица је постављен на А2 до Б7 на име Табле_Ранге.

Креирајте макро дугме

Након што је написан макро код, потребно је да га дизајнирамо.

1. корак: Идите на Уметање и одаберите правоугаони облик .

2. корак: Нацртајте правоугаони облик

Корак 3: Након што је Правокутни облик нацртао десним кликом на правоугаони облик и кликните на Додијели макро .

Корак 4: Једном када кликнете на Додијели макро, отвориће се сва имена макронаредби . Изаберите име макронаредбе које желите да доделите. Правокутном облику додам назив макронаредбе Примера 1 .

Корак 5: Сада је правоугаони облик постао макро дугме. Једном када кликнете на правоугаони облик, добићете излаз испод.

Можете променити ћелију вредности Д2 за претраживање и добити резултат. На слици испод променио сам вредност Д2 ћелије у Мобилни.

Ствари које треба памтити о ВБА ВЛООКУП-у

  • И у ВБА ВЛООКУП ради исто као и функција радног листа.
  • Овде је важна декларација променљивих и додељивање података.
  • У добијеној ћелији не видимо ниједну формулу. Свака вредност враћена ВБА функцијом нема никакву формулу.

Препоручени чланци

Ово је водич за Екцел ВБА функцију ВЛООКУП. Овдје смо расправљали о формули ВЛООКУП и како користити ВБА ВЛООКУП у Екцел-у, заједно са практичним примјерима и бесплатним екцел предложаком. Можете и да прођете кроз друге наше предложене чланке -

  1. Како користити Цомбо Бок у Екцелу?
  2. Креирајте Буббле Цхарт у МС Екцел-у
  3. Како створити ХИПЕРЛИНК у Екцелу?
  4. Водич за Екцел сложен столни графикон