Πώς να ορίσετε ένα χρώμα κελιού Excel σύμφωνα με μια συνθήκη με το VBA;

Τελευταία ενημέρωση: Αύγουστος 2021; Microsoft Excel 365, 2019, 2016.

Στο σημερινό σεμινάριο VBA for Excel Automation θα μάθουμε πώς μπορούμε να αλλάξουμε μέσω προγραμματισμού το χρώμα ενός κελιού με βάση την τιμή του κελιού.

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

Ρύθμιση

Εάν δεν αναπτύσσετε ακόμη στο Excel, σας συνιστούμε να ανατρέξετε στον εισαγωγικό μας οδηγό για τις μακροεντολές Excel . Συγκεκριμένα, πρέπει να βεβαιωθείτε ότι η καρτέλα Προγραμματιστής είναι διαθέσιμη στην κορδέλα του Microsoft Excel, καθώς θα τη χρησιμοποιήσετε για να γράψετε έναν απλό κώδικα.

• Ανοίξτε το Microsoft Excel. Σημειώστε ότι ο κώδικας που παρέχεται σε αυτό το σεμινάριο αναμένεται να λειτουργεί στο Excel 2007 και μετά.
• Σε ένα κενό φύλλο εργασίας, προσθέστε τον ακόλουθο πίνακα:

• Τώρα προχωρήστε και ορίστε ένα εύρος με όνομα πατώντας: Τύποι>> Ορισμός ονόματος

• Πατήστε ΟΚ

Αλλαγή χρώματος εσωτερικού κελιού με βάση την τιμή με το Cell.Interior.Color

• Πατήστε την καταχώρηση προγραμματιστή στην Κορδέλα.
• Πατήστε Visual Basic ή Alt+F11 για να ανοίξετε το πρόγραμμα επεξεργασίας VBA του προγραμματιστή σας.
• Στη συνέχεια, επισημάνετε το φύλλο εργασίας στο οποίο θέλετε να εκτελέσετε τον κώδικά σας. Εναλλακτικά, επιλέξτε μια ενότητα που έχει τον κωδικό VBA σας.
• Προχωρήστε και επικολλήστε αυτόν τον κωδικό. Στο παράδειγμά μας θα τροποποιήσουμε το εσωτερικό χρώμα μιας σειράς κελιών σε συγκεκριμένες τιμές RGB κελιών που αντιστοιχούν στο κόκκινο, κίτρινο και πράσινο χρώμα.
• Συγκεκριμένα χρησιμοποιούμε τη μέθοδο Excel VBA Cell.Interior.Color και περνάμε την αντίστοιχη τιμή RGB ή δείκτη χρώματος.

Sub Color_Cell_Condition()

Dim MyCell As Range
Dim StatValue As String
Dim StatusRange As Range

Set StatusRange = Range("Status")

For Each MyCell In StatusRange

StatValue = MyCell.Value
Select Case StatValue

    Case "Progressing"
    MyCell.Interior.Color = RGB(0, 255, 0)
    
    Case "Pending Feedback"
    MyCell.Interior.Color = RGB(255, 255, 0)
    
    Case "Stuck"
    MyCell.Interior.Color = RGB(255, 0, 0)

End Select

Next MyCell

End Sub

• Εκτελέστε τον κωδικό σας – είτε πατώντας F5 είτε Εκτέλεση>> Εκτέλεση Sub / UserForm.
• Θα παρατηρήσετε ότι ο πίνακας ελέγχου κατάστασης ήταν γεμάτος όπως φαίνεται παρακάτω:

• Αποθηκεύστε τον κωδικό σας και κλείστε τον επεξεργαστή VBA.