V tomto článku se naučíme, jak vytvořit uživatelský formulář pro vyhledávání a tisk prostřednictvím VBA v aplikaci Microsoft Excel.
Pojďme si porozumět jednoduchým cvičením:-
Máme data v listu 1, ve kterých sloupec A obsahuje ID agenta, sloupec B obsahuje jméno, sloupec C adresu, sloupec D město, sloupec E region, sloupec F země a sloupec G obsahuje poštovní zip.
V dalším listu (list 2) chceme načíst podrobnosti podle níže uvedeného obrázku:-
Pokud prohledáme ID agenta, všechny podrobnosti by se měly objevit v rozsahu A11: D11. A pak dejte výtisk.
Při vyhledávání a tisku podrobností postupujte takto:-
- Stisknutím klávesy F11 otevřete editor jazyka
- Vložte modul a napište kód pro tlačítko Hledat
- Napište níže uvedený kód:-
Dílčí vyhledávací data () Dim Lastrow As Long Dim count As Integer Lastrow = Sheets ("Data"). Buňky (Rows.count, 1). End (xlUp). Row for X = 2 To Lastrow If Sheets ("Data"). Buňky (X, 1) = List3.Range ("B3") Poté List3.Range ("A11") = Listy ("Data"). Buňky (X, 1) List3.Range ("B11") = Listy (" Data "). Buňky (X, 2) List3.Range (" C11 ") = Listy (" Data "). Buňky (X, 3) &" "& Listy (" data "). Buňky (X, 4) _ & "" & Listy ("data"). Buňky (X, 5) & "" & Listy ("Data"). Buňky (X, 6) List3.Range ("D11") = Listy ("Data"). Buňky (X, 7) End If Next X End Sub
Vysvětlení kódu:- Nejprve definujeme proměnné a poté jsme definovali, který řádek bude posledním řádkem, a poté jsme definovali, co a kde bude hledáno ID agenta a poté, jak bude aktualizován rozsah pro hledané ID agenta.
Nyní toto makro přiřadíme tlačítku Hledat.
- Klikněte pravým tlačítkem na tlačítko
- Klikněte na Přiřadit makro
- Zde je naším předmětem makra Searchdata, klikněte na searchdata a poté klikněte na OK
Spusťte makro:-
- Makro spustíte kliknutím na tlačítko Hledat
- Pokud tam bude ID agenta, podrobnosti se aktualizují, jinak se podrobnosti nezobrazí
Chcete-li vytisknout, přiřaďte níže uvedené makro:-
- Vložte tlačítko z karty Vývojář> Vložit> Tlačítko (ovládací prvek formuláře)
- Napište makro ve stejném modelu, kde jsme napsali makro pro Searchdata, s názvem předmětu výtisku
Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Přiřaďte makro tlačítku, jak jsme přiřadili datům vyhledávání
Tímto způsobem můžeme data prohledávat a poté dát výtisk hledaným podrobnostem prostřednictvím VBA v Microsoft Excelu.
Pokud se vám naše blogy líbily, sdílejte je se svými přáteli na Facebooku. A také nás můžete sledovat na Twitteru a Facebooku.
Rádi bychom od vás slyšeli, dejte nám vědět, jak můžeme zlepšit, doplnit nebo inovovat naši práci a zlepšit ji pro vás. Napište nám na e -mail