I den här artikeln kommer vi att lära oss hur man skapar ett användarformulär för sökning och utskrift via VBA i Microsoft Excel.
Låt oss förstå med en enkel övning:-
Vi har data i blad 1 där kolumn A innehåller agent -ID, kolumn B innehåller namn, kolumn C -adress, kolumn D -stad, kolumn E -region, kolumn F -land och kolumn G innehåller postnummer.
I nästa blad (blad 2) vill vi hämta detaljerna enligt bilden nedan:-
Om vi söker efter agent -id ska alla detaljer visas i intervallet A11: D11. Och ge sedan utskriften.
Följ nedanstående steg för att söka och skriva ut detaljerna:-
- Tryck på tangenten F11 för att öppna Visual Basic Editor
- Sätt i modulen för att skriva knappen för sökning
- Skriv koden nedan:-
Sub Searchdata () Dim Lastrow As Long Dim count As Integer Lastrow = Sheets ("Data"). Cells (Rows.count, 1). End (xlUp) .Row For X = 2 To Lastrow If Sheets ("Data"). Celler (X, 1) = Sheet3.Range ("B3") Sedan 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
Kod Förklaring:- Först kommer vi att definiera variablerna och sedan har vi definierat vilken rad som kommer att vara den sista raden, och sedan har vi definierat vad och var agent -id ska sökas och sedan hur intervallet kommer att uppdateras för det sökta agent -ID.
Nu kommer vi att tilldela detta makro till knappen Sök.
- Högerklicka på knappen
- Klicka på Tilldela makro
- Här är vårt makroämne Searchdata, klicka på sökdata och klicka sedan på OK
Kör makrot:-
- För att köra makrot, klicka på knappen Sök
- Om agent -id finns där uppdateras detaljerna, annars visas inte detaljer
För att ge utskriften, tilldela nedanstående makro:-
- Sätt in knappen från fliken Utvecklare> Infoga> Knapp (formulärkontroll)
- Skriv makrot i samma modell som vi har skrivit makrot för Searchdata, med ämnesnamnet Printout
Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Tilldela makrot till knappen som vi har tilldelat sökdata
På detta sätt kan vi söka i data och sedan ge utskriften till de sökta detaljerna via VBA i Microsoft Excel.
Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss på e -postwebbplatsen