În acest articol, vom învăța cum să creăm un formular de utilizator pentru căutare și tipărire prin VBA în Microsoft Excel.
Să înțelegem cu un exercițiu simplu: -
Avem date în Foaia 1 în care coloana A conține ID agent, coloana B conține numele, coloana C Adresă, coloana D oraș, coloana E regiune, coloana F țară și coloana G conține cod poștal.
În următoarea foaie (foaia 2), dorim să preluăm detaliile conform imaginii de mai jos: -
Dacă căutăm ID-ul agentului, atunci toate detaliile ar trebui să apară în intervalul A11: D11. Și apoi dați tipăritul.
Urmați pașii de mai jos pentru a căuta și imprima detaliile: -
- Apăsați tasta F11 pentru a deschide Editorul Visual Basic
- Introduceți modulul pentru a scrie codul pentru butonul de căutare
- Scrieți codul menționat mai jos: -
Sub Searchdata () Dim Lastrow As Long Dim count As Integer Lastrow = Sheets ("Data"). Celule (Rows.count, 1). End (xlUp). Row For X = 2 To Lastrow If Sheets ("Data"). Celule (X, 1) = Sheet3.Range ("B3") Apoi Sheet3.Range ("A11") = Foi ("Date"). Celule (X, 1) Sheet3.Range ("B11") = Foi (" Date "). Celule (X, 2) Sheet3.Range (" C11 ") = Foi (" Date "). Celule (X, 3) &" "& Foi (" date "). Celule (X, 4) _ & "" & Foi ("date"). Celule (X, 5) & "" & Foi ("Date"). Celule (X, 6) Sheet3.Range ("D11") = Foi ("Data"). Celulele (X, 7) Termină Dacă Următorul X Termină Sub
Cod Explicație: - Mai întâi, vom defini variabilele și apoi am definit ce rând va fi ultimul rând, apoi am definit ce și unde va fi căutat ID-ul agentului și apoi cum va fi actualizat intervalul pentru ID-ul agentului căutat.
Acum, vom atribui această macro butonului Căutare.
- Faceți clic dreapta pe buton
- Faceți clic pe Alocare macro
- Aici, subiectul nostru macro este Searchdata, faceți clic pe searchdata și apoi faceți clic pe OK
Rulați macro-ul: -
- Pentru a rula macro-ul, faceți clic pe butonul Căutare
- Dacă ID-ul agentului va fi acolo, atunci detaliile vor fi actualizate, altfel nu vor apărea detaliile
Pentru a imprima, atribuiți macro-ul menționat mai jos: -
- Introduceți butonul din fila Dezvoltator> Inserare> Buton (control formular)
- Scrieți macrocomanda în același model în care am scris macrocomanda pentru Searchdata, cu numele subiectului Tipărit
Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Atribuiți macrocomandă butonului așa cum am atribuit căutării datelor
În acest fel, putem căuta datele și apoi putem oferi tipărirea detaliilor căutate prin VBA în Microsoft Excel.
Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrieți-ne pe site-ul de e-mail