Πώς μπορώ να δημιουργήσω μια φόρμα εισαγωγής δεδομένων με το κουμπί Εύρεση στο Excel

; Μπορείτε εύκολα να δημιουργήσετε μια φόρμα εισαγωγής δεδομένων με ένα κουμπί εύρημα σε εφαρμογή του Microsoft Excel σας με τη χρήση ενός « UserForm » και Visual Basic for Applications ( VBA ) . Ένα « UserForm " είναι μια διεπαφή χρήστη όπου μπορείτε να τοποθετήσετε στοιχεία ελέγχου , όπως πλαίσια κειμένου και τα κουμπιά . VBA είναι η γλώσσα προγραμματισμού που μπορείτε να χρησιμοποιήσετε για να εκτελέσει την εντολή " Εύρεση " μέθοδο και αναζήτηση κειμένου σε φύλλο εργασίας του Excel . Η μέθοδος "Αναζήτηση" θα ψάξει για μια θητεία και επιστρέφει την τιμή , αν το κρίνει ? Αλλιώς επιστρέφει τίποτα . Οδηγίες
Η 1

Εκκίνηση του Microsoft Excel , πληκτρολογήστε "ένα" στην Α1 , " δύο " στην Α2 , " τρία " στο Α3 , " τέσσερις " σε Α4 , και «πέντε» στην Α5 . Κάντε κλικ στην καρτέλα "Προγραμματιστής " και κάντε κλικ στο " Visual Basic ". Κάντε κλικ στο "Εισαγωγή" μενού και κάνοντας κλικ στο " UserForm " για να προσθέσετε μια νέα μορφή . Κάντε κλικ στο " πλαίσιο κειμένου " στο παράθυρο Εργαλειοθήκη και κάντε κλικ στη φόρμα για να προσθέσετε ένα νέο πλαίσιο κειμένου . Προσθέσετε ένα νέο " Ετικέτα " χρησιμοποιώντας την ίδια τεχνική . Προσθέστε ένα " CommandButton " στη φόρμα σας και χρησιμοποιώντας την ίδια τεχνική . 2

Κάντε διπλό κλικ στο κουμπί για να δημιουργήσετε ένα συμβάν κλικ του κουμπιού . Προσθέστε τον ακόλουθο κώδικα για να καθορίσει μια " GoTo " δήλωση για να συλλάβει τα σφάλματα :

Private Sub CommandButton1_Click ( ) On Error GoTo Err_CommandButton1_Click :
3

Καθορίστε εσείς την μεταβλητή συμβολοσειράς θα χρησιμοποιήσετε για να αποθηκεύσετε το κείμενο που θέλετε να βρείτε στο φύλλο εργασίας σας :

Dim findstr Όπως StringfindStr = TextBox1.Text
Η

4 Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα για να εκτελέσει τη μέθοδο "Αναζήτηση " και αναζήτηση στο φύλλο εργασίας για την τιμή που έχει εισαχθεί στο στοιχείο ελέγχου πλαισίου κειμένου :

Me.Label1.Caption = Cells.Find ( Τι : = findstr , Μετά : = ActiveCell , lookin : = xlFormulas , lookat _ : = xlPart , SearchOrder : = xlByRows , SearchDirection : = xlNext , MatchCase : . = _False ) Value & "βρέθηκε στο φύλλο εργασίας σας ! "
5

Προσθέστε τον ακόλουθο κώδικα για να τερματίσετε την εκδήλωση και κάντε κλικ εμφανίσει ένα μήνυμα αν η σειρά δεν βρέθηκε :

Exit_CommandButton1_Click : Έξοδος SubErr_CommandButton1_Click : MsgBox ( "The κορδόνι που δώσατε δεν βρέθηκε στο φύλλο εργασίας " ) Συνέχιση Exit_CommandButton1_Click : End Sub
Η 6

Πατήστε το " F5 " για να εκτελέσετε το πρόγραμμα και πληκτρολογήστε " δύο " στο στοιχείο ελέγχου πλαισίου κειμένου . Πατήστε " CommandButton1 " για να εμφανίσετε ένα μήνυμα στην ετικέτα ή ένα πλαίσιο μηνύματος , εάν το κείμενο δεν βρέθηκε .
Η
εικόνων