Σε αυτό το άρθρο, θα μάθουμε πώς να δημιουργήσουμε μια φόρμα χρήστη για αναζήτηση και εκτύπωση μέσω VBA στο Microsoft Excel.
Ας καταλάβουμε με μια απλή άσκηση:-
Έχουμε δεδομένα στο Φύλλο 1 στο οποίο η στήλη Α περιέχει αναγνωριστικό παράγοντα, η στήλη Β περιέχει όνομα, στήλη C διεύθυνση, πόλη στήλης Δ, περιοχή στήλης Ε, χώρα στήλης F και η στήλη G περιέχει ταχυδρομικό ταχυδρομείο.
Στο επόμενο φύλλο (φύλλο 2), θέλουμε να ανακτήσουμε τις λεπτομέρειες σύμφωνα με την παρακάτω εικόνα:-
Αν αναζητήσουμε το αναγνωριστικό πράκτορα, τότε όλες οι λεπτομέρειες θα εμφανιστούν στο εύρος A11: D11. Και μετά δώστε την εκτύπωση.
Ακολουθήστε τα παρακάτω βήματα για να αναζητήσετε και να εκτυπώσετε τις λεπτομέρειες:-
- Πατήστε το πλήκτρο F11 για να ανοίξετε το Visual Basic Editor
- Τοποθετήστε τη μονάδα για να γράψετε τον κωδικό για το κουμπί αναζήτησης
- Γράψτε τον παρακάτω κωδικό:-
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"). Κελιά (X, 1) = Sheet3.Range ("B3") Στη συνέχεια Sheet3.Range ("A11") = Sheets ("Data"). Cells (X, 1) Sheet3.Range ("B11") = Sheets (" Δεδομένα "). Κελιά (X, 2) Φύλλο3.Range (" C11 ") = Sheets (" Data "). Cells (X, 3) &" "& Sheets (" data "). Cells (X, 4) _ & "" & Φύλλα ("δεδομένα"). Κελιά (Χ, 5) & "" & Φύλλα ("Δεδομένα"). Κελιά (Χ, 6) Φύλλο3.Range ("D11") = Φύλλα ("Δεδομένα"). Κελιά (Χ, 7) Τέλος Αν Επόμενο Χ Τέλος Υπο
Επεξήγηση κώδικα:- Αρχικά, θα ορίσουμε τις μεταβλητές και στη συνέχεια έχουμε ορίσει ποια σειρά θα είναι η τελευταία σειρά και, στη συνέχεια, έχουμε ορίσει τι και πού θα αναζητηθεί το αναγνωριστικό παράγοντα και στη συνέχεια πώς θα ενημερωθεί το εύρος για το αναγνωρισμένο παράγοντα που έχει αναζητηθεί.
Τώρα, θα αντιστοιχίσουμε αυτήν τη μακροεντολή στο κουμπί Αναζήτηση.
- Κάντε δεξί κλικ στο κουμπί
- Κάντε κλικ στην επιλογή Εκχώρηση μακροεντολής
- Εδώ, το θέμα μακροεντολής μας είναι Searchdata, κάντε κλικ στο searchdata και μετά κάντε κλικ στο OK
Εκτελέστε τη μακροεντολή:-
- Για να εκτελέσετε τη μακροεντολή, κάντε κλικ στο κουμπί Αναζήτηση
- Εάν το αναγνωριστικό πράκτορα θα είναι εκεί, τότε οι λεπτομέρειες θα ενημερωθούν διαφορετικά οι λεπτομέρειες δεν θα εμφανιστούν
Για να εκτυπώσετε, εκχωρήστε την παρακάτω μακροεντολή:-
- Εισαγάγετε το κουμπί από την καρτέλα Προγραμματιστής> Εισαγωγή> Κουμπί (έλεγχος φόρμας)
- Γράψτε τη μακροεντολή στο ίδιο μοντέλο όπου έχουμε γράψει τη μακροεντολή για Searchdata, με το όνομα του θέματος της Εκτύπωσης
Sub PrintOut () Sheet3.Range ("A1: D12"). PrintPreview Sheet3.Range ("A1: D12"). PrintOut End Sub
- Αντιστοιχίστε τη μακροεντολή στο κουμπί όπως έχουμε εκχωρήσει στα δεδομένα αναζήτησης
Με αυτόν τον τρόπο, μπορούμε να πραγματοποιήσουμε αναζήτηση στα δεδομένα και στη συνέχεια να δώσουμε την εκτύπωση στις αναζητημένες λεπτομέρειες μέσω VBA στο Microsoft Excel.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στον ιστότοπο email