Λειτουργία VBA InputBox | Πώς να δημιουργήσετε τιμές InputBox & Store;

Excel VBA InputBox

Το VBA InputBox είναι μια ενσωματωμένη συνάρτηση που χρησιμοποιείται για να πάρει μια τιμή από τον χρήστη, αυτή η συνάρτηση έχει δύο βασικά ορίσματα στα οποία το ένα είναι η επικεφαλίδα για το πλαίσιο εισαγωγής και ένα άλλο είναι η ερώτηση για το πλαίσιο εισαγωγής, η λειτουργία κουτιού εισόδου μπορεί να αποθηκεύσει μόνο την εισαγωγή δεδομένων τύπων δεδομένων που μπορεί να διατηρήσει η μεταβλητή.

Συχνά στο Excel, χρησιμοποιούμε τα δεδομένα που υπάρχουν ήδη στο φύλλο excel. Μερικές φορές χρειαζόμαστε κάποιο είδος δεδομένων εισαγωγής από τους χρήστες. Ειδικά στην είσοδο VBA από το χρήστη απαιτείται πολλές φορές.

Χρησιμοποιώντας το InputBox μπορούμε να πάρουμε τα δεδομένα από τον χρήστη και να τα χρησιμοποιήσουμε για το σκοπό μας. Ένα InputBox θα ζητήσει από το χρήστη να εισαγάγει την τιμή εμφανίζοντας το InputBox.

Σύνταξη

  • Προτροπή: Αυτό δεν είναι παρά το μήνυμα προς τον χρήστη μέσω ενός πλαισίου εισαγωγής.
  • Τίτλος: Ποιος είναι ο τίτλος του πλαισίου εισαγωγής;
  • Προεπιλογή: Ποια είναι η προεπιλεγμένη τιμή του εισερχομένου; Αυτή η τιμή εμφανίζεται στην περιοχή πληκτρολόγησης του πλαισίου εισόδου.

Αυτές οι τρεις παράμετροι είναι αρκετά καλές στο Excel, αγνοήστε τις άλλες 4 προαιρετικές παραμέτρους. Για να κατανοήσετε αυτήν τη σύνταξη, δείτε το παρακάτω στιγμιότυπο οθόνης.

Πώς να δημιουργήσετε το InputBox στο VBA;

Εντάξει, ας μεταπηδήσουμε κατευθείαν στην πρακτικότητα. Ακολουθήστε τα παρακάτω βήματα για να δημιουργήσετε το πρώτο σας εισερχόμενο πλαίσιο.

Μπορείτε να κατεβάσετε αυτό το Πρότυπο VBA InputBox Excel εδώ - Πρότυπο VBA InputBox Excel

Βήμα 1: Μεταβείτε στο VBE (Visual Basic Editor) και εισαγάγετε μια νέα λειτουργική μονάδα.

Βήμα 2: Κάντε διπλό κλικ στην ενσωματωμένη ενότητα και δημιουργήστε ένα όνομα μακροεντολής.

Βήμα 3: Ξεκινήστε να πληκτρολογείτε τη λέξη "InputBox" θα δείτε σχετικές επιλογές.

Βήμα 4: Επιλέξτε το INPUTBOX και δώστε χώρο και θα δείτε τη σύνταξη του εισερχομένου.

Βήμα 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 και δείτε ποια είναι η απάντηση.

Λάβαμε την τιμή σφάλματος ως αναντιστοιχία τύπου . Δεδομένου ότι έχουμε δηλώσει τον τύπο δεδομένων μεταβλητής ως DATE, δεν μπορούμε να αποθηκεύσουμε τίποτα άλλο από το DATE με ένα πλαίσιο εισαγωγής.

Τώρα εισαγάγετε την ημερομηνία και δείτε τι συμβαίνει.

Μόλις πληκτρολογήσετε την ημερομηνία και, στη συνέχεια, κάντε κλικ στο OK και δείτε ποια είναι η απάντηση.

Εφόσον έχουμε εισαγάγει τη σωστή τιμή, έχουμε το αποτέλεσμα στο κελί.

Επικύρωση εισαγωγής από χρήστη

Ξέρετε τι μπορούμε πραγματικά να επιτρέψουμε στους χρήστες να εισάγουν μόνο συγκεκριμένη τιμή, δηλαδή να επιτρέπουν στον χρήστη να εισάγει μόνο κείμενο, μόνο αριθμό, μόνο λογικές τιμές κ.λπ.

Για να εκτελέσουμε αυτήν την εργασία, πρέπει να χρησιμοποιήσουμε τη μέθοδο Application.InputBox.

Ας δούμε τη σύνταξη του Application.InputBox.

 

  • Προτροπή: Αυτό δεν είναι παρά το μήνυμα προς τον χρήστη μέσω ενός πλαισίου εισαγωγής.
  • Τίτλος: Ποιος είναι ο τίτλος του πλαισίου εισαγωγής;
  • Προεπιλογή: Ποια είναι η προεπιλεγμένη τιμή του πλαισίου εισαγωγής; Αυτή η τιμή εμφανίζεται στην περιοχή πληκτρολόγησης του πλαισίου εισαγωγής.
  • Αριστερά: Ποια θα πρέπει να είναι η θέση x του πλαισίου εισόδου στο τρέχον παράθυρο;
  • Αρχή: Ποια θα πρέπει να είναι η θέση y του εισερχομένου στο τρέχον παράθυρο;

Για να ξεκινήσετε αυτήν την είσοδο, δηλώστε μεταβλητή και αντιστοιχίστε την τιμή σε μια μεταβλητή.

Τώρα για να εκχωρήσετε τιμή για να ξεκινήσετε τη λέξη Εφαρμογή.

Μετά τη λέξη Application βάλτε μια τελεία (.) Και πληκτρολογήστε Inputbox.

Επιλέξτε το πλαίσιο εισαγωγής και ανοίξτε το βραχίονα.

Ως συνήθως εισαγάγετε τη γραμμή εντολών, τον τίτλο και την προεπιλεγμένη τιμή.

Τώρα αγνοήστε αριστερά, πάνω, αρχείο βοήθειας, αναγνωριστικό περιβάλλοντος βοήθειας πληκτρολογώντας 5 κόμματα (,).

Εδώ το Type σημαίνει τι πρέπει να είναι η συμβολοσειρά εισόδου. Ακολουθούν οι διαθέσιμες επικυρώσεις.

Επομένως, επιλέξτε ανάλογα τον τύπο σας. Έχω επιλέξει 1 ως παράμετρο, δηλαδή μόνο αριθμούς.

Τώρα εκτελέστε τον κωδικό και τον τύπο της τιμής κειμένου.

Κάντε κλικ στο OK και δείτε τι συμβαίνει.

Λέει ότι ο αριθμός δεν είναι έγκυρος. Έτσι μπορούμε να εισαγάγουμε μόνο αριθμούς σε αυτό το πλαίσιο εισαγωγής.

Πράγματα που πρέπει να θυμάστε

  • Χρειαζόμαστε μια μεταβλητή για να αποθηκεύσουμε την τιμή που δίνεται από το πλαίσιο εισαγωγής.
  • Εάν χρησιμοποιείτε το InputBox χωρίς τη μέθοδο Εφαρμογής, τότε θα πρέπει να είστε τέλειοι για τον τύπο μεταβλητής δεδομένων.
  • Χρησιμοποιήστε παραλλαγή τύπου δεδομένων που μπορεί να διατηρεί οποιοδήποτε είδος τύπου δεδομένων και καταστήματα.

$config[zx-auto] not found$config[zx-overlay] not found