Μπορείτε να χρησιμοποιήσετε το Λειτουργία InputBox σε Excel VBA για να ζητήσετε από τον χρήστη να εισαγάγει μια τιμή. Τοποθετήστε ένα κουμπί εντολών στο φύλλο εργασίας σας και προσθέστε τις ακόλουθες γραμμές κώδικα:
1. Αρχικά, δηλώστε τη μεταβλητή myValue του τύπου Variant.
Dim myValue As Variant
Σημείωση: εδώ χρησιμοποιούμε μια μεταβλητή τύπου Variant επειδή μια μεταβλητή Variant μπορεί να κρατήσει οποιονδήποτε τύπο τιμής. Με αυτόν τον τρόπο ο χρήστης μπορεί να εισαγάγει κείμενο, αριθμούς κ.
2. Προσθέστε την ακόλουθη γραμμή κωδικού για να εμφανίσετε το πλαίσιο εισαγωγής.
myValue = InputBox ("Δώσε μου κάποια είσοδο")
3. Γράψτε την τιμή του myValue στο κελί A1.
Εύρος ("A1"). Τιμή = myValue
Αποτέλεσμα όταν ο χρήστης εισάγει την τιμή 5 και κάνει κλικ στο κουμπί OK.
4. Η συνάρτηση InputBox έχει περισσότερα προαιρετικά ορίσματα. Η ακόλουθη γραμμή κώδικα εμφανίζει ένα πλαίσιο εισαγωγής με έναν τίτλο που εμφανίζεται στη γραμμή τίτλου και έχει μια προεπιλεγμένη τιμή. Η προεπιλεγμένη τιμή θα χρησιμοποιηθεί εάν δεν παρέχεται άλλη είσοδος.
myValue = InputBox ("Δώσε μου κάποια είσοδο", "Γεια", 1)
Αποτέλεσμα όταν ο χρήστης κάνει κλικ μόνο στο κουμπί OK.
Σημείωση: Τοποθετήστε τον κέρσορα στο InputBox στο Visual Basic Editor και κάντε κλικ στο F1 για βοήθεια στα άλλα προαιρετικά ορίσματα.
