So erstellen Sie ein Formular zum Suchen und Drucken über VBA in Microsoft Excel

Anonim

In diesem Artikel erfahren Sie, wie Sie ein Benutzerformular zum Suchen und Drucken über VBA in Microsoft Excel erstellen.

Lassen Sie uns mit einer einfachen Übung verstehen:

Wir haben Daten in Blatt 1, in denen Spalte A die Agenten-ID enthält, Spalte B enthält Name, Spalte C Adresse, Spalte D Stadt, Spalte E Region, Spalte F Land und Spalte G enthält die Postleitzahl.

Im nächsten Blatt (Blatt 2) möchten wir die Details gemäß dem unten genannten Bild abrufen:-

Wenn wir die Agenten-ID suchen, sollten alle Details im Bereich A11:D11 erscheinen. Und dann den Ausdruck geben.

Befolgen Sie die unten angegebenen Schritte zum Suchen und Drucken der Details:

  • Drücken Sie die Taste F11, um den Visual Basic-Editor zu öffnen
  • Fügen Sie das Modul ein, um den Code für die Suchschaltfläche zu schreiben
  • Schreiben Sie den unten genannten 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"). Cells(X, 1) = Sheet3.Range("B3") Then Sheet3.Range("A11") = Sheets("Data").Cells(X, 1) Sheet3.Range("B11") = Sheets(" Daten").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"). Cells(X, 7) End If Next X End Sub

Code-Erklärung:- Zuerst definieren wir die Variablen und dann haben wir definiert, welche Zeile die letzte Zeile sein soll, und dann haben wir definiert, was und wo nach der Agenten-ID gesucht wird und wie der Bereich für die gesuchte Agenten-ID aktualisiert wird.

Nun weisen wir dieses Makro der Schaltfläche Suchen zu.

  • Rechtsklick auf den Button
  • Klicken Sie auf Makro zuweisen
  • Hier ist unser Makrothema Searchdata, klicken Sie auf searchdata und dann auf OK

Führen Sie das Makro aus:-

  • Um das Makro auszuführen, klicken Sie auf die Schaltfläche Suchen
  • Wenn die Agenten-ID vorhanden ist, werden die Details aktualisiert, andernfalls werden die Details nicht angezeigt

Um den Ausdruck auszugeben, weisen Sie das unten genannte Makro zu:-

  • Fügen Sie die Schaltfläche von der Registerkarte "Entwickler"> Einfügen> Schaltfläche (Formularsteuerelement) ein
  • Schreiben Sie das Makro in das gleiche Modell, in dem wir das Makro für Searchdata geschrieben haben, mit dem Betreffnamen von Printout
 Sub PrintOut() Sheet3.Range("A1:D12").PrintPreview Sheet3.Range("A1:D12").PrintOut End Sub
  • Weisen Sie das Makro der Schaltfläche zu, wie wir es den Suchdaten zugewiesen haben

Auf diese Weise können wir die Daten durchsuchen und dann den Ausdruck zu den gesuchten Details über VBA in Microsoft Excel geben.

Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.

Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns auf der E-Mail-Site