Αυτό το σεμινάριο θα δείξει πώς να χρησιμοποιήσετε το VBA για να επισημάνετε ένα κελί ή μια περιοχή κελιών.
Η μορφοποίηση υπό όρους είναι ένας τρόπος επισήμανσης κελιών στο Excel. Μπορούμε επίσης να χρησιμοποιήσουμε το VBA για να εκτελέσουμε τονισμό κυττάρων.
Επισημάνετε ένα κελί
Για να επισημάνουμε ένα κελί στο VBA, μπορούμε να χρησιμοποιήσουμε την απλή διαδικασία όπως φαίνεται παρακάτω.
| 123 | Sub HighlightCell ()ActiveCell.Interior.Color = vbRedΤέλος υπο |
Επισημάνετε μια περιοχή κελιών
Ομοίως, μπορούμε να επιλέξουμε μια περιοχή κελιών και να επισημάνουμε όλα τα κελιά της περιοχής.
| 1234 | Sub HighlightRange ()Εύρος ("A1: A10"). ΕπιλέξτεΕπιλογή. Εσωτερικό. Χρώμα = vbRedΤέλος υπο |
Επισημάνετε κελιά με βάση την τιμή κελιού
Για να προσθέσουμε μια συνθήκη για την επισήμανση ενός κελιού, μπορούμε να χρησιμοποιήσουμε μια δήλωση IF για να τονίσουμε το κελί εάν η τιμή του κελιού είναι πάνω από μια ορισμένη τιμή, σε αυτή την περίπτωση μεγαλύτερη από 10.
| 12345 | Sub HightlightCell_1Αν ActiveCell.Value> 10 τότεActiveCell.Interior.Color = vbRedΤέλος εανΤέλος υπο |
Επισημάνετε μια περιοχή κελιών με βάση την τιμή κελιού
Για να ελέγξουμε τις τιμές σε μια περιοχή κελιών, θα πρέπει να κάνουμε βρόχο σε κάθε κελί, να καθορίσουμε την τιμή του και στη συνέχεια να επισημάνουμε το κελί ανάλογα. Στο παρακάτω παράδειγμα, θα διαπιστώσουμε πρώτα ότι η τιμή που διατηρείται στο εύρος είναι ένας αριθμός και στη συνέχεια θα ελέγξουμε αν ο αριθμός αυτός είναι μεγαλύτερος από 10.
| 12345678910 | Sub HighlightRangeOfCells ()Dim rng As RangeΓια κάθε rng εντός εμβέλειας ("A1: A10")Εάν IsNumeric (rng.Value) ΤότεΕάν rng.Αξία> 10 Τότεrng.Interior.Color = vbRedΤέλος εανΤέλος εανΕπόμενο rngΤέλος υπο |
Επισημάνετε ένα κελί με μορφοποίηση υπό όρους
Μπορούμε επίσης να χρησιμοποιήσουμε το VBA για να εφαρμόσουμε μορφοποίηση υπό όρους σε ένα κελί για να τονίσουμε το κελί. Στο παρακάτω παράδειγμα, η μορφοποίηση υπό όρους θα εφαρμοστεί σε κάθε κελί της περιοχής. Όπως στο παραπάνω παράδειγμα, πρώτα δοκιμάζουμε ότι το κελί έχει μια αριθμητική τιμή σε αυτό και στη συνέχεια εφαρμόζουμε τη μορφοποίηση υπό όρους.
| 12345678910 | Sub SetConditionalFormatting ()Dim rng As RangeΓια κάθε rng εντός εμβέλειας ("A1: A10")Εάν IsNumeric (rng.Value) Τότεrng.FormatConditions.Add Type: = xlCellValue, Operator: = xlGreater, Formula1: = "= 10"rng.FormatConditions (1) .Interior.Color = vbRedrng.FormatConditions (1) .StopIfTrue = ΛάθοςΤέλος εανΕπόμενο rngΤέλος υπο |
Επισημάνετε ένα κελί όταν αλλάζει η επιλογή
Μπορούμε να κάνουμε την επισήμανση ενός κελιού δυναμική όταν ο δείκτης κελιού μετακινείται στο τρέχον φύλλο εργασίας χρησιμοποιώντας το Worksheet_Change Event. Στο παρακάτω παράδειγμα, όλη η επισήμανση στο φύλλο θα αφαιρεθεί (εκτός από αυτές που έγιναν με μορφοποίηση υπό όρους) και η ενεργή κυψέλη θα επισημανθεί με κόκκινο χρώμα (ColorIndex = 3).
| 1234 | Private Sub Worksheet_SelectionChange (ByVal Target As Range)ActiveSheet.Cells.Interior.ColorIndex = xlColorIndexNoneTarget.Interior.ColorIndex = 3Τέλος υπο |
