In dit artikel gaan we leren hoe u een gebruikersformulier kunt maken voor zoeken en afdrukken via VBA in Microsoft Excel.
Laten we het met een eenvoudige oefening begrijpen: -
We hebben gegevens in blad 1 waarin kolom A Agent Id bevat, kolom B Naam, Kolom C Adres, kolom D stad, kolom E regio, kolom F land en kolom G bevat postcode.
In het volgende blad (blad 2) willen we de details ophalen volgens de onderstaande afbeelding: -
Als we de agent-ID zoeken, moeten alle details verschijnen in het bereik A11:D11. En geef dan de afdruk.
Volg de onderstaande stappen om de details te zoeken en af te drukken: -
- Druk op de toets F11 om de Visual Basic Editor te openen
- Plaats de module om de code voor de zoekknop te schrijven
- Schrijf de onderstaande code: -
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"). Cellen(X, 1) = Blad3.Bereik("B3") Dan Blad3.Bereik("A11") = Bladen("Data").Cellen(X, 1) Blad3.Bereik("B11") = Bladen(" Data").Cells(X, 2) Sheet3.Range("C11") = Sheets("Data").Cells(X, 3) & " " & Sheets("data").Cells(X, 4) _ & " " & Sheets("data").Cells(X, 5) & " " & Sheets("Data").Cells(X, 6) Sheet3.Range("D11") = Sheets("Data"). Cellen(X, 7) Einde indien volgende X Einde sub
Code Verklaring:- Eerst zullen we de variabelen definiëren en vervolgens hebben we gedefinieerd welke rij de laatste rij zal zijn, en dan hebben we gedefinieerd wat en waar de Agent-ID zal worden doorzocht en vervolgens hoe het bereik zal worden bijgewerkt voor de gezochte Agent-ID.
Nu zullen we deze macro toewijzen aan de knop Zoeken.
- Klik met de rechtermuisknop op de knop
- Klik op Macro toewijzen
- Hier is ons macro-onderwerp Zoekgegevens, klik op zoekgegevens en klik vervolgens op OK
Voer de macro uit: -
- Om de macro uit te voeren, klikt u op de knop Zoeken
- Als de agent-ID aanwezig is, worden de details bijgewerkt, anders worden de details niet weergegeven
Om de afdruk te geven, wijst u de onderstaande macro toe: -
- Voeg de knop in vanaf het tabblad Ontwikkelaar>Invoegen>Knop (formulierbesturingselement)
- Schrijf de macro in hetzelfde model waarin we de macro voor Zoekgegevens hebben geschreven, met de onderwerpnaam Afdruk
Sub PrintOut() Sheet3.Range("A1:D12").PrintPreview Sheet3.Range("A1:D12").PrintOut End Sub
- Wijs de macro toe aan de knop zoals we hebben toegewezen aan zoekgegevens
Op deze manier kunnen we de gegevens doorzoeken en vervolgens de afdruk geven aan de gezochte details via VBA in Microsoft Excel.
Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.
We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite