Note: The other languages of the website are Google-translated. Back to English

Πώς να αλλάξετε το χρώμα της καρτέλας φύλλου με βάση την τιμή κελιού;

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

Αλλάξτε ένα χρώμα καρτέλας φύλλου με βάση την τιμή κελιού με τον κωδικό VBA

Αλλάξτε πολλές καρτέλες φύλλων με βάση την τιμή κελιού με τον κώδικα VBA


βέλος μπλε δεξιά φούσκα Αλλάξτε ένα χρώμα καρτέλας φύλλου με βάση την τιμή κελιού με τον κωδικό VBA

Για παράδειγμα, θέλω το τρέχον χρώμα της καρτέλας φύλλου να είναι πράσινο αν η τιμή κελιού στο A1 είναι το κείμενο "TRUE", το χρώμα της καρτέλας θα είναι κόκκινο εάν το κείμενο στο A1 είναι "FALSE" και το χρώμα της καρτέλας θα είναι μπλε εάν η τιμή στο κελί A1 είναι οποιοδήποτε άλλο κείμενο όπως φαίνεται το ακόλουθο στιγμιότυπο οθόνης:

φύλλο χρώματος doc κατά τιμή 1

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

φύλλο χρώματος doc κατά τιμή 2

Σημείωση: Στον παραπάνω κώδικα, 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

φύλλο χρώματος doc κατά τιμή 3

Σημείωση: Στον παραπάνω κώδικα, A1 και το Master είναι το κελί και το φύλλο εργασίας στο οποίο θέλετε να χρωματίσετε την καρτέλα με βάση, Sheet1, Sheet2, Sheet3 είναι τα φύλλα εργασίας που θέλετε να χρωματίσετε τις καρτέλες. KTE, KTW, ΚΤΟ είναι οι τιμές κελιών στο A1 που θέλετε να βάλετε τις καρτέλες με βάση, μπορείτε να αλλάξετε τις αναφορές και τα χρώματα στον κώδικα όπως χρειάζεστε.

2. Στη συνέχεια, αποθηκεύστε και κλείστε αυτό το παράθυρο κώδικα, τώρα, όταν εισαγάγετε το κείμενο KTE στο κελί A1 του κύριου φύλλου, η καρτέλα Sheet1 θα χρωματιστεί με κόκκινο χρώμα, όταν εισάγετε το KTO στο κελί A1, το Sheet2 θα χρωματιστεί με πράσινο χρώμα και όταν εισάγετε KTW στο κελί A1, το Sheet3 θα χρωματιστεί με μπλε χρώμα, δείτε το στιγμιότυπο οθόνης:

φύλλο χρώματος doc κατά τιμή 4


Τα καλύτερα εργαλεία παραγωγικότητας του Office

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου
Σχόλια (23)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ κύριε.
παρακαλώ βοηθήστε με πώς να αλλάξω το χρώμα της καρτέλας του φύλλου με βάση την ημερομηνία/ημέρα.

για πχ:-
αν το φύλλο Νο 1 είναι Κυριακή, τότε - καρτέλα φύλλου "ΚΟΚΚΙΝΟ"
αν το φύλλο Νο 2 είναι Δευτέρα, τότε - καρτέλα φύλλου "Πράσινο"
αν το φύλλο Νο 3 είναι Τρίτη, τότε - καρτέλα φύλλου "Πράσινο"
αν το φύλλο Νο 4 είναι Τετάρτη, τότε - καρτέλα φύλλου "Πράσινο"
εάν το φύλλο Νο 5 είναι Πέμπτη, τότε - καρτέλα φύλλου "Πράσινο"
αν το φύλλο Νο 6 είναι Παρασκευή, τότε - καρτέλα φύλλου "Πράσινο"
αν το φύλλο Νο 7 είναι Σάββατο, τότε - καρτέλα φύλλου "Πράσινο"

παρακαλώ βοηθήστε με για το παραπάνω θέμα του excel.

Ευχαριστώ και αφορά
Faiz Ibn Uvaiz P.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Η περιγραφή σας είναι λίγο ασαφής ως προς το τι προσπαθείτε να κάνετε στην πραγματικότητα. Εάν το βιβλίο εργασίας είναι μόνο για μια εβδομάδα, τότε χρωματίστε τις καρτέλες. Εάν η διάρκεια είναι μεγαλύτερη από μια εβδομάδα, τότε η λύση είναι λίγο πιο περίπλοκη. Μέχρι να εξηγήσετε λεπτομερώς το πρόβλημα, υπάρχουν αρκετές λύσεις που είναι διαθέσιμες. Εγώ, και πολλοί άνθρωποι, δεν θα ξοδέψουμε το χρόνο μας κωδικοποιώντας 2,000 λύσεις για εσάς δωρεάν. Αλλά περιγράφετε λεπτομερώς το πρόβλημα, μπορούμε να δώσουμε 1 λύση.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
πώς μπορώ να αλλάξω το χρώμα μιας καρτέλας ανάλογα με τον καιρό, μια σειρά κελιών έχει κείμενο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο τύπος λειτουργεί για το "True" - η καρτέλα φύλλου είναι ΚΟΚΚΙΝΗ, οπότε είναι υπέροχο, αλλά αν την αλλάξω από "True" σε "False", θέλω η καρτέλα του φύλλου να έχει "no color". Ποιος είναι ο τύπος για να μην υπάρχει χρώμα στην καρτέλα του φύλλου εάν δεν είναι επιλεγμένο το "True"; Επίσης αν θέλω ο τύπος να είναι για μια ομάδα κυττάρων π.χ. A1: A30 ποιος είναι ο κωδικός που χρησιμοποιώ;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Σάνον:
Ο παρακάτω κώδικας VBA μπορεί να σας κάνει τη χάρη, δοκιμάστε τον:

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Dim xRg ως εύρος
Ορισμός xRg = Τομή (Στόχος, Εύρος ("A1:A30"))
Εάν το xRg δεν είναι τίποτα, τότε βγείτε από το Sub
Επιλέξτε Case Target.Value
Υπόθεση "Αλήθεια"
Me.Tab.Color = vbRed
Υπόθεση "Λάθος"
Me.Tab.Color = False
Επιλέξτε Τερματισμός
Sub End

Ελπίζω ότι αυτό μπορεί να σας βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος να αλλάξω το χρώμα της καρτέλας με βάση τα εξής: Έχω μια κύρια καρτέλα όπου οι σειρές 3-7 έχουν μπλε χρώμα και θα αντιστοιχούν στις αντίστοιχες καρτέλες 3-7 (οι οποίες ονομάζονται με βάση τις τιμές των κελιών στην κύρια αυτές οι σειρές) που θα ήθελα να είναι μπλε. Στη συνέχεια, οι σειρές 8-12 έχουν πράσινο χρώμα και αντιστοιχούν επίσης στις καρτέλες 8-12 και ούτω καθεξής.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αυτό ήταν ένα φοβερό κόλπο.
Συνέδεσα το χρώμα της καρτέλας με βάση την τιμή του κελιού A1 (<>0 ΚΟΚΚΙΝΟ και =0 Πράσινο), ωστόσο, η μακροεντολή εκτελείται μόνο εάν επιλέξω A1, πατήσω F2 και μετά πατήσω enter. Χωρίς να το κάνετε αυτό, αν και το χρώμα της καρτέλας (με βάση την τιμή της) θα πρέπει να είναι , ας πούμε Κόκκινο, αλλά παραμένει πράσινο.
Χρησιμοποιώ excel 2007.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Είναι δυνατόν να λειτουργήσει αυτό όταν το κελί A1 μπορεί να έχει και τις 3 απαντήσεις σε ξεχωριστές γραμμές μέσα στο κελί; Δηλαδή το KTE, το KTO και το KTW είναι όλα παρόντα στο κελί καθώς επιτρέπουν πολλαπλές επιλογές από μια αναπτυσσόμενη λίστα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Προσπαθώ να χρησιμοποιήσω αυτόν τον κωδικό και να τον εφαρμόσω σε ένα πλαίσιο ελέγχου, οπότε όταν τσεκάρω το πλαίσιο, το χρώμα αλλάζει, αν το καταργήσω, αλλάζει ξανά (πήρα true=πράσινο, false=κόκκινο,else=κόκκινο) . Αλλά όταν τσεκάρω και αποεπιλέγω βγάζει ένα σφάλμα "ανάγκη αντικειμένου"


Private Sub CheckBox1_Click()
_____If Target.Address = "$e$5" Τότε 'σφάλμα εδώ
__________Επιλέξτε Case Target.Value
__________Περίπτωση "Λάθος"
_______________Me.Tab.Color = vbRed
__________Περίπτωση "True"
_______________Me.Tab.Color = vbGreen
__________Περίπτωση Άλλη
_______________Me.Tab.Color = vbRed
__________Τέλος Επιλογή
_____Τέλος εαν
Sub End

Το έκανα αντιγραφή και επικόλληση για να το δω να τρέχει και μετά να το προσαρμόσω στις ανάγκες μου, αλλά δεν έβρισκα τρόπο να το κάνω να τρέξει.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητοί συνάδελφοι,
Ζητήστε βοήθεια. Πρέπει να αλλάξω το χρώμα της καρτέλας του φύλλου με βάση την τιμή σε μορφή [h]:mm. Για παράδειγμα, εάν η τιμή είναι κάτω από 20:00 - κόκκινο, >20:00 πράσινο.
Ευχαριστώ και χαιρετισμούς!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητοί συνάδελφοι,
Ζητήστε βοήθεια. Πρέπει να αλλάξω το χρώμα της καρτέλας του φύλλου με βάση την τιμή σε μορφή [h]:mm. Για παράδειγμα, εάν η τιμή είναι κάτω από 20:00 - κόκκινο, >20:00 πράσινο.
Ευχαριστώ και χαιρετισμούς!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Βίκτωρ,
Ο παρακάτω κώδικας VBA μπορεί να λύσει το πρόβλημά σας, δοκιμάστε, ελπίζουμε ότι μπορεί να σας βοηθήσει!

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)
Dim xStr ως συμβολοσειρά
Dim xSN ως συμβολοσειρά
Dim xDate ως συμβολοσειρά
Dim xAddress As String
Dim xArr() Ως συμβολοσειρά
Dim xI1 Ως ακέραιος αριθμός
Dim xSM ως συμβολοσειρά
xDate = "20:00"
xAddress = "$A$1"
Εάν Target.Address <> xAddress Τότε βγείτε από το Sub
xStr = Στόχος.Κείμενο
xArr = Split(xStr, ":")
Αν (UBound(xArr) - LBound(xArr) + 1) > 2 Στη συνέχεια, Έξοδος Sub
xI1 = Int(xArr(0))
Αν (Len(xArr(0)) - 2) < 1 Τότε
Αν xI1 > 23 Τότε βγείτε από το Sub
Αλλού
Έξοδος Sub
End If
xSM = xArr(1)
Σε σφάλμα Μετάβαση στο Err01
Αν (Len(xSM) - 2) <> 0 Τότε Έξοδος Υπο
Αν Int(Left(xSM, 1)) > 5 Στη συνέχεια, Exit Sub
Αν Int(Right(xSM, 1)) > 10 Στη συνέχεια, Exit Sub
Αν xI1 >= 20 Τότε
Me.Tab.Color = vbGreen
Αλλού
Me.Tab.Color = vbRed
End If
Σφάλμα 01:
Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αγαπητέ Skyyang,
Συγγνώμη για την πολύ καθυστερημένη ανατροφοδότηση. Αυτός ο τύπος λειτουργεί όταν αλλάζω με μη αυτόματο τρόπο την τιμή στο κελί. Αλλά δεν ήταν αυτό που χρειαζόμουν.
Η τιμή του κελιού είναι αποτέλεσμα ενός τύπου από φύλλα διαφοράς. Για παράδειγμα, αυτός είναι ο τύπος στο κελί "O13-'520'!AD3". Αυτό σημαίνει ότι η τιμή σε αυτό το κελί αλλάζει ανάλογα με την τιμή του διαφορετικού κελιού στο διαφορετικό φύλλο. Αυτό που χρειάζομαι είναι το χρώμα του φύλλου να αλλάζει αυτόματα όταν αλλάξει η τιμή στο κελί "O13-'520'!AD3", όταν η τιμή στο κελί "O13-'520'!AD3" είναι κάτω από 05:00 - κόκκινο , >20:00 πράσινο, μεταξύ 05:00 και 20:00 καφέ.
Σας ευχαριστώ εκ των προτέρων και με εκτίμηση!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σε όλους, πώς μπορώ να αλλάξω το χρώμα της καρτέλας με βάση μια συγκεκριμένη τιμή στη στήλη των πολλαπλών φύλλων; Ευχαριστώ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς θα συνδέατε την καρτέλα με μια τιμή σε μια διαφορετική καρτέλα. Στο παράδειγμά μου έχω μια καρτέλα με όλες τις πληροφορίες που φιλτράρονται αυτόματα σε διάφορες καρτέλες. Ωστόσο, κάθε καρτέλα θα είναι πράσινη ή κόκκινη, ανάλογα με το αν υπάρχει υπόλοιπο στην κύρια καρτέλα. Μπορεί να γίνει αυτό χρησιμοποιώντας αυτόν τον κωδικό και αν ναι, πού μπορώ να γράψω τον σύνδεσμο προς το κύριο φύλλο σε αυτόν τον κωδικό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.

Δεν έχω ξανακάνει κώδικα στο excel. Χρειάζομαι έναν κωδικό που κάνει αυτό που κάνει αυτός ο κώδικας, αλλά χρειάζομαι μια άλλη παράμετρο.

Αυτό που χρειάζομαι λοιπόν είναι:

Εάν η τιμή του κελιού δεν είναι 0 ή/και εάν κάποιο άλλο κελί έχει αριθμούς σε αυτό, χρησιμοποιώντας την καταμέτρηση, αλλάξτε το χρώμα σε κόκκινο

Εάν η τιμή του κελιού είναι 0 και αυτά τα άλλα κελιά είναι άδεια, χρησιμοποιώντας το count, αλλάξτε το χρώμα σε πράσινο
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, Προσπαθώ να αλλάξω το χρώμα της καρτέλας με βάση την τιμή σε ένα ξεχωριστό φύλλο που ονομάζεται Παρακολούθηση εδώ είναι αυτό που δοκίμασα, αλλά δεν φαίνεται να λειτουργεί. Ευχαριστώ




Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)

'Ενημέρωση Extendoffice 20160930

If Target.Address = "Tracking!$C$2" Τότε

Επιλέξτε Case Target.Value

Θήκη "ip"

Me.Tab.Color = vbRed

Περίπτωση "w"

Me.Tab.Color = vbYellow

Περίπτωση "γ"

Me.Tab.Color = vbGreen

Υπόθεση άλλο

Me.Tab.Color = vbBlue

Επιλέξτε Τερματισμός

End If

Sub End
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου, Μπραντ,
Για να εκτελέσετε σωστά τον κώδικα, δεν πρέπει να εισαγάγετε το όνομα του φύλλου στον κώδικα, εφαρμόστε τον ακόλουθο κώδικα: (κάντε κλικ στο όνομα του φύλλου που θέλετε να εκτελέσετε αυτόν τον κώδικα και, στη συνέχεια, κάντε δεξί κλικ στο όνομα του φύλλου και επιλέξτε Προβολή κώδικα και, στη συνέχεια, επικολλήστε τον κωδικό στη μονάδα)

Προσωπικό φύλλο εργασίας Sub_change (ByVal Target As Range)

'Ενημέρωση Extendoffice 20160930

If Target.Address = "$C$2" Τότε

Επιλέξτε Case Target.Value

Θήκη "ip"

Me.Tab.Color = vbRed

Περίπτωση "w"

Me.Tab.Color = vbYellow

Περίπτωση "γ"

Me.Tab.Color = vbGreen

Υπόθεση άλλο

Me.Tab.Color = vbBlue

Επιλέξτε Τερματισμός

End If

Sub End

Παρακαλώ δοκιμάστε, ελπίζω ότι μπορεί να σας βοηθήσει!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ψάχνω να αλλάξω το χρώμα της καρτέλας με βάση ένα από τα 2 αποτελέσματα ενός τύπου. Έχω έναν τύπο=IF((AND(AA1="Κατεχόμενα",AA2="Κατεχόμενα",AA3="Κατεχόμενα",AA4=" Κατεχόμενα")), "Κατεχόμενα", "Κενό")
Χρειάζομαι η καρτέλα να είναι κόκκινη αν "Κατειλημμένη" και πράσινη εάν "Κενή". Ωστόσο, ο παραπάνω κώδικας στην κύρια ανάρτηση δεν αναγνωρίζει την έξοδο του If Than
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε ,
Χρειάζομαι κάποια βοήθεια
Πρέπει να αλλάξω το χρώμα της καρτέλας του φύλλου μόνο εάν σε ένα συγκεκριμένο εύρος κελιών, έχει τη σημερινή ημερομηνία
Πες για παράδειγμα,
Η στήλη L έχει ορισμένες ημερομηνίες με τη μορφή (13-Μάιος-22)
Μία από τις τιμές κελιών είναι η σημερινή ημερομηνία, τότε το χρώμα του φύλλου καρτέλας θα πρέπει να αλλάξει σε κόκκινο
Παρακαλώ βοηθήστε
Σας ευχαριστώ εκ των προτέρων
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θα ήθελα η καρτέλα μου να αλλάξει χρώμα εάν κάποιο κελί στη στήλη O ή στη στήλη P έχει μια τιμή. Είναι δυνατόν;

Ευχαριστώ!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θέλω να ορίσω το χρώμα της καρτέλας φύλλου με βάση το χρώμα του κελιού j4 σε κάθε φύλλο. Υπάρχουν 18+ καρτέλες και θέλετε να ενημερώσετε τα χρώματα της καρτέλας όταν ανοίξει το βιβλίο εργασίας. Εάν δεν μπορώ να ενημερώσω όταν ανοίξω, μπορώ να εκτελέσω τη μακροεντολή μετά την ενημέρωση των φύλλων από τις ομάδες.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου ξύλο
Για να λύσετε το πρόβλημά σας, εφαρμόστε τον παρακάτω κώδικα: (Note: Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο Αυτό το βιβλίο εργασίας λειτουργία κωδικού)
Private Sub Workbook_AfterSave(ByVal Success As Boolean)
Call SetSheetColor
End Sub

Private Sub Workbook_Open()
Call SetSheetColor
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call SetSheetColor
End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Call SetSheetColor
End Sub

Sub SetSheetColor()
Dim xWShs As Sheets
Dim xRg As Range
Dim xFNum As Integer
Dim xSh As Worksheet
On Error Resume Next
Set xWShs = Application.ActiveWorkbook.Sheets
For xFNum = 1 To xWShs.Count
    Set xSh = xWShs.Item(xFNum)
    Set xRg = xSh.Range("J4")
    xSh.Tab.Color = xRg.Interior.Color
Next
End Sub


https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-color-sheet.png

Παρακαλώ δοκιμάστε, ελπίζω να σας βοηθήσει!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL