Excel VBA InputBox
Το VBA InputBox είναι μια ενσωματωμένη συνάρτηση που χρησιμοποιείται για να πάρει μια τιμή από τον χρήστη, αυτή η συνάρτηση έχει δύο βασικά ορίσματα στα οποία το ένα είναι η επικεφαλίδα για το πλαίσιο εισαγωγής και ένα άλλο είναι η ερώτηση για το πλαίσιο εισαγωγής, η λειτουργία κουτιού εισόδου μπορεί να αποθηκεύσει μόνο την εισαγωγή δεδομένων τύπων δεδομένων που μπορεί να διατηρήσει η μεταβλητή.
Συχνά στο Excel, χρησιμοποιούμε τα δεδομένα που υπάρχουν ήδη στο φύλλο excel. Μερικές φορές χρειαζόμαστε κάποιο είδος δεδομένων εισαγωγής από τους χρήστες. Ειδικά στο VBA, απαιτείται συχνά είσοδος από τον χρήστη.
Χρησιμοποιώντας το InputBox, μπορούμε να πάρουμε τα δεδομένα από τον χρήστη και να τα χρησιμοποιήσουμε για το σκοπό μας. Ένα InputBox θα ζητήσει από το χρήστη να εισαγάγει την τιμή εμφανίζοντας το InputBox.
Σύνταξη
- Προτροπή: Αυτό δεν είναι παρά το μήνυμα προς τον χρήστη μέσω ενός πλαισίου εισαγωγής.
- Τίτλος: Ποιος είναι ο τίτλος του πλαισίου εισαγωγής;
- Προεπιλογή: Ποια είναι η προεπιλεγμένη τιμή του εισερχομένου; Αυτή η τιμή εμφανίζεται στην περιοχή πληκτρολόγησης του πλαισίου εισόδου.
Αυτές οι τρεις παράμετροι είναι αρκετά καλές στο Excel. Αγνοήστε τις άλλες 4 προαιρετικές παραμέτρους. Για να κατανοήσετε αυτήν τη σύνταξη, δείτε το παρακάτω στιγμιότυπο οθόνης.
Πώς να δημιουργήσετε το InputBox στο VBA;
Εντάξει, ας μεταπηδήσουμε κατευθείαν στην πρακτικότητα. Ακολουθήστε τα παρακάτω βήματα για να δημιουργήσετε το πρώτο σας εισερχόμενο πλαίσιο.
Βήμα 1: Μεταβείτε στο VBE (Visual Basic Editor) και εισαγάγετε μια νέα λειτουργική μονάδα.
Βήμα 2: Κάντε διπλό κλικ στην ενσωματωμένη ενότητα και δημιουργήστε ένα όνομα μακροεντολής.
Βήμα 3: Ξεκινήστε να πληκτρολογείτε τη λέξη "InputBox" θα δείτε σχετικές επιλογές.
Βήμα 4: Επιλέξτε το πλαίσιο εισόδου και δώστε χώρο και θα δείτε τη σύνταξη του εισερχομένου.
Βήμα 5: Δώστε το μήνυμα ως "Παρακαλώ εισάγετε το όνομά σας."
Βήμα 6: Πληκτρολογήστε τον τίτλο του πλαισίου εισόδου ως "Προσωπικές πληροφορίες".
Βήμα 7: Πληκτρολογήστε την προεπιλεγμένη τιμή ως "Πληκτρολογήστε εδώ".
Βήμα 8: Έχουμε τελειώσει. Εκτελέστε αυτόν τον κωδικό και δείτε το πρώτο σας πλαίσιο εισαγωγής.
Αποθηκεύστε την τιμή του InputBox σε κελιά
Τώρα θα περάσουμε από τη διαδικασία αποθήκευσης τιμών σε κελιά. Ακολουθήστε τα παρακάτω βήματα.
Βήμα 1: Δήλωση της μεταβλητής ως Παραλλαγή.
Κώδικας:
Sub InputBox_Example () Dim i As Variant End Sub
Βήμα 2: Για αυτήν τη μεταβλητή, εκχωρήστε την τιμή μέσω του πλαισίου εισόδου.
Κώδικας:
Sub InputBox_Example () Dim i As Variant i = InputBox ("Παρακαλώ εισάγετε το όνομά σας", "Προσωπικές πληροφορίες", "Πληκτρολογήστε εδώ") Τέλος Sub
Σημείωση: Μόλις το πλαίσιο εισαγωγής φτάσει στα δεξιά του ίσου σημείου, πρέπει να εισαγάγουμε τα ορίσματα ή τη σύνταξη σε παρενθέσεις όπως οι κανονικοί τύποι μας.
Βήμα 3: Τώρα, ανεξάρτητα από την τιμή που πληκτρολογείται στο πλαίσιο εισαγωγής, πρέπει να την αποθηκεύσουμε στο κελί A1. Γι 'αυτό, γράψτε τον κωδικό ως Range ("A1"). Value = i
Κώδικας:
Sub InputBox_Example () Dim i As Variant i = InputBox ("Παρακαλώ εισάγετε το όνομά σας", "Προσωπικές πληροφορίες", "Πληκτρολογήστε εδώ") Εύρος ("A1"). Value = i End Sub
Εντάξει, τελειώσαμε. Ας τρέξουμε αυτόν τον κώδικα τώρα πατώντας το πλήκτρο F5, ή μπορείτε επίσης να εκτελέσετε τον κώδικα χειροκίνητα, όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης.
Μόλις εκτελέσετε αυτόν τον κωδικό, θα δούμε το πλαίσιο εισαγωγής.
Πληκτρολογήστε το όνομα και κάντε κλικ στο Ok.
Μόλις πληκτρολογήσετε το όνομα και κάνετε κλικ στο OK, θα δείτε την τιμή εισόδου στο κελί A1.
Σημείωση: Μπορούμε να αποθηκεύσουμε οποιαδήποτε τιμή από το πλαίσιο εισόδου, εάν η μεταβλητή έχει οριστεί σωστά. Στο παραπάνω παράδειγμα, έχω ορίσει τη μεταβλητή ως παραλλαγή, η οποία μπορεί να κρατήσει όλους τους τύπους δεδομένων.
Για παράδειγμα, τώρα έχω αλλάξει τον τύπο της μεταβλητής σε Ημερομηνία.
Τώρα εκτελέστε τον κωδικό και πληκτρολογήστε διαφορετικό από την ημερομηνία.
Κάντε κλικ στο ok και δείτε ποια είναι η απάντηση.
We got the error value as Type mismatch. Since we have declared the variable data type as DATE, we cannot store anything other than DATE with an inputbox.
Now enter the date and see what happens.
As soon as you type the date and then click on OK and see what the response is.
Since we have entered the correct value, we got the result in the cell.
Validation of Input from User
You know what we can actually allow users to enter only specific value i.e., allow the user to enter only text, only number, only logical values, etc.
To perform this task, we need to use the method Application.InputBox.
Let’s look at the syntax of the Application.InputBox.
- Prompt: This is nothing but the message to the user through an input box.
- Title: What is the title of the input box?
- Default: What is the default value of the input box? This value appears in the typing area of the input box.
- Left: What should be the x position of the input box in the current window?
- Top: What should be the y position of the inputbox in the current window?
To start this, inputbox declare variable and assign the value to a variable.
Now to assign value to start the word Application.
After the word Application, put a dot (.) and type Inputbox.
Select the input box and open the bracket.
As usual, enter Prompt, Title, and Default Value.
Now ignore left, top, help file, help context ID by typing 5 commas (,).
Here Type means what should be the input string. Below are the validations available.
Επομένως, επιλέξτε ανάλογα τον τύπο σας. Έχω επιλέξει 1 ως παράμετρο, δηλαδή μόνο αριθμούς.
Τώρα εκτελέστε τον κωδικό και τον τύπο της τιμής κειμένου.
Κάντε κλικ στο OK και δείτε τι συμβαίνει.
Λέει ότι ο αριθμός δεν είναι έγκυρος. Έτσι μπορούμε να εισαγάγουμε μόνο αριθμούς σε αυτό το πλαίσιο εισαγωγής.
Πράγματα που πρέπει να θυμάστε
- Χρειαζόμαστε μια μεταβλητή για να αποθηκεύσουμε την τιμή που δίνεται από το πλαίσιο εισαγωγής.
- Εάν χρησιμοποιείτε το InputBox χωρίς τη μέθοδο εφαρμογής, θα πρέπει να είστε τέλειοι για τον τύπο δεδομένων μεταβλητής.
- Χρησιμοποιήστε τον τύπο δεδομένων παραλλαγής, ο οποίος μπορεί να διατηρεί οποιοδήποτε είδος τύπου και αποθήκευση δεδομένων.
