I denne artikkelen skal vi lære hvordan du oppretter et brukerskjema for søk og utskrift via VBA i Microsoft Excel.
La oss forstå med en enkel øvelse:-
Vi har data i ark 1 der kolonne A inneholder agent -ID, kolonne B inneholder navn, kolonne C -adresse, kolonne D -by, kolonne E -region, kolonne F -land og kolonne G inneholder postnummer.
I det neste arket (ark 2) ønsker vi å hente detaljene i henhold til bildet nedenfor:-
Hvis vi søker i agent -ID, bør alle detaljer vises i området A11: D11. Og gi deretter utskriften.
Følg trinnene nedenfor for å søke og skrive ut detaljene:-
- Trykk på tasten F11 for å åpne Visual Basic Editor
- Sett inn modulen for å skrive knappen for søk
- Skriv koden nedenfor:-
Sub Searchdata () Dim Lastrow Like Long Dim count As Integer Lastrow = Sheets ("Data"). Celler (Rows.count, 1). End (xlUp) .Row For X = 2 To Lastrow If Sheets ("Data"). Celler (X, 1) = Sheet3.Range ("B3") Deretter Sheet3.Range ("A11") = Sheets ("Data"). Celler (X, 1) Sheet3.Range ("B11") = Sheets (" Data "). Celler (X, 2) Sheet3.Range (" C11 ") = Sheets (" Data "). Celler (X, 3) &" "& Sheets (" data "). Celler (X, 4) _ & "" & Sheets ("data"). Celler (X, 5) & "" & Sheets ("Data"). Cells (X, 6) Sheet3.Range ("D11") = Sheets ("Data"). Celler (X, 7) End If Next X End Sub
Kode Forklaring:- Først vil vi definere variablene, og deretter har vi definert hvilken rad som vil være den siste raden, og deretter har vi definert hva og hvor agent -ID vil bli søkt og deretter hvordan området vil bli oppdatert for den søkte agent -IDen.
Nå vil vi tilordne denne makroen til Søk -knappen.
- Høyreklikk på knappen
- Klikk på Tildel makro
- Her er vårt makroemne Searchdata, klikk på searchdata og klikk deretter på OK
Kjør makroen:-
- For å kjøre makroen, klikk på Søk -knappen
- Hvis agent -ID -en vil være der, blir detaljene oppdatert, ellers vil ikke detaljer vises
For å gi utskriften, tilordner du makroen nedenfor:-
- Sett inn knappen fra Utvikler -fanen> Sett inn> Knapp (skjemakontroll)
- Skriv makroen i samme modell som vi har skrevet makroen for Searchdata, med emnetavnet Printout
Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Tilordne makroen til knappen som vi har tilordnet søkedata
På denne måten kan vi søke i dataene og deretter gi utskriften til de søkte detaljene gjennom VBA i Microsoft Excel.
Hvis du likte bloggene våre, del den med vennene dine på Facebook. Og du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre, utfylle eller innovere arbeidet vårt og gjøre det bedre for deg. Skriv til oss på e -post