I denne artikel vil vi lære at oprette en brugerformular til søgning og udskrivning via VBA i Microsoft Excel.
Lad os forstå med en simpel øvelse:-
Vi har data i ark 1, hvor kolonne A indeholder agent -id, kolonne B indeholder navn, kolonne C -adresse, kolonne D -by, kolonne E -region, kolonne F -land og kolonne G indeholder postnummer.
I det næste ark (ark 2) ønsker vi at hente detaljerne i henhold til nedenstående billede:-
Hvis vi søger i agent -id, skal alle detaljer vises i området A11: D11. Og giv derefter udskriften.
Følg nedenstående trin for at søge og udskrive detaljerne:-
- Tryk på tasten F11 for at åbne Visual Basic Editor
- Indsæt modulet for at skrive knappen til søgning
- Skriv nedenstående kode:-
Sub Searchdata () Dim Lastrow As Long Dim count As Integer Lastrow = Sheets ("Data"). Celler (Rækker.tælling, 1). Afslut (xlUp) .Række til X = 2 Til Lastrow If Sheets ("Data"). Celler (X, 1) = Sheet3.Range ("B3") Så 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"). Celler (X, 6) Sheet3.Range ("D11") = Sheets ("Data"). Celler (X, 7) End If Next X End Sub
Kode Forklaring:- Først definerer vi variablerne, og derefter har vi defineret, hvilken række der vil være den sidste række, og derefter har vi defineret, hvad og hvor agent -id vil blive søgt, og derefter hvordan området vil blive opdateret for det søgte agent -id.
Nu vil vi tildele denne makro til knappen Søg.
- Højreklik på knappen
- Klik på Tildel makro
- Her er vores makroemne Searchdata, klik på søgedata og klik derefter på OK
Kør makroen:-
- For at køre makroen skal du klikke på knappen Søg
- Hvis agent -id'et vil være der, opdateres detaljerne, ellers vises der ikke detaljer
For at give udskriften skal du tildele nedenstående makro:-
- Indsæt knappen fra fanen Udvikler> Indsæt> Knap (formularstyring)
- Skriv makroen i den samme model, hvor vi har skrevet makroen til Searchdata, med emnetavnet Printout
Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Tildel makroen til knappen, som vi har tildelt søgedata
På denne måde kan vi søge i dataene og derefter give udskriften til de søgte detaljer via VBA i Microsoft Excel.
Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os på e -mail -stedet