Εάν θέλετε να λάβετε οποιαδήποτε πληροφορία από τον χρήστη, μπορείτε να χρησιμοποιήσετε τη συνάρτηση INPUTBOX.
Αυτή η λειτουργία εμφανίζει ένα παράθυρο διαλόγου που επιτρέπει στον χρήστη να συμπληρώσει τα πάντα και επιστρέφει το περιεχόμενο ως συμβολοσειρά.
Μερικές φορές θέλετε να αποφασίσετε τι υποτίθεται ότι πρέπει να συμπληρώσει ο χρήστης, αντί να αποδεχτείτε οποιαδήποτε πληροφορία. Τότε είναι που χρησιμοποιείτε τη μέθοδο INPUTBOX:
Sub DecideUserInput () Dim bText As String, bNumber As Integer 'εδώ είναι η συνάρτηση INPUTBOX: bText = InputBox ("Εισαγωγή σε κείμενο", "Αυτό δέχεται οποιαδήποτε είσοδο")' εδώ είναι η μέθοδος INPUTBOX: bNumber = Application. InputBox ("Εισαγωγή αριθμού", "Αυτό δέχεται μόνο αριθμούς", 1) MsgBox "Έχετε εισαγάγει:" & Chr (13) & _ bText & Chr (13) & bNumber,, "Result from INPUT-boxes" End Sub
Η μέθοδος INPUTBOX έχει ένα τρίτο όρισμα, το Type, που αποφασίζει τι επιτρέπεται να εισαγάγει ο χρήστης στο παράθυρο διαλόγου INPUTBOX.
Ο τύπος μπορεί να είναι ένας από τους ακόλουθους:
Τύπος:
Αποδεκτή είσοδος: 0 Ένας τύπος 1 Ένας αριθμός 2 Κείμενο 4 Μια λογική τιμή (Σωστό ή Λάθος) 8 Αναφορά κελιού, π.χ. a Range-object 16 Μια τιμή σφάλματος, π.χ. #N/A 64 Ένας πίνακας τιμών
Όταν εκτελέσουμε τη μακροεντολή θα δούμε τα ακόλουθα πλαίσια εισαγωγής:
Με αυτόν τον τρόπο μπορούμε να πάρουμε το αποτέλεσμα μέσω του πλαισίου μηνυμάτων.