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

Τελευταία ενημέρωση: Οκτώβριος 2023; Microsoft Excel 365, 2022, 2019, 2016.

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

Ρύθμιση

Αν δεν έχετε ασχοληθεί ακόμη με την ανάπτυξη στο Excel, σας προτείνουμε να ανατρέξετε στον εισαγωγικό μας οδηγό για τις μακροεντολές Excel. Ορίστε τα βήματα που πρέπει να ακολουθήσετε:

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

3. Ορίστε ένα εύρος με όνομα πατώντας: Τύποι >> Ορισμός ονόματος

4. Πατήστε ΟΚ.

Αλλαγή χρώματος με βάση την τιμή

Ακολουθήστε τα παρακάτω βήματα για να αλλάξετε το χρώμα του εσωτερικού κελιού:

1. Κάντε κλικ στην καρτέλα Προγραμματιστής στην κορδέλα.
2. Πατήστε Visual Basic ή Alt+F11 για να ανοίξετε το πρόγραμμα επεξεργασίας VBA.
3. Επιλέξτε το φύλλο εργασίας στο οποίο θέλετε να εκτελέσετε τον κώδικά σας.
4. Επικολλήστε τον παρακάτω κώδικα για να τροποποιήσετε το χρώμα των κελιών με βάση τις συγκεκριμένες τιμές 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

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

6. Αποθηκεύστε τον κώδικά σας και κλείστε τον επεξεργαστή VBA.

Συμπεράσματα

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