Πώς να αλλάξετε το χρώμα της καρτέλας φύλλου με βάση την τιμή κελιού;
Κανονικά, μπορείτε να αλλάξετε το χρώμα της καρτέλας εύκολα και γρήγορα στο Excel, αλλά, έχετε προσπαθήσει ποτέ να αλλάξετε το χρώμα της καρτέλας με βάση την τιμή κελιού σε ένα φύλλο εργασίας; Εάν ενδιαφέρεστε για αυτήν την εργασία, θα μιλήσω για ορισμένους κωδικούς για να χρωματίσετε την καρτέλα φύλλων με βάση μια συγκεκριμένη τιμή κελιού στο Excel.
Αλλάξτε ένα χρώμα καρτέλας φύλλου με βάση την τιμή κελιού με τον κωδικό VBA
Αλλάξτε πολλές καρτέλες φύλλων με βάση την τιμή κελιού με τον κώδικα VBA
Αλλάξτε ένα χρώμα καρτέλας φύλλου με βάση την τιμή κελιού με τον κωδικό VBA
Για παράδειγμα, θέλω το τρέχον χρώμα της καρτέλας φύλλου να είναι πράσινο αν η τιμή κελιού στο A1 είναι το κείμενο "TRUE", το χρώμα της καρτέλας θα είναι κόκκινο εάν το κείμενο στο A1 είναι "FALSE" και το χρώμα της καρτέλας θα είναι μπλε εάν η τιμή στο κελί A1 είναι οποιοδήποτε άλλο κείμενο όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:
1. Κάντε δεξί κλικ στην καρτέλα φύλλων που θέλετε να αλλάξετε το χρώμα με βάση τα δεδομένα στο κελί A1 και, στη συνέχεια, επιλέξτε Προβολή κωδικού από το μενού περιβάλλοντος.
2. Στην Microsoft Visual Basic για εφαρμογές παράθυρο, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο Μονάδα μέτρησης παράθυρο.
Κωδικός VBA: Αλλάξτε ένα χρώμα καρτέλας φύλλου με βάση την τιμή κελιού:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$A$1" Then
Select Case Target.Value
Case "False"
Me.Tab.Color = vbRed
Case "True"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
Σημείωση: Στον παραπάνω κώδικα, A1 είναι η αναφορά κελιού στην οποία θέλετε να χρωματίσετε την καρτέλα με βάση, "Οι αληθινοί ","Ψευδής"Είναι το κείμενο που χρειάζεστε, μπορείτε να τα αλλάξετε ανάλογα με τις ανάγκες σας και μπορείτε να αλλάξετε το χρώμα στον κώδικα όπως χρειάζεστε.
3. Στη συνέχεια, αποθηκεύστε και κλείστε αυτό το παράθυρο κώδικα, τώρα, όταν εισαγάγετε το κείμενο "True" στο κελί A1, το τρέχον χρώμα καρτέλας θα γίνει πράσινο και όταν εισαγάγετε το κείμενο "False" στο κελί A1, το χρώμα της καρτέλας θα γίνει κόκκινο, και εάν εισαχθεί άλλο κείμενο στο κελί A1, το χρώμα της καρτέλας θα γίνει μπλε αυτόματα.
Αλλάξτε πολλές καρτέλες φύλλων με βάση την τιμή κελιού με τον κώδικα VBA
Εάν πρέπει να αλλάξετε το χρώμα πολλών καρτελών φύλλων με βάση την τιμή κελιού, εδώ είναι επίσης ένας κώδικας που μπορεί να σας βοηθήσει, κάντε τα εξής:
1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο, στο ανοιχτό παράθυρο, κάντε διπλό κλικ Αυτό το βιβλίο εργασίας σύμφωνα με το VBAProject ενότητα και, στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο κενό Μονάδα μέτρησης:
Κωδικός VBA: Αλλαγή καρτελών πολλών φύλλων με βάση την τιμή κελιού:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Updateby Extendoffice 20160930
Select Case Sheets("Master").Range("A1").Value
Case "KTE"
Sheets("Sheet1").Tab.Color = vbRed
Case "KTO"
Sheets("Sheet2").Tab.Color = vbGreen
Case "KTW"
Sheets("Sheet3").Tab.Color = vbBlue
End Select
End Sub
Σημείωση: Στον παραπάνω κώδικα, A1 και το Master είναι το κελί και το φύλλο εργασίας στο οποίο θέλετε να χρωματίσετε την καρτέλα με βάση, Sheet1, Sheet2, Sheet3 είναι τα φύλλα εργασίας που θέλετε να χρωματίσετε τις καρτέλες. KTE, KTW, ΚΤΟ είναι οι τιμές κελιών στο A1 που θέλετε να βάλετε τις καρτέλες με βάση, μπορείτε να αλλάξετε τις αναφορές και τα χρώματα στον κώδικα όπως χρειάζεστε.
2. Στη συνέχεια, αποθηκεύστε και κλείστε αυτό το παράθυρο κώδικα, τώρα, όταν εισαγάγετε το κείμενο KTE στο κελί A1 του κύριου φύλλου, η καρτέλα Sheet1 θα χρωματιστεί με κόκκινο χρώμα, όταν εισάγετε το KTO στο κελί A1, το Sheet2 θα χρωματιστεί με πράσινο χρώμα και όταν εισάγετε KTW στο κελί A1, το Sheet3 θα χρωματιστεί με μπλε χρώμα, δείτε το στιγμιότυπο οθόνης:
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!