Πώς γυρίζετε ένα κύτταρο Excel ένα χρώμα πατώντας ένα κουμπί;

Δεν μπορείτε να αλλάξετε απευθείας το χρώμα ενός κυττάρου με το κουμπί * ONE * πατήστε χρησιμοποιώντας μόνο τα ενσωματωμένα χαρακτηριστικά του Excel. Πρέπει να χρησιμοποιήσετε το VBA (Visual Basic for Applications) για να δημιουργήσετε ένα κουμπί που ενεργοποιεί την αλλαγή χρώματος.

Δείτε πώς να το κάνετε:

1. Εισαγάγετε ένα κουμπί:

* Μεταβείτε στην καρτέλα "Προγραμματιστής". (Εάν δεν το βλέπετε, μεταβείτε στο αρχείο> Επιλογές> Προσαρμογή κορδέλας και ελέγξτε το πλαίσιο "προγραμματιστής".)

* Στην καρτέλα "Προγραμματιστής", κάντε κλικ στην επιλογή "Εισαγωγή".

* Επιλέξτε ένα σχήμα κουμπιού από την ενότητα "Έλεγχος φόρμας".

* Σχεδιάστε το κουμπί στο φύλλο εργασίας σας.

2. Γράψτε τον κωδικό VBA:

* Κάντε δεξί κλικ στο κουμπί και επιλέξτε "Αντιστοίχιση μακροεντολής".

* Κάντε κλικ στο "νέο". Αυτό θα ανοίξει τον επεξεργαστή VBA.

* Αντικαταστήστε τον προεπιλεγμένο κωδικό με τα ακόλουθα, ρυθμίζοντας την αναφορά κυττάρων ("A1" σε αυτό το παράδειγμα) και τον κωδικό χρώματος (τιμές RGB ή ονομασμένα χρώματα) όπως απαιτείται:

`` `vba

Sub changeCellColor ()

«Αλλάξτε το χρώμα του κυττάρου A1 σε κόκκινο

Εύρος ("a1"). Interior.color =vbred

«Εναλλακτική λύση χρησιμοποιώντας τιμές RGB:

'Εύρος ("a1"). Interior.color =rgb (255, 0, 0)' κόκκινο

«Εναλλακτική λύση με το όνομα Color:

'Εύρος ("a1"). Interior.color =xlthemecoloraccent1' παράδειγμα ενός θεματικού χρώματος

Τερματισμός

`` `

* VBRED, VBGREEN, VBBLUE, κ.λπ., είναι προκαθορισμένες σταθερές χρωμάτων στο VBA. Για περισσότερο έλεγχο, χρησιμοποιήστε `RGB (κόκκινο, πράσινο, μπλε)`. Κάθε τιμή κυμαίνεται από 0 έως 255.

* xlthemecoloraccent1, xlthemecoloraccent2, κ.λπ., είναι χρώματα θεμάτων που προσαρμόζονται στο θέμα του Excel. Είναι πιο ευέλικτα αλλά δυνητικά λιγότερο προβλέψιμα.

3. Κλείστε τον επεξεργαστή και δοκιμή VBA:

* Κλείστε τον επεξεργαστή VBA.

* Κάντε κλικ στο κουμπί σας. Το κελί A1 πρέπει τώρα να είναι το καθορισμένο χρώμα.

Για να αλλάξετε το χρώμα σε κάτι διαφορετικό, απλά τροποποιήστε τη γραμμή `isterior.color` μέσα στον κώδικα VBA. Για παράδειγμα, να αλλάξετε σε μπλε:

`` `vba

Εύρος ("a1"). Interior.color =vbblue

`` `

Θυμηθείτε να αποθηκεύσετε το αρχείο Excel ως βιβλίο εργασίας με δυνατότητα μακροεντολών (.xlsm). Διαφορετικά, ο κωδικός VBA δεν θα αποθηκευτεί.