Jak vytvořit formulář pro vyhledávání a tisk prostřednictvím VBA v aplikaci Microsoft Excel

Anonim

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