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

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

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

Ρύθμιση

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

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

Πώς να ρυθμίσετε το χρώμα κελιού Excel με VBA

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

Ορισμός ονόματος εύρους στο Excel

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

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

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

  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
  1. Εκτελέστε τον κώδικα σας – πατώντας F5 ή Εκτέλεση >> Εκτέλεση Sub / UserForm.
  2. Θα παρατηρήσετε ότι ο πίνακας ελέγχου κατάστασης ενημερώθηκε όπως φαίνεται παρακάτω:

Πίνακας ελέγχου κατάστασης με VBA

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

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

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


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

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

Ανακαλύψτε πώς να ρυθμίσετε το χρώμα κελιού Excel ανάλογα με μια συνθήκη χρησιμοποιώντας VBA.

Οδηγίες για την κοπή εικόνων σε κύκλους στο PowerPoint

Οδηγίες για την κοπή εικόνων σε κύκλους στο PowerPoint

Οδηγίες για την κοπή εικόνων σε κύκλους στο PowerPoint. Ανακαλύψτε πόσο απλά μπορείτε να κόψετε φωτογραφίες σε κύκλους για εντυπωσιακές παρουσιάσεις.

Πώς να γράψετε από δεξιά προς τα αριστερά στο Microsoft Office 2016 , 2019 / 365;

Πώς να γράψετε από δεξιά προς τα αριστερά στο Microsoft Office 2016 , 2019 / 365;

Μάθετε πώς να κάνετε εναλλαγή από πληκτρολόγια LTR σε RTL στο Microsoft Word.

Πώς να χρησιμοποιήσετε διαφορετικές γραμματοσειρές στο Discord

Πώς να χρησιμοποιήσετε διαφορετικές γραμματοσειρές στο Discord

Μάθετε πώς να χρησιμοποιήσετε διαφορετικές γραμματοσειρές στο Discord. Οι επιλογές γραμματοσειρών είναι ποικίλες και πλούσιες.

Κορυφαίες εφαρμογές κοπής ήχου κλήσης στο Android

Κορυφαίες εφαρμογές κοπής ήχου κλήσης στο Android

Κορυφαίες εφαρμογές κοπής ήχων κλήσης στο Android για τη δημιουργία μοναδικών ήχων κλήσης. Ανακαλύψτε τις καλύτερες επιλογές για να προσαρμόσετε το τηλέφωνό σας.

Οδηγίες για την αλλαγή του ονόματος της ομάδας συνομιλίας του Facebook Messenger

Οδηγίες για την αλλαγή του ονόματος της ομάδας συνομιλίας του Facebook Messenger

Οδηγίες για την αλλαγή του ονόματος της ομάδας συνομιλίας στο Facebook Messenger. Αυτή τη στιγμή στην ομαδική συνομιλία του Facebook Messenger, μπορούμε εύκολα να αλλάξουμε το όνομα της ομάδας συνομιλίας.

Οδηγίες για την επαναφορά των διαγραμμένων αναρτήσεων στο Facebook

Οδηγίες για την επαναφορά των διαγραμμένων αναρτήσεων στο Facebook

Ανακαλύψτε πώς να επαναφέρετε διαγραμμένες αναρτήσεις στο Facebook εύκολα και γρήγορα. Μαθαίνετε όλες τις λεπτομέρειες για την ανάκτηση διαγραμμένων αναρτήσεων

Οδηγίες για ακρόαση μουσικής στους Χάρτες Google

Οδηγίες για ακρόαση μουσικής στους Χάρτες Google

Οδηγίες για την ακρόαση μουσικής στους Χάρτες Google Επί του παρόντος, οι χρήστες μπορούν να ταξιδέψουν και να ακούσουν μουσική χρησιμοποιώντας την εφαρμογή Google Map στο iPhone. Σήμερα, το WebTech360 σας προσκαλεί

Οδηγίες για τη χρήση της υπηρεσίας ηλεκτρονικής αποθήκευσης LifeBOX - Viettel

Οδηγίες για τη χρήση της υπηρεσίας ηλεκτρονικής αποθήκευσης LifeBOX - Viettel

Οδηγίες για τη χρήση του LifeBOX - Η διαδικτυακή υπηρεσία αποθήκευσης της Viettel, το LifeBOX είναι μια νέα διαδικτυακή υπηρεσία αποθήκευσης της Viettel με πολλά ανώτερα χαρακτηριστικά

Πώς να ενημερώσετε την κατάσταση στο Facebook Messenger

Πώς να ενημερώσετε την κατάσταση στο Facebook Messenger

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