VBA VLOOKUP v Excelu Jak napsat kód VLOOKUP ve VBA?

Obsah:

Anonim

Funkce VBA VLOOKUP (obsah)

  • Kde psát makra?
  • Jak používat VBA VLOOKUP v Excelu?

Co je funkce VBA VLOOKUP?

VBA má mnoho vestavěných funkcí zabývat. VLOOKUP je funkce listu, kterou lze použít i ve VBA. Pokud víte o normální funkci VLOOKUP, bude pro vás mnohem snazší porozumět funkci VBA. Normální VLOOKUP má k dispozici 4 povinné argumenty. Také ve funkci VBA je to stejné jako funkce listu.

Vzorec funkce VLOOKUP

Vzorec obsahuje 4 povinné argumenty.

  • Hodnota vyhledávání: Toto jsou základní hodnoty, které hledáte. Na základě toho hledáme hodnotu v tabulce.
  • Hodnota tabulky: Toto je tabulka, která obsahuje všechny hodnoty. Z této tabulky pomocí vyhledávací hodnoty načteme data.
  • Indexové číslo sloupce: Toto je číslo sloupce z tabulky, kterou hledáme. V tabulce je mnoho sloupců, z mnoha sloupců vyžadujeme pouze sloupec, který hledáme data.
  • Hledání rozsahu: Zde musíme určit, jaký druh výsledku chceme. Pokud chceme přesnou shodu, musíme uvést FALSE nebo 0, pokud chceme přibližnou shodu, můžeme uvést TRUE nebo 1.

Kde psát makra?

VBA je umístěna na kartě Vývojář v Excelu. Pokud nemůžete najít kartu vývojáře, postupujte podle níže uvedených kroků a odkrýt ji.

Krok 1: Klikněte na Soubor.

Krok 2: V nabídce Soubor klikněte na Možnosti.

Krok 3: Vyberte Přizpůsobit pás karet.

Krok 4: Na pravé straně zkontrolujte, zda je zaškrtnuto políčko na kartě Vývojář .

Nyní se na pásu karet musí zobrazit karta Vývojář .

Jak používat funkci VBA VLOOKUP v Excelu?

Funkce VBA VLOOKUP se velmi snadno používá. Podívejme se nyní, jak používat funkci VBA VLOOKUP v Excelu pomocí několika příkladů.

Tuto šablonu VBA VLOOKUP Excel si můžete stáhnout zde - VBA VLOOKUP Excel Template

Příklad č. 1

Mám prodejní stůl pro různé produkty. Má název produktu a prodej uskutečněný proti tomuto produktu.

V buňce E2 chci znát prodejní hodnotu televize pomocí funkce VBA VLOOKUP.

Krok 1: Přejděte na kartu Vývojář a klikněte na Visual Basic

Krok 2: Jakmile kliknete na Visual Basic, otevře se vám okno níže

Krok 3: Klikněte na Vložit a vyberte Modul

Krok 4: Jakmile kliknete na modul, nový modul se vloží za vás. Poklepáním na nově vložený modul zapište kód VLOOKUP.

Krok 5: Zkopírujte a vložte níže uvedený kód do nově vloženého modulu.

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

Dovolte mi rozebrat kód, abych vám to vysvětlil.

Řádek 1: Dim rng jako Range, FinalResult jako Variant

Toto je první řádek kódu. Pomocí příkazu DIM jsem prohlásil dvě proměnné, jedna je rng a druhá je FinalResult.

Rng drží Range jako proměnnou a FinalResult drží Variant jako proměnnou.

Řádek 2: Nastavit rng = Listy („Příklad 1“). Rozsah („E2“)

Předchozí deklarovaná proměnná rng je objektová proměnná, takže musíme nastavit, na který rozsah se vlastně odkazujeme. Nastavil jsem rozsah na buňku E2. To je vlastně místo, kde potřebuji zobrazit výsledek.

Řádek 3: FinalResult = Aplikace. WorksheetFunction.VLookup (Range („D2“), Range („A2: B7“), 2, False)

Toto je důležitý řádek kódu. FinalResult obsahuje proměnnou varianty, tj. Jakýkoli druh datového typu. FinalResugetget data z funkce VLOOKUP.

Řádek 4: rng = FinalResult

Počáteční proměnná rng se rovná hodnotě FinalResult. Rng znamená buňku E2, FinalResult znamená hodnotu vrácenou funkcí VLOOKUP.

Krok 6: Stiskem tlačítka RUN nebo stisknutím klávesy F5 proveďte kód

Krok 7: Dostaneme níže uvedený výstup.

Příklad č. 2

Vezměte stejná data z výše uvedeného příkladu. Tady budu vytvářet jména a aplikovat to samé ve VLOOKUPu. Kód bude stejný jako v předchozím příkladu. Pouze ve verzi VLOOKUP měníte reference.

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

Hodnota vyhledávání je nastavena na buňku D2 ve jménu LookupValue. Tabulka Array je nastavena na A2 až B7 ve jménu Table_Range.

Vytvořte tlačítko makra

Jakmile je kód makra zapsán, musíme makro navrhnout.

Krok 1: Přejděte na Vložit a vyberte obdélníkový tvar .

Krok 2: Nakreslete obdélníkový tvar

Krok 3: Jakmile je obdélníkový tvar nakreslen, klikněte pravým tlačítkem na obdélníkový tvar a klikněte na Přiřadit makro .

Krok 4: Jakmile kliknete na Přiřadit makro, otevře se všechna jména maker . Vyberte název makra, které chcete přiřadit. K pravoúhlému tvaru přiřazuji název makra příkladu 1 .

Krok 5: Nyní se z obdélníkového tvaru stalo tlačítko makra. Jakmile kliknete na obdélníkový tvar, získáte níže uvedený výstup.

Můžete změnit buňku D2 hodnoty vyhledávání a získat výsledek. Na obrázku níže jsem změnil hodnotu buňky D2 na Mobile.

Důležité informace o VBA VLOOKUP

  • Také ve VBA funguje VLOOKUP stejně jako funkce listu.
  • Zde je důležité deklarovat proměnné a přiřazovat datový typ.
  • Ve výsledné buňce nevidíme žádný vzorec. Žádná hodnota vrácená funkcí VBA neobsahuje žádný druh vzorce.

Doporučené články

Toto je průvodce funkcí Excel VBA VLOOKUP. Zde diskutujeme vzorec VLOOKUP a jak používat VBA VLOOKUP v Excelu spolu s praktickými příklady a šablonou Excel ke stažení. Můžete si také prohlédnout naše další doporučené články -

  1. Jak používat Combo Box v Excelu?
  2. Vytvořte bublinový graf v MS Excel
  3. Jak vytvořit HYPERLINK v Excelu?
  4. Průvodce po skládaný sloupcový graf Excel