Το Input Box στο Excel VBA

Μάθετε για τη λειτουργία Input Box στο Excel VBA ως προκαταρκτικό βήμα για τη δημιουργία προγραμμάτων με αυτό το εργαλείο εισαγωγής . Αυτή η λειτουργία παρέχει μια ήπια εισαγωγή στην εκμάθηση πώς να προγραμματίσετε προγράμματα VBA με το χέρι, επειδή παίρνει μόνο ένα όρισμα , αλλά εκτελεί τη ζωτική λειτουργία της υποδοχής εισόδου του χρήστη . Θεωρεί ότι η εκμάθηση της λειτουργίας MsgBox μαζί με Input Box , διότι ο ρόλος του , παρουσιάζει την έξοδο για τους χρήστες να δουν , είναι το αντίστοιχο της συνάρτησης Input Box . Σκοπός
Η

Η λειτουργία Input Box ζητά έναν χρήστη για την είσοδο και δέχεται ότι η είσοδος . Για παράδειγμα, ένα κουτί εισόδου μπορεί να παρακινήσει ένα χρήστη να εισάγετε την ηλικία ενός ατόμου , το οποίο το πρόγραμμά σας μπορεί να αποθηκεύσει σε έναν πίνακα που ονομάζεται " λίστα Birthday" σε ένα υπολογιστικό φύλλο του Excel .
Εικόνων Επιχειρήματα

Input Box παίρνει διάφορα επιχειρήματα , αλλά το μόνο που χρειάζεται για να το προμηθεύσει με ένα - το κείμενο που προτρέπει το χρήστη να εισάγει τα δεδομένα . Προαιρετικά επιχειρήματα περιλαμβάνουν "Τίτλος ", το οποίο εμφανίζεται στη γραμμή τίτλου του Input Box. Η "Default" επιχείρημα είναι η τιμή εισόδου ασφαλείας θα επιστρέψει στο πρόγραμμά σας , αν ο χρήστης πατήσει "Enter" , χωρίς να εισέρχεται σε μια τιμή . Μπορείτε να τοποθετήσετε το κουτί εισόδου σε μια συγκεκριμένη θέση στην οθόνη καθορίζοντας τιμές για το " XPOS " και " γρος « επιχειρήματα .

Η τιμή επιστροφής
Η

το Input Box επιστρέφει μια τιμή συμβολοσειράς στο πρόγραμμά σας , το οποίο συνήθως σημαίνει ότι πρέπει να δηλώσουμε μια μεταβλητή για να λαμβάνετε τιμή επιστροφής της συνάρτησης . Η δήλωση αυτή μπορεί να πάρει μία από τις δύο μορφές . Το πρώτο δεν υποδηλώνει ένα συγκεκριμένο είδος της αξίας . Για παράδειγμα , θα μπορούσατε να γράψετε "Dim returnValue . " Ή θα μπορούσε να δείξει την μεταβλητή συμβολοσειράς τύπου με δήλωση όπως " Δημ. returnValue ως σειρά . " Σε γενικές γραμμές , χρησιμοποιήστε το πιο συγκεκριμένη πληκτρολόγηση , ώστε VBA μπορεί να πιάσει τα λάθη σχετίζονται με τον τύπο , όπως όταν το πρόγραμμά σας προσπαθεί να αντιστοιχίσετε έναν αριθμό σε μια μεταβλητή συμβολοσειράς .
Εικόνων Πρόγραμμα Δείγμα
Η

Δοκιμάστε ένα δείγμα προγράμματος που ενσωματώνει Input Box με το Excel . Κάντε κλικ στο κουμπί " Visual Basic" στην καρτέλα Προγραμματιστής του Excel για να ανοίξετε το περιβάλλον προγραμματισμού VBA . Αντιγράψτε τον παρακάτω κώδικα :

Public Sub getEmailAdr ( )

Dim str_email Όπως String

Do While ( InStr ( str_email , " @" ) = 0 )

str_email = InputBox ( " Πληκτρολογήστε μια έγκυρη διεύθυνση ηλεκτρονικού ταχυδρομείου . " )

Loop

Range ( "A1" ) = str_email

End Sub

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

Input Box είναι μόνο ένας από τους πολλούς τρόπους για να πάρετε το χρήστη είσοδος στο Excel . Μπορείτε να χρησιμοποιήσετε αντί για ένα κελί υπολογιστικού φύλλου ή ένα στοιχείο ελέγχου Πλαίσιο κειμένου για να πάρετε είσοδο . Από το Input Box δέχεται εισαγωγή κειμένου , δεν είναι η καλύτερη επιλογή για να απαντήσεις ναι /όχι ερωτήσεις τύπου . Ωστόσο , ένα πλεονέκτημα της λειτουργίας Input Box είναι ότι δεν έχετε να δημιουργήσει ένα ειδικό έντυπο για να το χρησιμοποιήσει , σε αντίθεση με άλλους ελέγχους VBA. Ένα στοιχείο ελέγχου πλαισίου λίστας , για παράδειγμα , απαιτεί ένα userform , το οποίο μπορείτε να δημιουργήσετε ή ένα υπολογιστικό φύλλο , όπου ο έλεγχος θα καταλαμβάνουν χώρο στην οθόνη . Input Box δεν καταλαμβάνει χώρο . Φαίνεται , δέχεται είσοδο του χρήστη , στη συνέχεια εξαφανίζεται , γεγονός που καθιστά πολύ διακριτικά.
Η
εικόνων