Excel VBA UserForm Μεταβλητή Είσοδος

ανάγνωση ή τη δημιουργία μεταβλητών Excel με VBA φόρμες χρήστη περιλαμβάνει δηλώσεις γραφής που διερευνούν την ιδιότητα ονόματα του τρέχοντος βιβλίου εργασίας . Αυτή η ιδιότητα είναι μια συλλογή VBA διατηρεί όλα τα ονόματα που οι χρήστες του Excel καθορίζουν με πλαίσιο Όνομα του προγράμματος προς τα αριστερά της γραμμής τύπων . Η λειτουργία Add της συλλογής ονομάτων επιτρέπει στους προγραμματιστές να δημιουργήσουν VBA νέα ονόματα . Δημιουργία userform
Η

να μπορέσουν οι χρήστες να εισέλθουν εισροών από τους οποίους το πρόγραμμα VBA μπορεί να δημιουργήσει μεταβλητές Excel δημιουργήσετε ένα έργο με userform . Η userform δέχεται ένα όνομα μεταβλητής από ένα χρήστη , και επιτρέπει στο χρήστη να δημιουργήσει μια νέα μεταβλητή με αυτό το όνομα , ή να διαβάζει την τιμή μιας υπάρχουσας μεταβλητής .

Ξεκινήστε με τη δημιουργία του userform . Ανοίξτε το περιβάλλον προγραμματισμού VBA μέσα από το Excel πατώντας το πλήκτρο " Alt " και " F11 " ταυτόχρονα . Κάντε κλικ στο " userform " στοιχείο του μενού "Εισαγωγή" για να δημιουργήσετε το userform . Σύρετε δύο ελέγχους κειμένου στη φόρμα από το « κουτί εργαλείων» του πίνακα . Ένα πλαίσιο κειμένου κρατά το όνομα της μεταβλητής , ενώ το άλλο κρατά την αξία της μεταβλητής .

Σύρετε δύο κουμπιά πάνω στο userform . Το πρώτο επιτρέπει στο χρήστη να δημιουργήσει μια νέα μεταβλητή λευκό η δεύτερη διαβάζει μια υπάρχουσα μεταβλητή . Κάντε διπλό κλικ στο πρώτο κουμπί για να μπείτε στο παράθυρο προγραμματισμού . Πληκτρολογώντας δηλώσεις VBA σε αυτό το παράθυρο σας επιτρέπει να δημιουργήσετε και να διαβάσετε τις μεταβλητές που πληκτρολογεί ο χρήστης στο userform .
Εικόνων Text Box Αξία
Η

Για να καθορίσετε το όνομα της μεταβλητής που ο χρήστης θέλει να δημιουργήσει ή να διαβάσετε , διαβάστε το "Value" ιδιότητα του αντικειμένου κειμένου . Οι δηλώσεις VBA μετά από αυτήν την ενότητα να φορτώσετε τις μεταβλητές " varname " και " varValue " με τιμές από το "Value " ανήκει σε δύο διαφορετικά πλαίσια κειμένου .

Varname = textbox1.valuevarValue = textbox2.value
εικόνων
Προσθήκη μέθοδος
Η

Για να δημιουργήσετε μια νέα μεταβλητή , σε αντίθεση με την ανάγνωση ενός υπάρχοντος , χρησιμοποιήστε τη μέθοδο των ονομάτων συλλογή του τρέχοντος βιβλίου εργασίας . Ο όρος " μέθοδος " σημαίνει " λειτουργία. " Το μόνο που χρειάζεται να χρησιμοποιούν δύο επιχειρήματα της μεθόδου Add για να δημιουργήσετε ένα νέο όνομα . Το ακόλουθο δείγμα κώδικα δημιουργεί ένα νέο Excel όνομα μεταβλητής χρησιμοποιώντας Προσθήκη

ActiveWorkbook.Names.Add Όνομα : . = Varname , RefersToR1C1 : = varValue
εικόνων Ανάγνωση μεταβλητές
Η

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

MsgBox ActiveWorkbook.Names ( varname )
εικόνων λειτουργία του Προγράμματος
Η

Μετά από αυτό το τμήμα είναι ένα πρόγραμμα VBA που δημιουργεί και διαβάζει μεταβλητές Excel, χρησιμοποιώντας στοιχεία από ένα userform VBA . Μετά την επικόλληση αυτού του προγράμματος σε μια λειτουργική μονάδα userform , εκτελέστε την userform πατώντας το πλήκτρο " F5 . " Πληκτρολογήστε ένα όνομα και τιμή μεταβλητής μέσα σε πλαίσια κειμένου της φόρμας και, στη συνέχεια , κάντε κλικ στο πρώτο κουμπί που εισάγονται στη φόρμα . VBA θα δημιουργήσει μια νέα μεταβλητή με την τιμή που έχετε καθορίσει . . Κάντε κλικ στο δεύτερο κουμπί της φόρμας για να εμφανίσετε την τιμή της μεταβλητής που καθορίζεται

Private Sub CommandButton1_Click ( ) Dim tt = " = " & TextBox2.ValueActiveWorkbook.Names.Add Όνομα : = TextBox1.Value , RefersToR1C1 : = τείνουν Sub

Private Sub CommandButton2_Click ( ) Dim tt = TextBox2.ValueMsgBox ActiveWorkbook.Names ( t ) End Sub
Η
εικόνων