Τρόπος χρήσης της Visual Basic for Applications (VBA) για να αλλάξετε τις φόρμες χρήστη στο Excel

Σύνοψη

Αυτό το άρθρο περιγράφει τον τρόπο αλλαγής φόρμες χρήστη μέσω προγραμματισμού στο Microsoft Excel. Περιλαμβάνει παραδείγματα και Microsoft Visual Basic Applications (VBA) μακροεντολών που σας δείχνουν πώς μπορείτε να επωφεληθείτε από τις δυνατότητες του φόρμες χρήστη και πώς μπορείτε να χρησιμοποιήσετε τα στοιχεία ελέγχου ActiveX™ που είναι διαθέσιμες για φόρμες χρήστη.

Εισαγωγή στις βασικές αρχές της φόρμες χρήστη περιγράφει πώς μπορείτε να εμφανίσετε φόρμες χρήστη, για να αποκρύψετε προσωρινά φόρμες χρήστη και για να ματαιώσετε φόρμες χρήστη. Εμφανίζονται επίσης πώς να χρησιμοποιείτε τα πιο συνηθισμένα συμβάντα που σχετίζονται με φόρμες χρήστη — το συμβάν Προετοιμασία , το συμβάν Click και το συμβάν τερματισμού . Ένα ή περισσότερα από τα παρακάτω παραδείγματα δείχνουν τον τρόπο χρήσης κάθε ένα από τα ακόλουθα στοιχεία ελέγχου ActiveX™ σε μια UserForm:
  • Στοιχείο ελέγχου ετικέτας
  • Στοιχείο ελέγχου πλαισίου κειμένου
  • Στοιχείο ελέγχου CommandButton
  • Στοιχείο ελέγχου πλαισίου λίστας
  • Στοιχείο ελέγχου σύνθετου πλαισίου
  • Πλαίσιο ελέγχου
  • Στοιχείο ελέγχου OptionButton
  • Πλαίσιο ελέγχου στοιχείου ελέγχου
  • Ελέγχου των κουμπιών εναλλαγής
  • Στοιχείο ελέγχου TabStrip
  • Στοιχείο ελέγχου πολλές σελίδες
  • Στοιχείο ελέγχου γραμμής κύλισης
  • Στοιχείο ελέγχου SpinButton
  • Στοιχείο ελέγχου RefEdit
  • Στοιχείο ελέγχου εικόνας

ΕΙΣΑΓΩΓΗ

Αυτό το άρθρο περιγράφει τον τρόπο χρήσης της VBA για να κάνετε αλλαγές σε φόρμες χρήστη στο Excel.

Περισσότερες πληροφορίες

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

Βασικά στοιχεία UserForm

Πώς μπορείτε να εμφανίσετε μια UserForm

Η σύνταξη που χρησιμοποιείται για την εμφάνιση ενός UserForm μέσω προγραμματισμού είναι τα εξής:
UserFormName.Show
Για να εμφανίσετε μια UserForm που ονομάζεται UserForm1, χρησιμοποιήστε τον ακόλουθο κώδικα:
UserForm1.Show
Μπορείτε να φορτώσετε μια UserForm στη μνήμη, χωρίς να την εμφανίσετε στην πραγματικότητα. Ενδέχεται να χρειαστούν μια σύνθετη UserForm αρκετά δευτερόλεπτα για να εμφανιστούν. Επειδή μπορείτε να προ-φορτώσουν μια UserForm στη μνήμη, μπορείτε να αποφασίσετε πότε να αναλάβει αυτή την επιβάρυνση. Για να φορτώσετε UserForm1 στη μνήμη, χωρίς να την εμφανίσετε, χρησιμοποιήστε τον ακόλουθο κώδικα:
Load UserForm1
Για να εμφανίσετε το UserForm, πρέπει να χρησιμοποιείτε τη μέθοδο Show που ήταν προηγουμένως εμφανίζονται.

Πώς μπορείτε να αποκρύψετε προσωρινά μια UserForm

Εάν θέλετε να αποκρύψετε προσωρινά μια UserForm, χρησιμοποιήστε τη μέθοδο Απόκρυψη . Εάν θέλετε, μπορείτε να αποκρύψετε ένα UserForm εάν η εφαρμογή σας περιλαμβάνει τη μετακίνηση μεταξύ φόρμες χρήστη. Για να αποκρύψετε ένα UserForm, χρησιμοποιήστε τον ακόλουθο κώδικα:
UserForm1.Hide
Για πρόσθετες πληροφορίες, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
213747 XL2000: Τρόπος μετακίνησης μεταξύ προσαρμοσμένες φόρμες χρήστη με κουμπιά εντολών

Τρόπος κατάργησης ενός UserForm από τη μνήμη

Για να καταργήσετε μια UserForm από τη μνήμη, χρησιμοποιήστε την πρόταση κατάργησης φόρτωσης . Για να καταργήσετε τη φόρτωση ενός UserForm που ονομάζεται UserForm1, χρησιμοποιήστε τον ακόλουθο κώδικα:
Unload UserForm1
Εάν καταργήσετε τη φόρτωση ενός UserForm σε μια διαδικασία συμβάντος που σχετίζεται με μια UserForm ή που σχετίζεται με ένα στοιχείο ελέγχου σε μια UserForm (για παράδειγμα, κάνετε κλικ στο κουμπί ελέγχου CommandButton ), μπορείτε να χρησιμοποιήσετε το "Me" λέξη-κλειδί αντί για το όνομα του το UserForm. Για να χρησιμοποιήσετε το "Me" λέξη-κλειδί για να καταργήσετε τη φόρτωση ενός UserForm, χρησιμοποιήστε τον ακόλουθο κώδικα:
Unload Me

Τρόπος χρήσης UserForm συμβάντα

Φόρμες χρήστη υποστηρίζει πολλά προκαθορισμένα συμβάντα που μπορείτε να επισυνάψετε διαδικασίες VBA. Όταν προκύψει το συμβάν, τότε εκτελείται η διαδικασία που έχετε επισυνάψει στο συμβάν. Μια μεμονωμένη ενέργεια που εκτελείται από έναν χρήστη να ξεκινήσετε πολλά συμβάντα. Μεταξύ τα πιο συχνά χρησιμοποιούνται συμβάντα για μια UserForm είναι το συμβάν Προετοιμασία , το συμβάν Click και το συμβάν τερματισμού .

Σημείωση Μια λειτουργική μονάδα της Visual Basic, που περιέχει μια διαδικασία συμβάντος ενδέχεται να αναφέρεται ως λειτουργική μονάδα "το UserForm πίσω". Μια λειτουργική μονάδα που περιέχει διαδικασίες συμβάντος δεν είναι ορατά στη συλλογή λειτουργικές μονάδες του παραθύρου "Εξερεύνηση έργου" της επεξεργασίας της Visual Basic. Θα πρέπει να κάντε διπλό κλικ στο σώμα του μια UserForm για να προβάλετε τη λειτουργική μονάδα κώδικα UserForm.

Τρόπος για να κάνετε συναρμογή UserForm συμβάντα

Για να κάνετε συναρμογή UserForm συμβάντα, ακολουθήστε τα εξής βήματα:
  1. Δημιουργήστε ένα νέο βιβλίο εργασίας του Excel.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Κάντε διπλό κλικ το UserForm για να εμφανίσετε το παράθυρο κώδικα για το UserForm.
  5. Στη λειτουργική μονάδα, πληκτρολογήστε τον ακόλουθο κώδικα:
    Private Sub UserForm_Click()
    Me.Height = Int(Rnd * 500)
    Me.Width = Int(Rnd * 750)

    End Sub

    Private Sub UserForm_Initialize()

    Me.Caption = "Events Events Events!"
    Me.BackColor = RGB(10, 25, 100)

    End Sub

    Private Sub UserForm_Resize()

    msg = "Width: " & Me.Width & Chr(10) & "Height: " & Me.Height
    MsgBox prompt:=msg, Title:="Resize Event"

    End Sub


    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    msg = "Now Unloading " & Me.Caption
    MsgBox prompt:=msg, Title:="QueryClose Event"

    End Sub

    Private Sub UserForm_Terminate()

    msg = "Now Unloading " & Me.Caption
    MsgBox prompt:=msg, Title:="Terminate Event"

    End Sub
  6. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Όταν το UserForm φορτώνεται πρώτα, η μακροεντολή χρησιμοποιεί το συμβάν Προετοιμασία για να αλλάξετε την ιδιότητα Caption το UserForm "Συμβάντα συμβάντα συμβάντων!" και την ιδιότητα BackColor σε σκούρο μπλε.

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

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

Το συμβάν τερματισμού , στη συνέχεια, δημιουργεί ένα πλαίσιο μηνύματος που αναφέρει ότι η λεζάντα της το UserForm είναι UserForm1. Το συμβάν τερματισμού εμφανίζεται μετά το UserForm καταργούνται από τη μνήμη και τη λεζάντα του το UserForm επιστρέφει στην αρχική του κατάσταση.

Τρόπος αποτροπής ενός UserForm κλείνει, χρησιμοποιώντας το κουμπί "Κλείσιμο"

Όταν εκτελείτε μια UserForm, προστίθεται ένα κουμπί " Κλείσιμο " στην επάνω δεξιά γωνία του παραθύρου UserForm. Εάν θέλετε να εμποδίσετε το UserForm να κλείνει, χρησιμοποιώντας το κουμπί " Κλείσιμο ", θα πρέπει να παγιδεύσει το συμβάν QueryClose .

Το συμβάν QueryClose συμβαίνει αμέσως πριν το UserForm καταργείται από τη μνήμη. Χρησιμοποιήστε το όρισμα CloseMode της το συμβάν QueryClose για να προσδιορίσετε πώς το UserForm είναι κλειστό. Η τιμή vbFormControlMenu για το όρισμα CloseMode δηλώνει ότι έγινε κλικ στο κουμπί Κλείσιμο . Για να διατηρήσετε το UserForm ενεργές, ορίστε στο όρισμα Ακύρωση του συμβάντος QueryClose True. Για να χρησιμοποιήσετε το συμβάν QueryClose για να εμποδίσετε ένα UserForm να κλείνει, χρησιμοποιώντας το
Κλείσιμο κουμπιών, ακολουθήστε τα εξής βήματα:
  1. Δημιουργήστε ένα νέο βιβλίο εργασίας του Excel.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου CommandButton το UserForm.
  5. Κάντε διπλό κλικ το UserForm για να εμφανίσετε το παράθυρο κώδικα για το UserForm.
  6. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα:
    Private Sub CommandButton1_Click()
    Unload Me

    End Sub

    Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)

    IF CloseMode = vbFormControlMenu Then
    Cancel = True
    Me.Caption = "Click the CommandButton to close Me!"
    End If

    End Sub
  7. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Το UserForm δεν κλείσει όταν κάνετε κλικ το
Το κουμπί " Κλείσιμο ". Πρέπει να επιλέξετε το
Στοιχείο ελέγχου CommandButton για να κλείσετε το UserForm.


Για πρόσθετες πληροφορίες, κάντε κλικ στους αριθμούς των άρθρων παρακάτω, για να προβάλετε τα άρθρα της Γνωσιακής Βάσης της Microsoft:
207714 XL2000: σφάλματα χρόνου εκτέλεσης που χρησιμοποιούν συλλογή φόρμες χρήστη

211527 XL2000: δεν είναι δυνατό να σύρετε το στοιχείο ελέγχου UserForm σε ένα φύλλο εργασίας

211868 XL2000: σφάλμα κατά την εκτέλεση μακροεντολής που εισάγει το στοιχείο ελέγχου σε UserForm

213582 XL2000: ζητήματα κατά τη χρήση μακροεντολής για να προσθέσετε το στοιχείο ελέγχου UserForm

213583 XL2000: δεν είναι δυνατή η εμφάνιση φόρμες χρήστη σε άλλα έργα

213736 XL2000: Τρόπος για να προσδιορίσετε το πλήκτρο πατηθεί μαζί με το κουμπί του ποντικιού

213744 XL2000: Τρόπος για να αποκρύψετε προσωρινά μια UserForm

213747 XL2000: Τρόπος μετακίνησης μεταξύ προσαρμοσμένες φόρμες χρήστη με κουμπιά εντολών

213749 XL2000: Τρόπος χρήσης ενός UserForm για την εισαγωγή δεδομένων

213768 XL2000: Τρόπος δυναμικά το μέγεθος μιας φόρμας χρήστη

213774 XL2000: Τρόπος για να δημιουργήσετε μια οθόνη έναρξης με μια UserForm

Ο κώδικας VBA

Το Excel συμπεριλαμβάνει δεκαπέντε διαφορετικά στοιχεία ελέγχου που μπορείτε να χρησιμοποιήσετε στις φόρμες χρήστη. Αυτή η ενότητα περιέχει διάφορα παραδείγματα που χρησιμοποιούν αυτά τα στοιχεία ελέγχου μέσω προγραμματισμού.

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

Πώς μπορείτε να χρησιμοποιήσετε τη λειτουργία σχεδίασης για να επεξεργαστείτε τα στοιχεία ελέγχου

Όταν χρησιμοποιείτε το πρόγραμμα επεξεργασίας της Visual Basic για να σχεδιάσετε ένα πλαίσιο διαλόγου, χρησιμοποιείτε κατάσταση λειτουργίας σχεδίασης. Σε κατάσταση σχεδίασης, μπορείτε να επεξεργαστείτε τα στοιχεία ελέγχου και μπορείτε να αλλάξετε τις ιδιότητες ενός στοιχείου ελέγχου σε μια UserForm στο παράθυρο "Ιδιότητες". Για να εμφανίσετε το παράθυρο "Ιδιότητες" από το μενού Προβολή , κάντε κλικ στο κουμπί
Το παράθυρο "Ιδιότητες".

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

Σημείωση Τα στοιχεία ελέγχου να ανταποκρίνονται σε συμβάντα κατά την εκτέλεση.

Τρόπος για να αναφερθείτε σε στοιχεία ελέγχου σε μια UserForm

Πώς μπορείτε να αναφερθείτε σε στοιχεία ελέγχου μέσω προγραμματισμού εξαρτάται από τον τύπο του φύλλο λειτουργικής μονάδας Visual Basic, όπου μπορείτε να εκτελέσετε τον κώδικα. Εάν ο κώδικας εκτελείται από μια γενική λειτουργική μονάδα, η σύνταξη είναι η εξής:
UserFormName.Controlname.Property = τιμή
Για παράδειγμα, εάν θέλετε να ορίσετε την ιδιότητα Text ενός στοιχείου ελέγχου πλαισίου κειμένου που ονομάζεται TextBox1 σε μια UserForm που ονομάζεται UserForm1 στην τιμή του Βασίλη, χρησιμοποιήστε τον ακόλουθο κώδικα:
UserForm1.TextBox1.Text = "Bob"
Αν ο κωδικός είναι σε μια διαδικασία που ενεργοποιείται από ένα συμβάν στοιχείου ελέγχου ή από το UserForm, δεν χρειάζεται να αναφέρεται το όνομα του το UserForm. Αντί για αυτό, χρησιμοποιήστε τον ακόλουθο κώδικα:
TextBox1.Text = "Bob"
Όταν επισυνάπτετε κώδικα σε ένα αντικείμενο, ο κώδικας είναι συνδεδεμένη με ένα από τα συμβάντα αυτού του αντικειμένου. Σε πολλά από τα παραδείγματα σε αυτό το άρθρο, μπορείτε να επισυνάψετε κώδικα για το συμβάν Click του αντικειμένου CommandButton .

Στοιχεία ελέγχου ετικέτας

Στοιχεία ελέγχου ετικέτας χρησιμοποιούνται κυρίως για την περιγραφή των άλλων στοιχείων ελέγχου σε μια UserForm. Ένα στοιχείο ελέγχου ετικέτας δεν μπορεί να επεξεργαστεί ο χρήστης ενώ εκτελείται το UserForm. Χρησιμοποιήστε την ιδιότητα λεζάντας για να ορίσετε ή να επαναφέρετε το κείμενο στο στοιχείο ελέγχου ετικέτας . Άλλες ιδιότητες που χρησιμοποιούνται συχνά για τη μορφοποίηση του στοιχείο ελέγχου ετικέτας περιλαμβάνουν τις ιδιότητες γραμματοσειράς και η τιμή χρώμα πρώτου πλάνου .

Πώς μπορείτε να χρησιμοποιήσετε μία δήλωση με with για να μορφοποιήσετε ένα στοιχείο ελέγχου ετικέτας

Για να χρησιμοποιήσετε τη δήλωση WITH για να αλλάξετε τις ιδιότητες του στοιχείο ελέγχου ετικέτας , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου ετικέτας το UserForm.
  5. Προσθέστε ένα στοιχείο ελέγχου CommandButton το UserForm.
  6. Κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton για να ανοίξετε το παράθυρο κώδικα για το UserForm.
  7. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CommandButton1, κάντε κλικ στο κουμπί :
    Private Sub CommandButton1_Click()
    With Label1
    ' Set the text of the label.
    .Caption = "This is Label Example 1"
    ' Automatically size the label control.
    .AutoSize = True
    .WordWrap = False
    ' Set the font used by the Label control.
    .Font.Name = "Times New Roman"
    .Font.Size = 14
    .Font.Bold = True
    ' Set the font color to blue.
    .ForeColor = RGB(0, 0, 255)
    End With

    End Sub
  8. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
  9. Κάντε κλικ στο κουμπί CommandButton.
Το κείμενο "Είναι ετικέτα παράδειγμα 1" εμφανίζεται στο στοιχείο ελέγχου ετικέτας σε έντονο Times New Roman μεγέθους γραμματοσειράς του 14.

Τα στοιχεία ελέγχου πλαισίου κειμένου

Τα στοιχεία ελέγχου πλαισίου κειμένου που χρησιμοποιούνται συχνά για να συγκεντρώσετε δεδομένα εισόδου από το χρήστη. Η ιδιότητα κειμένου περιέχει την εγγραφή που έχει γίνει σε ένα στοιχείο ελέγχου πλαισίου κειμένου .

Πώς μπορείτε να χρησιμοποιήσετε ένα στοιχείο ελέγχου πλαισίου κειμένου για να επικυρώσετε έναν κωδικό πρόσβασης

Εάν ορίσετε την ιδιότητα PasswordChar ενός στοιχείου ελέγχου πλαισίου κειμένου , γίνεται ένα στοιχείο ελέγχου "μάσκα Επεξεργασία". Κάθε χαρακτήρας που πληκτρολογείται στο στοιχείο ελέγχου πλαισίου κειμένου αντικαθίσταται οπτικά από τον χαρακτήρα που έχετε καθορίσει. Για να χρησιμοποιήσετε ένα στοιχείο ελέγχου πλαισίου κειμένου για να επικυρώσετε έναν κωδικό πρόσβασης, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου πλαισίου κειμένου για να το UserForm.
  5. Στο μενού Προβολή , κάντε κλικ στο κουμπί
    Ιδιότητες για να εμφανίσετε το παράθυρο "Ιδιότητες".
  6. Στην ιδιότητα PasswordChar του στοιχείου ελέγχου του πλαισίου κειμένου , πληκτρολογήστε *.

    Σημείωση Πρόκειται να αλλάξετε την τιμή σε έναν αστερίσκο.
  7. Προσθέστε ένα στοιχείο ελέγχου CommandButton το UserForm.
  8. Κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton για να ανοίξετε το παράθυρο κώδικα για το UserForm.
  9. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CommandButton1, κάντε κλικ στο κουμπί :
    Private Sub CommandButton1_Click()
    If TextBox1.Text <> "userform" Then
    MsgBox "Password is Incorrect. Please reenter."
    TextBox1.Text = ""
    TextBox1.SetFocus
    Else
    MsgBox "Welcome!"
    Unload Me
    End If

    End Sub


  10. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
  11. Πληκτρολογήστε τον κωδικό πρόσβασης userform στο στοιχείο ελέγχου πλαισίου κειμένου .
  12. Κάντε κλικ στο στοιχείο ελέγχου CommandButton.
Αυτό το παράδειγμα, ο κωδικός πρόσβασης είναι "userform". Εάν πληκτρολογήσετε εσφαλμένο κωδικό πρόσβασης, θα εμφανιστεί ένα πλαίσιο μηνύματος που αναφέρει ότι ο κωδικός πρόσβασης είναι εσφαλμένος, είναι επιλεγμένο το στοιχείο ελέγχου πλαισίου κειμένου και, στη συνέχεια, μπορείτε να πληκτρολογήστε πάλι τον κωδικό. Όταν πληκτρολογείτε το σωστό κωδικό πρόσβασης, λαμβάνετε ένα μήνυμα υποδοχής και το UserForm είναι κλειστό.

Για πρόσθετες πληροφορίες, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
213555 XL2000: η ιδιότητα όχι επικύρωσης δεδομένων για πλαίσια κειμένου UserForm

Στοιχεία ελέγχου CommandButton

Μπορείτε να χρησιμοποιήσετε ένα στοιχείο ελέγχου CommandButton για την εκκίνηση μιας διαδικασίας VBA. Συνήθως επισυνάπτεται η διαδικασία VBA για το συμβάν Click του στοιχείου ελέγχου CommandButton . Για να χρησιμοποιήσετε ένα στοιχείο ελέγχου CommandButton που εκτελεί μια διαδικασία όταν προκύπτει το συμβάν Click , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου CommandButton το UserForm.
  5. Κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton για να εμφανίσετε το παράθυρο κώδικα για το UserForm.
  6. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα:
    Private Sub CommandButton1_Click()
    red = Int(Rnd * 255)
    green = Int(Rnd * 255)
    blue = Int(Rnd * 255)
    CommandButton1.BackColor = RGB(red, green, blue)

    End Sub
  7. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Το χρώμα φόντου του στοιχείου ελέγχου CommandButton1 αλλάζει κάθε φορά που κάνετε κλικ σε αυτό.

Για πρόσθετες πληροφορίες σχετικά με το στοιχείο ελέγχου CommandButton, κάντε κλικ στους αριθμούς των άρθρων παρακάτω, για να προβάλετε τα άρθρα της Γνωσιακής Βάσης της Microsoft:
213572 XL2000: κουμπί κάνοντας κλικ στο κουμπί Άκυρο, δεν μπορεί να κλείσει UserForm

213743 XL2000: Τρόπος για να ορίσετε το προεπιλεγμένο κουμπί εντολής σε μια UserForm

Τα στοιχεία ελέγχου πλαισίου λίστας

Ο σκοπός του στοιχείου ελέγχου πλαισίου λίστας είναι να παρέχει στο χρήστη μια λίστα στοιχείων για να επιλέξετε από. Μπορείτε να αποθηκεύσετε τον κατάλογο ειδών για ένα στοιχείο ελέγχου πλαισίου λίστας σε ένα φύλλο εργασίας του Excel. Για να συμπληρώσετε ένα στοιχείο ελέγχου πλαισίου λίστας με μια περιοχή κελιών σε ένα φύλλο εργασίας, χρησιμοποιήστε την ιδιότητα RowSource . Όταν χρησιμοποιείτε την ιδιότητα MultiSelect , μπορείτε να ορίσετε ένα στοιχείο ελέγχου πλαισίου λίστας για την αποδοχή πολλών επιλογών.

Πώς μπορείτε να αποκτήσετε το τρέχον επιλεγμένο στοιχείο από το στοιχείο ελέγχου πλαισίου λίστας

Χρησιμοποιήστε την ιδιότητα Value ενός στοιχείου ελέγχου πλαισίου λίστας , για να επαναφέρετε το τρέχον επιλεγμένο στοιχείο. Για να επαναφέρετε το τρέχον επιλεγμένο στοιχείο σε ένα στοιχείο ελέγχου πλαισίου λίστας , επιλέξτε μόνο, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στα κελιά a1: a5 στο Φύλλο1, πληκτρολογήστε τις τιμές που θέλετε να χρησιμοποιήσετε για τη συμπλήρωση του στοιχείου ελέγχου πλαισίου λίστας .
  3. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  4. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  5. Προσθέστε ένα στοιχείο ελέγχου πλαισίου λίστας το UserForm.
  6. Κάντε διπλό κλικ στο στοιχείο ελέγχου πλαισίου λίστας για να εμφανίσετε το παράθυρο κώδικα για το στοιχείο ελέγχου πλαισίου λίστας .
  7. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν ListBox1, κάντε κλικ στο κουμπί :
    Private Sub ListBox1_Click()
    MsgBox ListBox1.Value

    End Sub
  8. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Όταν κάνετε κλικ σε ένα στοιχείο στη λίστα, θα εμφανιστεί ένα πλαίσιο μηνύματος με το επιλεγμένο στοιχείο.

Τρόπος απόκτησης των επιλεγμένων στοιχείων σε ένα πολλαπλά select στοιχείο ελέγχου πλαισίου λίστας

Για να προσδιορίσετε τα στοιχεία που έχουν επιλεγεί σε ένα στοιχείο ελέγχου πλαισίου λίστας , επιλέξτε πολλά, πρέπει να διέλευσης όλα τα στοιχεία στη λίστα και, στη συνέχεια ερωτήματος την επιλεγμένη ιδιότητα. Για να επιστρέψετε τα επιλεγμένα στοιχεία σε ένα στοιχείο ελέγχου πλαισίου λίστας , επιλέξτε πολλές, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στα κελιά a1: a5 στο Φύλλο1, πληκτρολογήστε τις τιμές που θέλετε να χρησιμοποιήσετε για τη συμπλήρωση του στοιχείου ελέγχου πλαισίου λίστας .
  3. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  4. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  5. Προσθέστε ένα στοιχείο ελέγχου πλαισίου λίστας το UserForm.
  6. Στο μενού Προβολή , κάντε κλικ στο κουμπί
    Ιδιότητες , για να δείτε το παράθυρο "Ιδιότητες".
  7. Πληκτρολογήστε τις τιμές που υποδεικνύονται για τις ακόλουθες ιδιότητες του στοιχείου ελέγχου πλαισίου λίστας :
       Property   Value   -----------     -----------------------
    MultiSelect 1 - frmMultiSelectMulti
    RowSource Sheet1!A1:A8
  8. Προσθέστε ένα στοιχείο ελέγχου CommandButton το UserForm.
  9. Κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton για να εμφανίσετε το παράθυρο κώδικα για το UserForm.
  10. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CommandButton1, κάντε κλικ στο κουμπί :
    Sub CommandButton1_Click ()
    ' Loop through the items in the ListBox.
    For x = 0 to ListBox1.ListCount - 1

    ' If the item is selected...
    If ListBox1.Selected(x) = True Then

    ' display the Selected item.
    MsgBox ListBox1.List(x)
    End If
    Next x

    End Sub
  11. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
  12. Επιλέξτε ένα ή περισσότερα στοιχεία στη λίστα.
  13. Κάντε κλικ στο κουμπί CommandButton1.
Αφού κάνετε κλικ CommandButton1, κάθε στοιχείο που έχετε επιλέξει στο στοιχείο ελέγχου πλαισίου λίστας εμφανίζεται σε ξεχωριστό πλαίσιο μηνύματος. Αφού όλα τα επιλεγμένα στοιχεία εμφανίζεται σε ένα πλαίσιο μηνύματος, το UserForm κλείνει αυτόματα.

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

Για να χρησιμοποιήσετε την ιδιότητα προέλευση γραμμής για να συμπληρώσετε ένα στοιχείο ελέγχου πλαισίου λίστας από μια περιοχή κελιών σε ένα φύλλο εργασίας, ακολουθήστε τα εξής βήματα:

  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στα κελιά a1: a5 στο Φύλλο1, πληκτρολογήστε τις τιμές που θέλετε να χρησιμοποιήσετε για τη συμπλήρωση του στοιχείου ελέγχου πλαισίου λίστας .
  3. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  4. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  5. Προσθέστε ένα στοιχείο ελέγχου πλαισίου λίστας το UserForm.
  6. Προσθέστε ένα στοιχείο ελέγχου CommandButton το UserForm.
  7. Κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton για να εμφανίσετε το παράθυρο κώδικα για το UserForm.
  8. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CommandButton1, κάντε κλικ στο κουμπί :
    Private Sub CommandButton1_Click()    ListBox1.RowSource = "=Sheet1!A1:A5"
    End Sub
  9. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.

    Σημείωση ListBox1 δεν περιέχει καμία τιμή.
  10. Κάντε κλικ στο κουμπί CommandButton1.
ListBox1 συμπληρώνεται με τις τιμές στα κελιά a1: a5 στο Φύλλο1.

Πώς να συμπληρώσετε ένα στοιχείο ελέγχου πλαισίου λίστας με τιμές σε έναν πίνακα

Αυτό το παράδειγμα δείχνει πώς μπορείτε να συμπληρώσετε ένα στοιχείο ελέγχου πλαισίου λίστας με μια μεταβλητή πίνακα. Πρέπει να αντιστοιχίσετε τις τιμές από τη μήτρα το ένα στοιχείο ελέγχου πλαισίου λίστας κάθε φορά. Συνήθως, οι αυτή η διαδικασία προϋποθέτει ότι χρησιμοποιείτε μια δομή βρόχου, όπως ένα για... Επόμενη βρόχο. Για να συμπληρώσετε ένα στοιχείο ελέγχου πλαισίου λίστας με μια μεταβλητή πίνακα, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου πλαισίου λίστας το UserForm.
  5. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    Λειτουργική μονάδα για να εισαγάγετε ένα φύλλο λειτουργικής μονάδας.
  6. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα:
    Sub PopulateListBox()
    Dim MyArray As Variant
    Dim Ctr As Integer
    MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")

    For Ctr = LBound(MyArray) To UBound(MyArray)
    UserForm1.ListBox1.AddItem MyArray(Ctr)
    Next

    UserForm1.Show

    End Sub
  7. Στο μενού Εργαλεία , κάντε κλικ στο κουμπί
    Μακροεντολές, κάντε κλικ στην επιλογή PopulateListBoxκαι, στη συνέχεια, κάντε κλικ στο κουμπί
    Εκτέλεση.
Η PopulateListBox διαδικασία δημιουργεί έναν απλό πίνακα και, στη συνέχεια, προσθέτει τα στοιχεία του πίνακα στο στοιχείο ελέγχου πλαισίου λίστας , χρησιμοποιώντας τη μέθοδο των μεθόδων AddItem . Στη συνέχεια, εμφανίζεται το UserForm.

Πώς μπορείτε να χρησιμοποιήσετε μια οριζόντια περιοχή κελιών σε ένα φύλλο εργασίας για να συμπληρώσετε ένα στοιχείο ελέγχου πλαισίου λίστας

Εάν ορίσετε την ιδιότητα προέλευση γραμμής ενός στοιχείου ελέγχου πλαισίου λίστας σε μια οριζόντια περιοχή κελιών, εμφανίζεται μόνο η πρώτη τιμή στο στοιχείο ελέγχου πλαισίου λίστας .

Για να συμπληρώσετε ένα στοιχείο ελέγχου πλαισίου λίστας από μια οριζόντια περιοχή κελιών, χρησιμοποιώντας τη μέθοδο των μεθόδων AddItem , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στα κελιά a1: E1 στο Φύλλο1, πληκτρολογήστε τις τιμές που θέλετε να χρησιμοποιήσετε για τη συμπλήρωση του στοιχείου ελέγχου πλαισίου λίστας .
  3. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  4. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  5. Προσθέστε ένα στοιχείο ελέγχου πλαισίου λίστας το UserForm.
  6. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    Λειτουργική μονάδα για να εισαγάγετε ένα φύλλο λειτουργικής μονάδας.
  7. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα:
    Sub PopulateListWithHorizontalRange()
    For Each x In Sheet1.Range("A1:E1")
    UserForm1.ListBox1.AddItem x.Value
    Next

    UserForm1.Show

    End Sub
  8. Στο μενού Εργαλεία , κάντε κλικ στο κουμπί
    Μακροεντολές, κάντε κλικ στο κουμπί
    PopulateListWithHorizontalRangeκαι, στη συνέχεια, κάντε κλικ στο κουμπί
    Εκτέλεση.
Η διαδικασία μακροεντολής διέρχεται από κελιά A1:E5 στο Φύλλο1, προσθήκη των τιμών σε ListBox1 μία κάθε φορά.

Σημείωση ListBox1 δεν είναι συνδεδεμένο σε A1:E5 κελιών στο Φύλλο1.

Πώς να επιστρέψει πολλαπλές τιμές από ένα στοιχείο ελέγχου πλαισίου λίστας που είναι συνδεδεμένο με πολλές στήλες δεδομένων

Μπορείτε να μορφοποιήσετε τα στοιχεία ελέγχου πλαισίου λίστας για να εμφανίσετε περισσότερες από μία στήλες δεδομένων. Αυτό σημαίνει ότι το στοιχείο ελέγχου πλαισίου λίστας εμφανίζει περισσότερα από ένα στοιχεία σε κάθε γραμμή της λίστας. Για να επιστρέψετε πολλές τιμές από το επιλεγμένο στοιχείο στη λίστα, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Πληκτρολογήστε τα ακόλουθα δεδομένα στα κελιά που υποδεικνύονται στο Φύλλο1:

    A1: έτοςB1: περιοχήC1: πωλήσεις
    A2: 1996B2: ΒόρειαC2: 140
    A3: 1996B3: ΝότιαC3: 210
    A4: 1997B4: ΒόρειαC4: 190
    A5: 1997B5: ΝότιαC5: 195
  3. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  4. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  5. Προσθέστε ένα στοιχείο ελέγχου ετικέτας το UserForm.
  6. Προσθέστε ένα στοιχείο ελέγχου πλαισίου λίστας το UserForm.
  7. Κάντε δεξιό κλικ στο πλαίσιο λίσταςκαι, στη συνέχεια, κάντε κλικ στο κουμπί
    Ιδιότητες.
  8. Πληκτρολογήστε ή επιλέξτε τις τιμές που υποδεικνύονται για τις ακόλουθες ιδιότητες του στοιχείου ελέγχου πλαισίου λίστας , όπως παρατίθενται στον ακόλουθο πίνακα:
       Property       Value   ----------------------------
    BoundColumn 1
    ColumnCount 3
    ColumnHeads True
    RowSource Sheet1!A2:A5
  9. Κάντε διπλό κλικ στο στοιχείο ελέγχου πλαισίου λίστας για να εμφανίσετε το παράθυρο κώδικα για το στοιχείο ελέγχου πλαισίου λίστας .
  10. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα:
    Private Sub ListBox1_Change()
    Dim SourceData As Range
    Dim Val1 As String, Val2 As String, Val3 As String

    Set SourceRange = Range(ListBox1.RowSource)

    Val1 = ListBox1.Value
    Val2 = SourceRange.Offset(ListBox1.ListIndex, 1).Resize(1, 1).Value
    Val3 = SourceRange.Offset(ListBox1.ListIndex, 2).Resize(1, 1).Value

    Label1.Caption = Val1 & " " & Val2 & " " & Val3

    End Sub
  11. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Όταν κάνετε κλικ σε μια καταχώρηση στο στοιχείο ελέγχου πλαισίου λίστας , αλλάζει την ετικέτα για να εμφανίσετε τα τρία από τα στοιχεία σε αυτήν την καταχώρηση.

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

Για να καταργήσετε όλα τα στοιχεία από ένα στοιχείο ελέγχου πλαισίου λίστας που είναι συνδεδεμένο με ένα φύλλο εργασίας, καταργήστε την τιμή που είναι αποθηκευμένη στην ιδιότητα RowSource . Για να καταργήσετε στοιχεία από ένα στοιχείο ελέγχου πλαισίου λίστας που είναι συνδεδεμένο με ένα φύλλο εργασίας, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στα κελιά a1: a5 στο Φύλλο1, πληκτρολογήστε τις τιμές που θέλετε να χρησιμοποιήσετε για τη συμπλήρωση του στοιχείου ελέγχου πλαισίου λίστας .
  3. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  4. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  5. Προσθέστε ένα στοιχείο ελέγχου πλαισίου λίστας το UserForm.
  6. Κάντε δεξιό κλικ στο στοιχείο ελέγχου πλαισίου λίστας και, στη συνέχεια, κάντε κλικ στο κουμπί Ιδιότητες.
  7. Στην ιδιότητα προέλευση γραμμής , πληκτρολογήστε Φύλλο1! A1: a5.
  8. Προσθέστε ένα στοιχείο ελέγχου CommandButton το UserForm.
  9. Κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton για να εμφανίσετε το παράθυρο κώδικα για το στοιχείο ελέγχου CommandButton .
  10. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CommandButton1, κάντε κλικ στο κουμπί :
    Private Sub CommandButton1_Click()
    ListBox1.RowSource = ""

    End Sub
  11. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.

    Το στοιχείο ελέγχου πλαισίου λίσταςπου έχετε προσθέσει το UserForm συμπληρώνεται με τις τιμές που καταχωρήσατε στο Φύλλο1.
  12. Κάντε κλικ στο κουμπί CommandButton1.
Όλα τα στοιχεία καταργούνται από ListBox1.

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

Υπάρχει μία εντολή VBA που καταργεί όλα τα στοιχεία από ένα στοιχείο ελέγχου πλαισίου λίστας , εάν η λίστα δεν είναι συνδεδεμένο σε ένα φύλλο εργασίας. Για να καταργήσετε όλα τα στοιχεία από ένα στοιχείο ελέγχου πλαισίου λίστας που συμπληρώνεται από έναν πίνακα Visual Basic, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου πλαισίου λίστας το UserForm.
  5. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    Λειτουργική μονάδα για να εισαγάγετε ένα φύλλο λειτουργικής μονάδας.
  6. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα:
    Sub PopulateListBox()
    Dim MyArray As Variant
    Dim Ctr As Integer
    MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")

    For Ctr = LBound(MyArray) To UBound(MyArray)
    UserForm1.ListBox1.AddItem MyArray(Ctr)
    Next

    UserForm1.Show

    End Sub
  7. Προσθέστε ένα στοιχείο ελέγχου CommandButton το UserForm.
  8. Κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton για να εμφανίσετε το παράθυρο κώδικα για το στοιχείο ελέγχου CommandButton .
  9. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CommandButton1, κάντε κλικ στο κουμπί :
    Private Sub CommandButton1_Click()
    For i = 1 To ListBox1.ListCount
    ListBox1.RemoveItem 0
    Next I

    End Sub
  10. Στο μενού Εργαλεία , κάντε κλικ στο κουμπί
    Μακροεντολές, κάντε κλικ στην επιλογή PopulateListBoxκαι, στη συνέχεια, κάντε κλικ στο κουμπί
    Εκτέλεση.

    Συμπληρώνεται το στοιχείο ελέγχου πλαισίου λίστας και, στη συνέχεια, εμφανίζεται το UserForm.
  11. Κάντε κλικ στο κουμπί CommandButton1.
Όλα τα στοιχεία καταργούνται από ListBox1.

Για πρόσθετες πληροφορίες σχετικά με το στοιχείο ελέγχου πλαισίου λίστας, κάντε κλικ στους αριθμούς των άρθρων παρακάτω, για να προβάλετε τα άρθρα της Γνωσιακής Βάσης της Microsoft:
161598 OFF: Τρόπος προσθήκης δεδομένων σε ένα σύνθετο πλαίσιο ή πλαίσιο λίστας στο Excel ή στο Word

211446 XL2000: η ιδιότητα TextColumn εμφανίζει μόνο την πρώτη στήλη

211896 XL2000: Τρόπος προσομοίωσης συνδυασμό επεξεργασία λίστας ελέγχου για φόρμες χρήστη

211899 XL2000: προβλήματα με την εγκατάσταση επικεφαλίδες στηλών στο στοιχείο ελέγχου πλαισίου λίστας

213721 XL2000: Τρόπος κατάργησης όλων των στοιχείων από ένα πλαίσιο λίστας ή ένα σύνθετο πλαίσιο

213722 XL2000: Τρόπος για να χρησιμοποιήσετε την ιδιότητα TextColumn

213723 XL2000: Τρόπος για να επιστρέψετε τιμές από μια λίστα πλαίσιο που εμφανίζει πολλές στήλες

213746 XL2000: Τρόπος για να γεμίσετε το στοιχείο ελέγχου πλαισίου λίστας με πολλές περιοχές

213748 XL2000: Τρόπος για να συμπληρώσετε ένα πλαίσιο λίστας που βασίζεται σε ένα άλλο πλαίσιο λίστας

213752 XL2000: με τη μέθοδο των μεθόδων AddItem προκαλεί ένα σφάλμα όταν η προέλευση γραμμής είναι συνδεδεμένα με δεδομένα

213756 XL2000: η χρήση της μεθόδου RemoveItem με στοιχείο ελέγχου πλαισίου λίστας ή σύνθετου πλαισίου

213759 XL2000: Τρόπος για να προσδιορίσετε τα στοιχεία που έχουν επιλεγεί σε ένα πλαίσιο λίστας

Στοιχεία ελέγχου σύνθετου πλαισίου

Μπορείτε να χρησιμοποιήσετε το στοιχείο ελέγχου σύνθετου πλαισίου ως πλαίσιο αναπτυσσόμενης λίστας ή ένα σύνθετο πλαίσιο όπου μπορείτε να επιλέξετε μια τιμή σε μια λίστα ή πληκτρολογήστε μια νέα τιμή. Η ιδιότητα στυλ προσδιορίζει εάν το στοιχείο ελέγχου σύνθετου πλαισίου που ενεργεί ως ένα πλαίσιο αναπτυσσόμενης λίστας ή ένα σύνθετο πλαίσιο.

Σημείωση Όλα τα παραδείγματα της προηγούμενης ενότητας για το στοιχείο ελέγχου πλαισίου λίστας μπορεί επίσης να εφαρμοστεί σε στοιχείο ελέγχου, εκτός από το παράδειγμα "Τρόπος για να αποκτήσετε τα επιλεγμένα στοιχεία σε ένα στοιχείο ελέγχου πλαισίου λίστας, επιλέξτε πολλά".

Πώς μπορείτε να προσθέσετε ένα νέο στοιχείο στη λίστα, εάν το στοιχείο ελέγχου σύνθετου πλαισίου δεν είναι συνδεδεμένο σε ένα φύλλο εργασίας

Όταν πληκτρολογείτε μια τιμή που δεν είναι ήδη στη λίστα στο στοιχείο ελέγχου, μπορείτε να προσθέσετε τη νέα τιμή στη λίστα. Για να προσθέσετε τη νέα τιμή που πληκτρολογήσατε στο στοιχείο ελέγχου, εάν το στοιχείο ελέγχου σύνθετου πλαισίου δεν είναι συνδεδεμένο με το φύλλο εργασίας, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου σύνθετου πλαισίου το UserForm.
  5. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    Λειτουργική μονάδα για να εισαγάγετε ένα φύλλο λειτουργικής μονάδας.
  6. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα:
    Sub PopulateComboBox()
    Dim MyArray As Variant
    Dim Ctr As Integer
    MyArray = Array("Apples", "Oranges", "Peaches", "Bananas", "Pineapples")

    For Ctr = LBound(MyArray) To Ubound(MyArray)
    UserForm1.ComboBox1.AddItem MyArray(Ctr)
    Next

    UserForm1.Show

    End Sub
  7. Προσθέστε ένα στοιχείο ελέγχου CommandButton το UserForm.
  8. Κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton για να εμφανίσετε το παράθυρο κώδικα για το στοιχείο ελέγχου CommandButton .
  9. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CommandButton1, κάντε κλικ στο κουμπί :
    Private Sub CommandButton1_Click()
    Dim listvar As Variant

    listvar = ComboBox1.List

    On Error Resume Next
    ' If the item is not found in the list...
    If IsError(WorksheetFunction.Match(ComboBox1.Value, listvar, 0)) Then
    ' add the new value to the list.
    ComboBox1.AddItem ComboBox1.Value
    End If

    End Sub
  10. Στο μενού Εργαλεία , κάντε κλικ στο κουμπί
    Μακροεντολές, κάντε κλικ στην επιλογή PopulateListBoxκαι, στη συνέχεια, κάντε κλικ στο κουμπί
    Εκτέλεση.

    Συμπληρώνεται το στοιχείο ελέγχου σύνθετου πλαισίου και, στη συνέχεια, εμφανίζεται το UserForm.
  11. Στο στοιχείο ελέγχου, πληκτρολογήστε μάνγκο (ή οποιαδήποτε τιμή που δεν είναι ήδη στη λίστα).
  12. Κάντε κλικ στο κουμπί CommandButton1.
Η νέα τιμή που πληκτρολογήσατε τώρα εμφανίζεται στο τέλος της λίστας.

Πώς μπορείτε να προσθέσετε ένα νέο στοιχείο στη λίστα, εάν το στοιχείο ελέγχου είναι συνδεδεμένο με ένα φύλλο εργασίας

Όταν ένας χρήστης πληκτρολογεί μια τιμή που δεν είναι ήδη στη λίστα στο στοιχείο ελέγχου, μπορείτε να προσθέσετε τη νέα τιμή στη λίστα. Για να προσθέσετε τη νέα τιμή που πληκτρολογήσατε στο στοιχείο ελέγχου στη λίστα, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στα κελιά a1: a5 στο Φύλλο1, πληκτρολογήστε τις τιμές που θέλετε να χρησιμοποιήσετε για τη συμπλήρωση του στοιχείου ελέγχου σύνθετου πλαισίου .
  3. Επιλέξτε τα κελιά a1: a5 στο Φύλλο1.
  4. Στο μενού " Εισαγωγή ", μεταβείτε στην επιλογή
    Όνομα, και στη συνέχεια κάντε κλικ στο κουμπί Ορισμός.

    Με το
    Το πλαίσιο ονόματα στο βιβλίο εργασίας , πληκτρολογήστε ListRange και, στη συνέχεια, κάντε κλικ στο κουμπί OK. Με τον τρόπο αυτό δημιουργείται το καθορισμένο όνομα ListRange. Μπορείτε να χρησιμοποιήσετε το καθορισμένο όνομα ListRange για να συνδέσετε την ιδιότητα " προέλευση γραμμής " του στοιχείου ελέγχου σύνθετου πλαισίου στο φύλλο εργασίας.
  5. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  6. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  7. Προσθέστε ένα στοιχείο ελέγχου σύνθετου πλαισίου το UserForm.
  8. Στις Ιδιότητες για ComboBox1, πληκτρολογήστε Φύλλο1! ListRange ως το
    Η ιδιότητα RowSource .
  9. Προσθέστε ένα στοιχείο ελέγχου CommandButton το UserForm.
  10. Κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton για να εμφανίσετε το παράθυρο κώδικα για το στοιχείο ελέγχου CommandButton .
  11. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CommandButton1, κάντε κλικ στο κουμπί :
    Private Sub CommandButton1_Click()
    Dim SourceData As Range
    Dim found As Object

    Set SourceData = Range("ListRange")
    Set found = Nothing
    ' Try to find the value on the worksheet.
    Set found = SourceData.Find(ComboBox1.Value)

    ' If the item is not found in the list...
    If found Is Nothing Then
    ' redefine ListRange.
    SourceData.Resize(SourceData.Rows.Count + 1, 1).Name = "ListRange"
    ' Add the new item to the end of the list on the worksheet.
    SourceData.Offset(SourceData.Rows.Count, 0).Resize(1, 1).Value _
    = ComboBox1.Value
    ' Reset the list displayed in the ComboBox.
    ComboBox1.RowSource = Range("listrange").Address(external:=True)
    End If

    End Sub
  12. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.

    Το UserForm εμφανίζεται στο Φύλλο1.
  13. Στο στοιχείο ελέγχου, πληκτρολογήστε μια τιμή που δεν είναι ήδη στη λίστα.
  14. Κάντε κλικ στο κουμπί CommandButton1.
Το νέο στοιχείο που πληκτρολογήσατε στο στοιχείο ελέγχου προστίθεται στη λίστα και, στη λίστα που είναι δεσμευμένο στοιχείο ελέγχου για να αναπτύσσεται, για να συμπεριλάβετε κελιά a1: a6.

Πώς μπορείτε να εμφανίσετε τη λίστα ενός στοιχείου ελέγχου σύνθετου πλαισίου όταν εμφανίζεται το UserForm

Ορισμένες φορές, μπορεί να είναι χρήσιμο για να εμφανίσετε τη λίστα ενός στοιχείου ελέγχου σύνθετου πλαισίου όταν εμφανίζεται για πρώτη φορά ένα UserForm. Το ακόλουθο παράδειγμα χρησιμοποιεί το συμβάν Activate του το UserForm. Για να εμφανίσετε τη λίστα ενός στοιχείου ελέγχου σύνθετου πλαισίου , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στα κελιά a1: a5 στο Φύλλο1, πληκτρολογήστε τις τιμές που θέλετε να χρησιμοποιήσετε για τη συμπλήρωση του στοιχείου ελέγχου σύνθετου πλαισίου .
  3. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  4. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  5. Προσθέστε ένα στοιχείο ελέγχου σύνθετου πλαισίου το UserForm.
  6. Στις Ιδιότητες για ComboBox1, πληκτρολογήστε Φύλλο1! A1: a5 ως το
    Η ιδιότητα RowSource .
  7. Κάντε διπλό κλικ το UserForm για να εμφανίσετε το παράθυρο κώδικα για το UserForm.
  8. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CommandButton κάντε κλικ :
    Private Sub UserForm_Activate()
    ComboBox1.DropDown

    End Sub
  9. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Το UserForm εμφανίζεται στο Φύλλο1 και μπορείτε να δείτε τη λίστα για ComboBox1.

Πώς μπορείτε να εμφανίσετε τη λίστα ενός στοιχείου ελέγχου σύνθετου πλαισίου όταν κάνετε μια επιλογή σε ένα άλλο στοιχείο ελέγχου σύνθετου πλαισίου

Για να εμφανίσετε αυτόματα στη λίστα ένα στοιχείο ελέγχου σύνθετου πλαισίου όταν γίνεται μια επιλογή σε ένα άλλο στοιχείο ελέγχου σύνθετου πλαισίου , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στα κελιά a1: a10 στο Φύλλο1, πληκτρολογήστε τις τιμές που θέλετε να χρησιμοποιήσετε για τη συμπλήρωση του στοιχείου ελέγχου σύνθετου πλαισίου .
  3. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  4. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    Λειτουργική μονάδα.
  5. Στο παράθυρο κώδικα για τη λειτουργική μονάδα, πληκτρολογήστε τον ακόλουθο κώδικα:
    Sub DropDown_ComboBox()
    UserForm1.ComboBox2.DropDown

    End Sub
  6. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  7. Προσθέστε ένα στοιχείο ελέγχου σύνθετου πλαισίου το UserForm.
  8. Στις Ιδιότητες για ComboBox1, πληκτρολογήστε Φύλλο1! A1: a5 ως το
    Η ιδιότητα RowSource .
  9. Κάντε διπλό κλικ στο στοιχείο ελέγχου για να ανοίξετε το παράθυρο κώδικα για το στοιχείο ελέγχου σύνθετου πλαισίου .
  10. Στο παράθυρο κώδικα για το στοιχείο ελέγχου σύνθετου πλαισίου , πληκτρολογήστε τον ακόλουθο κώδικα για το Σύνθετο πλαίσιο, κάντε κλικ στο κουμπί συμβάν:
    Private Sub ComboBox1_Click()
    Application.OnTime Now, "DropDown_ComboBox"

    End Sub
  11. Προσθέστε ένα δεύτερο στοιχείο ελέγχου σύνθετου πλαισίου το UserForm.
  12. Στις Ιδιότητες για ComboBox2, πληκτρολογήστε Φύλλο1! A6:a10 ως το
    Η ιδιότητα RowSource .
  13. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Όταν κάνετε κλικ σε ένα στοιχείο στη λίστα ComboBox1 , εμφανίζεται αυτόματα στη λίστα για ComboBox2 .

Για πρόσθετες πληροφορίες σχετικά με το στοιχείο ελέγχου σύνθετου πλαισίου, κάντε κλικ στους αριθμούς των άρθρων παρακάτω, για να προβάλετε τα άρθρα της Γνωσιακής Βάσης της Microsoft:
161598 OFF: Τρόπος προσθήκης δεδομένων σε ένα σύνθετο πλαίσιο ή πλαίσιο λίστας στο Excel ή στο Word

211446 XL2000: η ιδιότητα TextColumn εμφανίζει μόνο την πρώτη στήλη

211899 XL2000: προβλήματα με την εγκατάσταση επικεφαλίδες στηλών στο στοιχείο ελέγχου πλαισίου λίστας

213717 XL2000: σφάλμα χρόνου εκτέλεσης με τη μέθοδο της αναπτυσσόμενης λίστας με ένα σύνθετο πλαίσιο

213718 XL2000: Τρόπος για να εμφανίσετε μια λίστα σύνθετου πλαισίου όταν είναι ένα UserForm εμφανίζεται

213721 XL2000: Τρόπος κατάργησης όλων των στοιχείων από ένα πλαίσιο λίστας ή ένα σύνθετο πλαίσιο

213722 XL2000: Τρόπος για να χρησιμοποιήσετε την ιδιότητα TextColumn

213752 XL2000: με τη μέθοδο των μεθόδων AddItem προκαλεί σφάλμα όταν συνδεδεμένο με δεδομένα που είναι η προέλευση γραμμής

213756 XL2000: η χρήση της μεθόδου RemoveItem με στοιχείο ελέγχου πλαισίου λίστας ή σύνθετου πλαισίου

Πλαίσιο ελέγχου

Χρησιμοποιήστε ένα πλαίσιο ελέγχου για να ομαδοποιήσετε λογικά τα σχετικά στοιχεία σε μια UserForm. Τα στοιχεία ελέγχου πλαισίου που χρησιμοποιούνται συχνά για να ομαδοποιήσετε στοιχεία ελέγχου OptionButton .

Τρόπος διέλευσης από όλα τα στοιχεία ελέγχου σε ένα στοιχείο ελέγχου πλαισίου

Για να χρησιμοποιήσετε ένα για κάθε... Επόμενη βρόχο για να αποκτήσετε πρόσβαση σε όλα τα στοιχεία ελέγχου σε ένα στοιχείο ελέγχου πλαισίου , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου πλαισίου το UserForm.
  5. Προσθήκη ενός στοιχείου ελέγχου OptionButton στο στοιχείο ελέγχου του πλαισίου .

    Επαναλάβετε αυτό το βήμα για να προσθέσετε δύο περισσότερα στοιχεία ελέγχου OptionButton στο στοιχείο ελέγχου του πλαισίου .
  6. Κάντε διπλό κλικ στο στοιχείο ελέγχου του πλαισίου για να ανοίξετε το παράθυρο κώδικα για το στοιχείο ελέγχου του πλαισίου .
  7. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν Καρέ, κάντε κλικ στο κουμπί :
    Private Sub Frame1_Click()
    Dim Ctrl As Control

    For Each Ctrl In Frame1.Controls
    Ctrl.Enabled = Not Ctrl.Enabled
    Next

    End Sub
  8. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
  9. Στο το UserForm, κάντε κλικ στο στοιχείο ελέγχου του πλαισίου.
Την πρώτη φορά που κάνετε κλικ στο στοιχείο ελέγχου του πλαισίου , όλα τα στοιχεία ελέγχου στο στοιχείο ελέγχου του πλαισίου δεν είναι διαθέσιμες. Εάν κάνετε κλικ στο στοιχείο ελέγχου πλαισίου τα στοιχεία ελέγχου είναι διαθέσιμα ξανά.

Στοιχείο ελέγχου OptionButton

Μπορείτε να χρησιμοποιήσετε ομάδες στοιχείων ελέγχου OptionButton να κάνετε μία επιλογή από μια ομάδα επιλογών. Μπορείτε να χρησιμοποιήσετε οποιαδήποτε από τις παρακάτω τεχνικές για την ομαδοποίηση στοιχείων ελέγχου OptionButton :
  • Πλαίσιο ελέγχου
  • Η ιδιότητα GroupName
Σημείωση Η τιμή σε , την τιμή Ναι και η τιμή True δηλώνει ότι ένα OptionButton έχει επιλεγεί. Η τιμή Off , την τιμή " όχι " και η τιμή False δηλώνει ότι ένα OptionButton δεν είναι επιλεγμένο.

Τρόπος προσδιορισμού του στοιχείου ελέγχου OptionButton που επιλέγεται όταν τα στοιχεία ελέγχου OptionButton είναι σε ένα στοιχείο ελέγχου πλαισίου

Όταν ομαδοποιείτε στοιχεία ελέγχου OptionButtons χρησιμοποιώντας ένα πλαίσιο ελέγχου, μπορείτε να προσδιορίσετε το στοιχείο ελέγχου OptionButton που επιλέγεται μεταξύ όλων των στοιχείων ελέγχου του πλαισίου ελέγχου και ελέγχοντας την ιδιότητα Value του κάθε στοιχείου ελέγχου. Για να προσδιορίσετε το στοιχείο ελέγχου OptionButton που έχει επιλεγεί, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου πλαισίου το UserForm.
  5. Προσθήκη ενός στοιχείου ελέγχου OptionButton στο στοιχείο ελέγχου του πλαισίου .

    Επαναλάβετε αυτό το βήμα για να προσθέσετε δύο περισσότερα στοιχεία ελέγχου OptionButton στο στοιχείο ελέγχου του πλαισίου .
  6. Για να προσθέσετε ένα στοιχείο ελέγχου CommandButton το UserForm έξω από το πλαίσιο ελέγχου.
  7. Κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton για να εμφανίσετε το παράθυρο κώδικα για το UserForm.
  8. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CommandButton1, κάντε κλικ στο κουμπί :
    Private Sub CommandButton1_Click()
    For Each x In Frame1.Controls
    If x.Value = True Then
    MsgBox x.Caption
    End If
    Next

    End Sub
  9. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
  10. Στο UserForm, κάντε κλικ σε ένα στοιχείο ελέγχου OptionButton και, στη συνέχεια, κάντε κλικ στο κουμπί
    CommandButton1.
Εμφανίζεται ένα πλαίσιο μηνύματος που περιέχει λεζάντας του επιλεγμένου στοιχείου ελέγχου OptionButton .

Τρόπος προσδιορισμού του στοιχείου ελέγχου OptionButton που έχει επιλεγεί

Είναι ο σκοπός του παραδείγματος που ακολουθεί για να προσδιορίσετε το στοιχείο ελέγχου OptionButton που έχει επιλεγεί στο ομάδα1. Για να δημιουργήσετε μια UserForm που έχει δύο ομάδες των OptionButton στοιχείων ελέγχου, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου πλαισίου το UserForm.
  5. Προσθήκη ενός στοιχείου ελέγχου OptionButton στο στοιχείο ελέγχου του πλαισίου .

    Επαναλάβετε αυτό το βήμα για να προσθέσετε δύο περισσότερα στοιχεία ελέγχου OptionButton στο στοιχείο ελέγχου του πλαισίου .
  6. Για κάθε στοιχείο ελέγχου OptionButton , πληκτρολογήστε " Ομάδα1 " στην ιδιότητα GroupName .
  7. Επαναλάβετε τα βήματα 4 και 5 για να δημιουργήσετε ένα δεύτερο στοιχείο ελέγχου του πλαισίου που περιέχει τρία στοιχεία ελέγχου OptionButton .
  8. Για κάθε στοιχείο ελέγχου OptionButton στο δεύτερο πλαίσιο , πληκτρολογήστε ομάδα2 η ιδιότητα GroupName .
  9. Για να προσθέσετε ένα στοιχείο ελέγχου CommandButton το UserForm έξω από το πλαίσιο ελέγχου.
  10. Κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton για να εμφανίσετε το παράθυρο κώδικα για το UserForm.
  11. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CommandButton1, κάντε κλικ στο κουμπί :
    Private Sub CommandButton1_Click()
    Dim x As Control

    ' Loop through ALL the controls on the UserForm.
    For Each x In Me.Controls
    ' Check to see if "Option" is in the Name of each control.
    If InStr(x.Name, "Option") Then
    ' Check Group name.
    If x.GroupName = "Group1" Then
    ' Check the status of the OptionButton.
    If x.Value = True Then
    MsgBox x.Caption
    Exit For
    End If
    End If
    End If
    Next

    End Sub
  12. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
  13. Στο το UserForm, κάντε κλικ σε ένα στοιχείο ελέγχου OptionButton στο Ομάδα1 και, στη συνέχεια, κάντε κλικ στο κουμπί
    CommandButton1.
Εμφανίζεται ένα πλαίσιο μηνύματος που περιέχει τη λεζάντα του στοιχείου ελέγχου OptionButton που είναι επιλεγμένο αυτήν τη στιγμή.

Για πρόσθετες πληροφορίες σχετικά με τα στοιχεία ελέγχου OptionButton, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
213724 XL2000: ζητήματα κατά τη χρήση ιδιότητα TripleState για κουμπί επιλογής

Πλαίσιο ελέγχου στοιχείου ελέγχου

Μπορείτε να χρησιμοποιήσετε ένα πλαίσιο ελέγχου για να υποδείξετε μια τιμή true ή false. Ένα πλαίσιο ελέγχου που εμφανίζεται μαζί με ένα σημάδι ελέγχου δηλώνει την τιμή
Είναι true. Ένα πλαίσιο ελέγχου που εμφανίζεται μαζί με το σημάδι επιλογής δηλώνει την τιμή FALSE (ψευδές). Εάν η τιμή της ιδιότητας TripleState είναι Αληθής, ένα πλαίσιο ελέγχου μπορεί να έχει επίσης τιμή Null. Εμφανίζεται ένα πλαίσιο ελέγχου που έχει την τιμή Null να μην είναι διαθέσιμη.

Σημείωση Η τιμή σε , την τιμή Ναι και η τιμή True δηλώνει ότι ένα πλαίσιο ελέγχου είναι επιλεγμένο. Η τιμή Off , την τιμή " όχι " και η τιμή False δηλώνει ότι ένα πλαίσιο ελέγχου δεν είναι επιλεγμένο.

Πώς μπορείτε να ελέγξετε την τιμή ενός στοιχείου ελέγχου πλαισίου ελέγχου

Για να χρησιμοποιήσετε την ιδιότητα Value για να επιστρέψετε την τρέχουσα τιμή ενός στοιχείου ελέγχου πλαισίου ελέγχου , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα πλαίσιο ελέγχου για να το UserForm.
  5. Στη λίστα ιδιοτήτων για CheckBox1, επιλέξτε True ως ιδιότητα TripleState .
  6. Κάντε διπλό κλικ στο στοιχείο ελέγχου πλαισίου ελέγχου για να εμφανίσετε το παράθυρο κώδικα για το στοιχείο ελέγχου του πλαισίου ελέγχου .
  7. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CheckBox1 Change :
    Private Sub CheckBox1_Change()
    Select Case CheckBox1.Value
    Case True
    CheckBox1.Caption = "True"
    Case False
    CheckBox1.Caption = "False"
    Case Else
    CheckBox1.Caption = "Null"
    End Select

    End Sub
  8. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Όταν κάνετε κλικ στο στοιχείο ελέγχου πλαισίου ελέγχου , η λεζάντα του στοιχείου ελέγχου αλλάξει το πλαίσιο ελέγχου , ώστε να απεικονίζουν την τρέχουσα τιμή.

Ελέγχου των κουμπιών εναλλαγής

Ένα στοιχείο ελέγχου κουμπιού εναλλαγής έχει την ίδια ΕΜΦΑΝΙΣΗ με στοιχείο ελέγχου CommandButton , μέχρι να κάνετε κλικ σε αυτό. Όταν κάνετε κλικ σε ένα στοιχείο ελέγχου κουμπιού εναλλαγής , φαίνεται να είναι πατημένο ή να προωθηθεί προς τα κάτω. Η ιδιότητα Value ενός στοιχείου ελέγχου κουμπιού εναλλαγής είναι Αληθής όταν το κουμπί είναι επιλεγμένο και False όταν δεν είναι επιλεγμένο το κουμπί. Εάν η τιμή της ιδιότητας TripleState είναι Αληθής, ένα στοιχείο ελέγχου κουμπιού εναλλαγής επίσης μπορεί να έχει τιμή Null. Ένα στοιχείο ελέγχου κουμπιού εναλλαγής που έχει την τιμή Null εμφανίζεται να μην είναι διαθέσιμη.

Σημείωση Η τιμή σε , την τιμή Ναι και η τιμή True δηλώνει ότι είναι επιλεγμένο ένα στοιχείο ελέγχου κουμπιού εναλλαγής . Η τιμή Off , την τιμή " όχι " και η τιμή False δηλώνει ότι δεν είναι επιλεγμένο ένα στοιχείο ελέγχου κουμπιού εναλλαγής .

Τρόπος λήψης της τιμής ενός στοιχείου ελέγχου κουμπιού εναλλαγής

Για να αποκτήσετε την τιμή ενός στοιχείου ελέγχου κουμπιού εναλλαγής , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Για να προσθέσετε ένα στοιχείο ελέγχου κουμπιού εναλλαγής το UserForm.
  5. Προσθέστε ένα στοιχείο ελέγχου ετικέτας το UserForm.
  6. Κάντε διπλό κλικ στο στοιχείο ελέγχου κουμπιού εναλλαγής για να ανοίξετε το παράθυρο κώδικα για το στοιχείο ελέγχου του κουμπιού εναλλαγής .
  7. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν ToggleButton1Click :
    Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
    ' Set UserForm background to Red.
    Me.BackColor = RGB(255, 0, 0)
    Else
    ' Set UserForm background to Blue.
    Me.BackColor = RGB(0, 0, 255)
    End If

    End Sub
  8. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Όταν κάνετε κλικ στο στοιχείο ελέγχου κουμπιού εναλλαγής , το χρώμα φόντου των αλλαγών UserForm.

Πώς μπορείτε να δημιουργήσετε μια ομάδα αμοιβαία αποκλειόμενες στοιχείων ελέγχου κουμπιών εναλλαγής

Αυτό το παράδειγμα χρησιμοποιεί το συμβάν MouseUp για να ορίσετε μια μεταβλητή και καλεί τη διαδικασία ExclusiveToggleButtons . Η διαδικασία ExclusiveToggleButtons Καθορίζει το στοιχείο ελέγχου κουμπιού εναλλαγής που είναι επιλεγμένο και, στη συνέχεια, να ακυρώνει τις άλλες. Για να δημιουργήσετε μια ομάδα αμοιβαία αποκλειόμενες στοιχείων ελέγχου κουμπιών εναλλαγής , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    Λειτουργική μονάδα.
  4. Στο παράθυρο κώδικα για τη λειτουργική μονάδα, πληκτρολογήστε τον ακόλουθο κώδικα:
    ' Variable that holds the name of the ToggleButton that was clicked.Public clicked As String

    Sub ExclusiveToggleButtons()

    Dim toggle As Control

    ' Loop through all the ToggleButtons on Frame1.
    For Each toggle In UserForm1.Frame1.Controls

    ' If Name of ToggleButton matches name of ToggleButton
    ' that was clicked...
    If toggle.Name = clicked Then
    '...select the button.
    toggle.Value = True
    Else
    '...otherwise clear the selection of the button.
    toggle.Value = False
    End If
    Next

    End Sub
  5. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  6. Προσθέστε ένα στοιχείο ελέγχου πλαισίου το UserForm.
  7. Προσθήκη ενός στοιχείου ελέγχου κουμπιού εναλλαγής στο στοιχείο ελέγχου του πλαισίου .

    Επαναλάβετε αυτό το βήμα για να προσθέσετε δύο περισσότερα στοιχεία ελέγχου κουμπιών εναλλαγής στο στοιχείο ελέγχου του πλαισίου .
  8. Κάντε διπλό κλικ στο στοιχείο ελέγχου του πλαισίου για να εμφανίσετε το παράθυρο κώδικα για το UserForm.
  9. Στο παράθυρο κώδικα για τη λειτουργική μονάδα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν MouseUp κουμπιών εναλλαγής :
    Private Sub ToggleButton1_MouseUp(ByVal Button As Integer, _              ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    clicked = ToggleButton1.Name
    Application.OnTime Now, "ExclusiveToggleButtons"

    End Sub

    Private Sub ToggleButton2_MouseUp(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    clicked = ToggleButton2.Name
    Application.OnTime Now, "ExclusiveToggleButtons"

    End Sub

    Private Sub ToggleButton3_MouseUp(ByVal Button As Integer, _
    ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)

    clicked = ToggleButton3.Name
    Application.OnTime Now, "ExclusiveToggleButtons"

    End Sub
  10. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Όταν κάνετε κλικ σε ένα στοιχείο ελέγχου κουμπιού εναλλαγής , ακυρώνεται η προηγούμενη επιλεγμένη ελέγχου των κουμπιών εναλλαγής .

Στοιχείο ελέγχου TabStrip

Χρησιμοποιήστε ένα στοιχείο ελέγχου TabStrip , για να προβάλετε διαφορετικά σύνολα πληροφοριών για ένα σύνολο στοιχείων ελέγχου.

Τρόπος ελέγχου μέσω προγραμματισμού ένα στοιχείο ελέγχου TabStrip

Για να αλλάξετε την ιδιότητα BackColor από ένα στοιχείο ελέγχου εικόνας με βάση την καρτέλα που έχει επιλεγεί, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου TabStrip το UserForm.
  5. Για να προσθέσετε ένα στοιχείο ελέγχου εικόνας που καλύπτει η βάση του στοιχείου ελέγχου TabStrip , αλλά που δεν καλύπτει τις καρτέλες.
  6. Στο παράθυρο "Ιδιότητες" για Image1, πληκτρολογήστε
    & H000000FF & στην ιδιότητα BackColor .
  7. Κάντε διπλό κλικ στο στοιχείο ελέγχου TabStrip , για να ανοίξετε το παράθυρο κώδικα για το στοιχείο ελέγχου TabStrip .
  8. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν TabStrip1 Change :
    Private Sub TabStrip1_Change()
    Dim i As Integer

    i = TabStrip1.SelectedItem.Index
    Select Case i
    Case 0
    ' If Tab1 is selected, change the color of Image control to Red.
    Image1.BackColor = RGB(255, 0, 0)
    Case 1
    ' If Tab2 is selected, change the color of Image control to Green.
    Image1.BackColor = RGB(0, 255, 0)
    End Select

    End Sub
  9. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Το χρώμα του το στοιχείο ελέγχου εικόνας αλλάζει ανάλογα με τη σελίδα στο στοιχείο ελέγχου TabStrip που είναι ενεργό.

Για πρόσθετες πληροφορίες σχετικά με τον έλεγχο TabStrip, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
213254 XL2000: Τρόπος χρήσης του στοιχείου ελέγχου TabStrip σε μια UserForm

Στοιχείο ελέγχου πολλών σελίδων

Χρησιμοποιήστε ένα στοιχείο ελέγχου πολλές σελίδες για να εργαστείτε με πολλές πληροφορίες που μπορεί να ταξινομηθεί σε διάφορες κατηγορίες. Ένα στοιχείο ελέγχου πολλές σελίδες απαρτίζεται από μία ή περισσότερες σελίδα αντικείμενα που περιέχουν ένα διαφορετικό σύνολο στοιχείων ελέγχου. Μπορείτε να ορίσετε την ενεργή σελίδα μέσω προγραμματισμού, ορίζοντας την ιδιότητα Value του στοιχείου ελέγχου πολλές σελίδες .

Τρόπος ελέγχου μέσω προγραμματισμού ένα στοιχείο ελέγχου πολλών σελίδων

Για να προσθέσετε ένα στοιχείο ελέγχου πολλές σελίδες και να αποκτήσει τον έλεγχό του, χρησιμοποιώντας μια μακροεντολή, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθήκη ενός στοιχείου ελέγχου πολλές σελίδες για το UserForm.
  5. Προσθέστε ένα στοιχείο ελέγχου ετικέτας Σελίδα1 σχετικά με τον έλεγχο πολλές σελίδες .
  6. Προσθέστε ένα στοιχείο ελέγχου πλαισίου κειμένου Σελίδα1 σχετικά με τον έλεγχο πολλές σελίδες .
  7. Σχετικά με τον έλεγχο πολλές σελίδες , κάντε κλικ στο κουμπί Σελίδα2και, στη συνέχεια, επαναλάβετε τα βήματα 5 και 6 για να προσθέσετε ένα στοιχείο ελέγχου ετικέτας και ένα στοιχείο ελέγχου πλαισίου κειμένου .
  8. Κάντε διπλό κλικ στο στοιχείο ελέγχου πολλές σελίδες για να ανοίξετε το παράθυρο κώδικα για το στοιχείο ελέγχου πολλές σελίδες .
  9. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν MultiPage1 Change :
    Private Sub MultiPage1_Change()
    Select Case MultiPage1.Value
    ' If activating Page1...
    Case 0
    Label1.Caption = TextBox2.Text
    TextBox1.Text = ""
    ' If activating Page2...
    Case 1
    Label2.Caption = TextBox1.Text
    TextBox2.Text = ""
    End Select

    End Sub
  10. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν UserForm προετοιμασίας :
    Private Sub UserForm_Initialize()
    ' Force Page1 to be active when UserForm is displayed.
    MultiPage1.Value = 0
    Label1.Caption = ""

    End Sub
  11. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.

    Στο στοιχείο ελέγχου πλαισίου κειμένου στη Σελίδα1, πληκτρολογήστε Δοκιμή. Όταν κάνετε κλικ στην καρτέλα Σελίδα2 , TextBox2 απαλείφεται και τη λεζάντα του Label2 αλλάζει με την εγγραφή που έχετε κάνει στο TextBox1 στη Σελίδα1 ("δοκιμή").

Τρόπος δημιουργίας ενός περιβάλλοντος εργασίας οδηγού, χρησιμοποιώντας ένα στοιχείο ελέγχου πολλών σελίδων

Όταν μια εργασία απαιτεί αρκετά μικρά και σίγουρα βήματα, ενός περιβάλλοντος εργασίας Οδηγού μπορεί να είναι πολύ αποτελεσματική. Μπορείτε να χρησιμοποιήσετε το στοιχείο ελέγχου πολλές σελίδες για τη δημιουργία ενός περιβάλλοντος εργασίας οδηγού, αντί να χρησιμοποιήσετε πολλές φόρμες χρήστη. Αυτό το παράδειγμα χειρίζεται ένα στοιχείο ελέγχου πολλές σελίδες που έχει τρεις σελίδες. Μια διαδικασία που είναι συνδεδεμένη με το
Η προετοιμασία συμβάντων του το UserForm απενεργοποιεί Σελίδα2 και Page3 και επιβάλλει Σελίδα1 του στοιχείου ελέγχου πολλές σελίδες να είναι ενεργή.

Σημείωση Όταν προσθέτετε ευρετήριο τις σελίδες ενός στοιχείου ελέγχου πολλές σελίδες χρησιμοποιώντας τη συλλογή σελίδων , στην πρώτη σελίδα της συλλογής είναι σελίδα μηδέν. Αυτή η διαδικασία ορίζει τη λεζάντα των στοιχείων ελέγχου CommandButton επίσης και απενεργοποιεί το < πίσω κουμπί.

Σημείωση Η διαδικασία που έχει αντιστοιχιστεί το συμβάν Click του CommandButton1 ελέγχει τη λειτουργικότητα του το < πίσω κουμπί. Η διαδικασία που έχει αντιστοιχιστεί το συμβάν Click του CommandButton2 ελέγχει τη λειτουργικότητα του το Επόμενο > κουμπί. Για τη δημιουργία ενός περιβάλλοντος εργασίας οδηγού, χρησιμοποιώντας ένα στοιχείο ελέγχου πολλές σελίδες , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθήκη ενός στοιχείου ελέγχου πολλές σελίδες για το UserForm.
  5. Κάντε δεξιό κλικ στην καρτέλα Σελίδα1 και, στη συνέχεια, κάντε κλικ στο κουμπί
    Νέα σελίδα για να προσθέσετε Page3 στο στοιχείο ελέγχου πολλές σελίδες .
  6. Για να προσθέσετε ένα στοιχείο ελέγχου CommandButton το UserForm που δεν είναι σχετικά με τον έλεγχο πολλές σελίδες .

    Επαναλάβετε αυτό το βήμα για να προσθέσετε ένα δεύτερο στοιχείο ελέγχου CommandButton στη το UserForm.
  7. Κάντε διπλό κλικ το UserForm για να ανοίξετε το παράθυρο κώδικα για το UserForm.
  8. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν UserForm προετοιμασίας :
    Private Sub UserForm_Initialize()
    With MultiPage1
    ' The next 2 lines disable Page2 & Page3.
    .Pages(1).Enabled = False
    .Pages(2).Enabled = False
    ' Make Page1 the active page.
    .Value = 0
    End With

    ' Set the caption on the CommandButtons.
    CommandButton1.Caption = "<Back"
    CommandButton1.Enabled = False
    CommandButton2.Caption = "Next>"

    End Sub

    ' Procedure for the "<Back" button
    Private Sub CommandButton1_Click()
    Select Case MultiPage1.Value
    Case 1 ' If Page2 is active...
    With MultiPage1
    .Pages(0).Enabled = True ' Enable Page1.
    .Value = MultiPage1.Value - 1 ' Move back 1 page.
    .Pages(1).Enabled = False ' Disable Page2.
    End With
    CommandButton1.Enabled = False ' Disable Back button.

    Case 2 ' If Page3 is active...
    With MultiPage1
    .Pages(1).Enabled = True ' Enable Page2.
    .Value = MultiPage1.Value - 1 ' Move back 1 page.
    .Pages(2).Enabled = False ' Disable Page3.
    CommandButton2.Caption = "Next>"
    End With
    End Select

    End Sub

    ' Procedure for the "Next>" button
    Private Sub CommandButton2_Click()

    Select Case MultiPage1.Value
    Case 0 ' If Page1 is active...
    With MultiPage1
    .Value = MultiPage1.Value + 1 ' Move forward 1 page.
    .Pages(1).Enabled = True ' Enable Page2.
    .Pages(0).Enabled = False ' Disable Page1.
    End With
    CommandButton1.Enabled = True ' Enable Back button.

    Case 1 ' If Page2 is active...
    With MultiPage1
    .Value = MultiPage1.Value + 1 ' Move forward 1 page.
    .Pages(2).Enabled = True ' Enable Page3.
    .Pages(1).Enabled = False ' Disable Page2.
    End With
    CommandButton2.Caption = "Finish" ' Change Next button to Finish.

    Case 2 ' If Page3 is active...
    MsgBox "Finished!" ' User is Finished.
    Unload Me ' Unload the UserForm.
    End Select

    End Sub

  9. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Όταν κάνετε κλικ στο επόμενη >, Σελίδα2 ενεργοποιείται και το < πίσω το κουμπί είναι διαθέσιμο. Όταν κάνετε κλικ στο
Επόμενο > δεύτερη φορά, είναι ενεργοποιημένη η Page3 και η λεζάντα για
CommandButton2 αλλάζει σε "Λήξη".

Στοιχείο ελέγχου γραμμής κύλισης

Μπορείτε να χρησιμοποιήσετε ένα στοιχείο ελέγχου της γραμμής κύλισης , όταν θέλετε να αλλάξετε την τιμή που εμφανίζεται από ένα άλλο στοιχείο ελέγχου, όπως ένα στοιχείο ελέγχου ετικέτας .

Πώς μπορείτε να αλλάξετε ένα στοιχείο ελέγχου ετικέτας που βασίζεται στην τιμή ενός στοιχείου ελέγχου γραμμής κύλισης

Για να αλλάξετε την ιδιότητα Caption από ένα στοιχείο ελέγχου ετικέτας η τρέχουσα ρύθμιση της ιδιότητας τιμή ενός στοιχείου ελέγχου της γραμμής κύλισης , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου της γραμμής κύλισης για το UserForm.
  5. Προσθέστε ένα στοιχείο ελέγχου ετικέτας το UserForm.
  6. Κάντε διπλό κλικ στο στοιχείο ελέγχου της γραμμής κύλισης για να ανοίξετε το παράθυρο κώδικα για το στοιχείο ελέγχου γραμμής κύλισης .
  7. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν ScrollBar1 Change :
    Private Sub ScrollBar1_Change()
    Label1.Caption = ScrollBar1.Value

    End Sub
  8. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Όταν κάνετε κύλιση χρησιμοποιώντας το στοιχείο ελέγχου της γραμμής κύλισης , Label1 έχει ενημερωθεί με την τρέχουσα τιμή του στοιχείου ελέγχου γραμμής κύλισης .

Στοιχείο ελέγχου SpinButton

Ένα στοιχείο ελέγχου SpinButton , όπως ένα στοιχείο ελέγχου της γραμμής κύλισης , χρησιμοποιείται συχνά για να αυξήσετε ή να μειώσετε την τιμή ενός άλλου στοιχείου ελέγχου, όπως ένα στοιχείο ελέγχου ετικέτας . Η ιδιότητα SmallChange προσδιορίζει πόσο η τιμή ενός στοιχείου ελέγχου SpinButton αλλάζει όταν γίνεται κλικ στο.

Πώς μπορείτε να προσθέσετε ένα στοιχείο ελέγχου SpinButton, που αυξάνεται ή μειώνεται μια ημερομηνία που είναι αποθηκευμένο σε ένα στοιχείο ελέγχου πλαισίου κειμένου

Για να προσθέσετε ένα στοιχείο ελέγχου SpinButton , που αυξάνεται ή μειώνεται μια ημερομηνία που είναι αποθηκευμένο σε ένα στοιχείο ελέγχου πλαισίου κειμένου , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου SpinButton το UserForm.
  5. Προσθέστε ένα στοιχείο ελέγχου πλαισίου κειμένου για να το UserForm.
  6. Κάντε διπλό κλικ στο στοιχείο ελέγχου SpinButton να ανοίξετε το παράθυρο κώδικα για το στοιχείο ελέγχου SpinButton .
  7. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν SpinButton1 SpinUp :
    Private Sub SpinButton1_SpinUp()
    TextBox1.Text = DateValue(TextBox1.Text) + 1

    End Sub

  8. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν SpinButton1 SpinDown :
    Private Sub SpinButton1_SpinDown()
    TextBox1.Text = DateValue(TextBox1.Text) - 1

    End Sub

  9. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν UserForm προετοιμασίας :
    Private Sub UserForm_Initialize()
    TextBox1.Text = Date

    End Sub

  10. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.
Όταν εμφανίζεται το UserForm, εμφανίζεται η τρέχουσα ημερομηνία στο TextBox1. Όταν κάνετε κλικ στο στοιχείο ελέγχου SpinButton , η ημερομηνία είναι προσαυξητικούς ή μειώνεται κατά μία ημέρα.

Σε αυτό το παράδειγμα, εάν αλλάξετε την ιδιότητα SmallChange SpinButton1, που δεν επηρεάζουν τον αριθμό των ημερών, η εγγραφή στο TextBox1 θα αλλάξει από όταν κάνετε κλικ στο κουμπί SpinButton1. Ο αριθμός των ημερών καθορίζεται μόνο από τη διαδικασία που θα επισυναφθεί το συμβάν SpinUp και το συμβάν SpinDown του SpinButton1.

Για πρόσθετες πληροφορίες σχετικά με τον έλεγχο SpinButton, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
213224 XL2000: παράδειγμα Visual Basic για τη χρήση ενός κουμπιού αυξομείωσης με ημερομηνία

Στοιχείο ελέγχου RefEdit

Το στοιχείο ελέγχου RefEdit μιμείται τη συμπεριφορά των πλαισίων αναφοράς που είναι ενσωματωμένες στο Excel. Μπορείτε να χρησιμοποιήσετε την ιδιότητα Value για να αποκτήσετε την τρέχουσα διεύθυνση κελιού που είναι αποθηκευμένα σε ένα στοιχείο ελέγχου RefEdit .

Πώς να συμπληρώσετε μια περιοχή κελιών με βάση την περιοχή που επιλέγετε χρησιμοποιώντας το στοιχείο ελέγχου RefEdit

Για να χρησιμοποιήσετε το στοιχείο ελέγχου RefEdit για τη συμπλήρωση των κελιών, ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Προσθέστε ένα στοιχείο ελέγχου RefEdit το UserForm.
  5. Προσθέστε ένα στοιχείο ελέγχου CommandButton το UserForm.
  6. Κάντε διπλό κλικ στο στοιχείο ελέγχου CommandButton για να ανοίξετε το παράθυρο κώδικα για το στοιχείο ελέγχου CommandButton .
  7. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν CommandButton1, κάντε κλικ στο κουμπί :
    Private Sub CommandButton1_Click()
    Dim MyRange As String
    MyRange = RefEdit1.Value
    Range(MyRange).Value = "test"
    Unload Me

    End Sub
  8. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.

    Το UserFormappears.
  9. Κάντε κλικ στο κουμπί του στοιχείου ελέγχου RefEdit .

    Σημειώστε ότι το UserForm συμπτύσσεται.
  10. Επιλέξτε μια περιοχή κελιών, όπως a1: a5 και, στη συνέχεια, κάντε κλικ στο κουμπί του στοιχείου ελέγχου RefEdit για να αναπτύξετε το UserForm.
  11. Κάντε κλικ στο κουμπί CommandButton1.
Κλείνει το UserForm και τα κελιά που έχετε επιλέξει περιέχει τώρα η λέξη "test".

Για πρόσθετες πληροφορίες σχετικά με τον έλεγχο RefEdit, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
213776 XL2000: Τρόπος χρήσης του στοιχείου ελέγχου RefEdit με μια UserForm

Στοιχείο ελέγχου εικόνας

Ο σκοπός του στοιχείου ελέγχου εικόνας είναι για να εμφανίσετε μια εικόνα σε μια UserForm. Για να αντιστοιχίσετε μια εικόνα σε ένα στοιχείο ελέγχου εικόνας κατά το χρόνο εκτέλεσης, χρησιμοποιήστε τη συνάρτηση LoadPicture .

Πώς να φορτώσετε μια εικόνα σε ένα στοιχείο ελέγχου εικόνας

Για να εισαγάγετε ένα στοιχείο ελέγχου εικόνας που σας ζητά να επιλέξετε μια εικόνα για να φορτώσετε, όταν κάνετε κλικ στο στοιχείο ελέγχου εικόνας , ακολουθήστε τα εξής βήματα:
  1. Ξεκινήστε το Excel και κατόπιν ανοίξτε ένα νέο, κενό βιβλίο εργασίας.
  2. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  3. Στο μενού " Εισαγωγή ", κάντε κλικ στο κουμπί
    UserForm για να εισαγάγετε ένα UserForm στο βιβλίο εργασίας σας.
  4. Για να προσθέσετε ένα στοιχείο ελέγχου εικόνας για το UserForm.
  5. Κάντε διπλό κλικ στο στοιχείο ελέγχου εικόνας για να ανοίξετε το παράθυρο κώδικα για το στοιχείο ελέγχου εικόνας .
  6. Στο παράθυρο κώδικα, πληκτρολογήστε τον ακόλουθο κώδικα για το συμβάν Image1, κάντε κλικ στο κουμπί :
    Private Sub Image1_Click()
    Dim fname As String

    ' Display the Open dialog box.
    fname = Application.GetOpenFilename(filefilter:= _
    "Bitmap Files(*.bmp),*.bmp", Title:="Select Image To Open")

    ' If you did not click Cancel...
    If fname <> "False" Then

    ' Load the bitmap into the Image control.
    Image1.Picture = LoadPicture(fname)

    ' Refresh the UserForm.
    Me.Repaint
    End If

    End Sub

  7. Στο μενού " Εκτέλεση ", κάντε κλικ στην επιλογή Run Sub/UserForm.

    Εμφανίζεται το UserForm.
  8. Κάντε κλικ στο στοιχείο ελέγχου εικόνας .

    Όταν κάνετε κλικ στο στοιχείο ελέγχου εικόνας , εμφανίζεται το παράθυρο διαλόγου Επιλογή εικόνας για άνοιγμα και, στη συνέχεια, μπορείτε να επιλέξετε ένα αρχείο bitmap για την εισαγωγή στο στοιχείο ελέγχου.
Για πρόσθετες πληροφορίες σχετικά με το στοιχείο ελέγχου εικόνας, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
213732 XL2000: χρήση της συνάρτησης LoadPicture με ένα στοιχείο ελέγχου εικόνας

Πρόσθετες πληροφορίες

Αναζήτηση αντικειμένων

Διατίθεται μια πλήρη λίστα των ιδιοτήτων και μεθόδων για μια συγκεκριμένη εντολή με την Αναζήτηση αντικειμένων. Για να βρείτε αυτές τις πληροφορίες στο Excel, ακολουθήστε τα εξής βήματα:
  1. Στο μενού " Εργαλεία ", μεταβείτε στην επιλογή
    Μακροεντολή, και στη συνέχεια κάντε κλικ στην επιλογή Επεξεργασία Visual Basic.
  2. Στο μενού Προβολή , κάντε κλικ στο κουμπί Αναζήτηση αντικειμένων.
  3. Στο πλαίσιο Κειμένου αναζήτησης , πληκτρολογήστε το όνομα του στοιχείου ελέγχου που θέλετε και, στη συνέχεια, κάντε κλικ στο κουμπί Αναζήτηση.
Για περισσότερες πληροφορίες σχετικά με τη χρήση της αναζήτησης αντικειμένων, στην Επεξεργασία Visual Basic, κάντε κλικ στο κουμπί Βοήθεια για το Microsoft Visual Basic , στο μενού Βοήθεια , πληκτρολογήστε Αναζήτηση αντικειμένων στο Βοηθό του Office ή τον "Οδηγό απαντήσεων" και, στη συνέχεια, κάντε κλικ στο κουμπί
Αναζήτηση για να προβάλετε το θέμα.

Για πρόσθετες πληροφορίες σχετικά με τον τρόπο εγκατάστασης στη Βοήθεια του Microsoft Excel στον υπολογιστή σας, κάντε κλικ στον αριθμό του άρθρου παρακάτω, για να προβάλετε το άρθρο της Γνωσιακής Βάσης της Microsoft:
231946 OFF2000: Τρόπος Προσθαφαίρεση ένα μεμονωμένο πρόγραμμα του Office ή στοιχείου

Ιδιότητες

Αναγνωριστικό άρθρου: 829070 - Τελευταία αναθεώρηση: 17 Ιαν 2017 - Αναθεώρηση: 1

Σχόλια