Πώς να κάνει VBA Κουτιά εισόδου

VBA είναι μια γλώσσα προγραμματισμού που αναπτύχθηκε και διανέμεται από τη Microsoft . Η γλώσσα είναι απλή και μπορείτε να μάθετε γρήγορα . VBA έρχεται περιλαμβάνονται με και χρησιμεύει ως γλώσσα μακροεντολών για πολλά προϊόντα της Microsoft , όπως το Office . Χρησιμοποιώντας VBA , οι προγραμματιστές μπορούν να δημιουργήσουν εφαρμογές που συλλέγουν πληροφορίες από τους χρήστες . Ένα στοιχείο που μπορείτε να δημιουργήσετε για να δέχεται δεδομένα από τους χρήστες είναι το πλαίσιο εισαγωγής VBA . Γράφοντας ένα πρόγραμμα για να δεχθεί σχόλια των χρηστών με το κιβώτιο εισόδου VBA είναι απλή και διαρκεί μόνο λίγες γραμμές κώδικα . Οδηγίες
Η

1 Ανοίξτε το Microsoft Excel . 2

Κάντε κλικ στο " Εργαλεία ", " Macro " και στη συνέχεια " Visual Basic ". Αυτό ανοίγει το πρόγραμμα επεξεργασίας VBA .
Εικόνων 3

Κάντε κλικ στο " Εισαγωγή" και " ενότητα ". Πρέπει τώρα να έχετε μια κενή λειτουργική μονάδα κώδικα
Η 4

Πληκτρολογήστε ή αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στη λειτουργική μονάδα κώδικα : .

TestInputBoxFunction Public Sub ( )

Dim strFirstName Όπως String Dim

strLastName Όπως String

« Πάρτε το πρώτο και το τελευταίο όνομα του χρήστη

strFirstName = InputBox ( Prompt : . = " . Πληκτρολογήστε το όνομά σας " , _

Τίτλος : = " Ονοματεπώνυμο Demo " )

strLastName = InputBox ( Prompt : = " . Πληκτρολογήστε το όνομά σας " , _

Τίτλος : = " Ονοματεπώνυμο Demo » )

'Εμφάνιση το πλήρες όνομα μόνο εάν και οι δύο πεδία εισαγωγής κειμένου έχουν σε αυτές

Εάν strFirstName = ". "Ή strLastName = " " τότε

MsgBox Prompt : = " δεν έχετε εισάγει όλες τις απαιτούμενες πληροφορίες . "

Else MsgBox

Prompt : = " Πληκτρολογήσατε" & strFirstName & "" & _

strLastName & " " . Τίτλος : = " Ονοματεπώνυμο Demo "

End If

End Sub
Η
εικόνων