Προγραμματισμός

* Γνώση Υπολογιστών >> Προγραμματισμός >> Visual Βασικά Προγραμματισμός

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

Microsoft Visual Basic for Applications ( VBA ) επιτρέπει στους προγραμματιστές να χρησιμοποιούν διάφορα αντικείμενα του ελέγχου σχετικά με τις φόρμες χρήστη . Το αντικείμενο μπορεί να αντιστοιχεί στα στοιχεία ελέγχου πλαισίου , εικόνα , γραμμή κύλισης ή κουμπί . Ένα κουμπί εναλλαγής σε μια φόρμα είναι ένα στοιχείο ελέγχου που χρησιμοποιείται για να εμφανίσετε μια τιμή " Ναι /Όχι " από μια πηγή δεδομένων . Οι προγραμματιστές χρησιμοποιούν τα κουμπιά εναλλαγής σε μια ομάδα επιλογών με άλλα κουμπιά και τα παράθυρα διαλόγου για να δεχθεί σχόλια των χρηστών . Όταν κάνετε κλικ σε ένα αντικείμενο κουμπί εναλλαγής , φαίνεται να πιέζεται ή πιέζεται προς τα κάτω . Θα πρέπει να ληφθεί η τιμή ενός στοιχείου ελέγχου κουμπί εναλλαγής για να ενεργοποιήσετε το κουμπί εναλλαγής στην VBA . Οδηγίες
Η

1 Κάντε κλικ στο κουμπί " Έναρξη " των Windows και επιλέξτε το "Microsoft Excel " από το μενού " Όλα τα προγράμματα " για να ανοίξετε ένα νέο βιβλίο εργασίας . 2

Κάντε κλικ το " Εργαλεία ", " Macro " και " Visual Basic Editor" .
εικόνων 3

Κάντε κλικ στο " Εισαγωγή " και στη συνέχεια " UserForm " για να εισάγετε μια φόρμα χρήστη στο βιβλίο εργασίας σας .

4

Προσθέστε το " ToggleButton " και " ετικέτα " ελέγχου στη φόρμα του χρήστη .
5

κάντε διπλό κλικ στο " ToggleButton " ελέγχου για να ανοίξετε το παράθυρο " κώδικας" για τον έλεγχο ToggleButton .
Η 6

Εισάγετε τον παρακάτω κωδικό για την « εκδήλωση ToggleButton1Click :

Private Sub ToggleButton1_Click ( )

Εάν ToggleButton1.Value = True τότε

« Ορισμός φόντο UserForm στο κόκκινο .

Me.BackColor = RGB ( 255 , 0 , 0 )

υπόλοιπα

« Ρύθμιση φόντο UserForm στο Blue .

Me.BackColor = RGB ( 0 , 0 , 255 )

End If

End Sub
Η

7 Κάντε κλικ στο "Run Sub /UserForm " σχετικά με την μενού για να ενεργοποιήσετε το κουμπί εναλλαγής υπό τον έλεγχό σας VBA " Run" .
Η
εικόνων

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα