Το Microsoft Excel σάς επιτρέπει να εφαρμόσετε όρουςμορφοποίηση σε κελιά. Εάν η τιμή σε ένα κελί πληροί ορισμένους κανόνες που έχετε ορίσει, η λειτουργία μορφοποίησης υπό όρους θα αλλάξει το χρώμα του κειμένου στο κελί ή το χρώμα πλήρωσης ή και τα δύο. Αυτό είναι ένα βασικό χαρακτηριστικό που λειτουργεί ακριβώς έξω από το κουτί ωστόσο, εάν θέλετε να κλειδώσετε κελιά με βάση το χρώμα, χρειάζεστε ένα μικρό σενάριο VBA για να το κάνετε αυτό.
Μπορείτε να χρησιμοποιήσετε τη μορφοποίηση υπό όρους για να αλλάξετε τοτο χρώμα ενός κελιού ή μπορείτε να αλλάξετε χειροκίνητα το χρώμα σε οτιδήποτε θέλετε. Η δέσμη ενεργειών VBS δεν εξαρτάται από τη μορφοποίηση υπό όρους για να κλειδώνει τα κελιά. Χρειάζεται μόνο ένα κελί για να είναι χρωματισμένο.
Κλείδωμα κυττάρων με βάση το χρώμα
Για να μπορέσετε να δημιουργήσετε μια δέσμη ενεργειών VBA, πρέπει να γνωρίζετε το χρώμα του κελιού στο οποίο αναφέρεστε. Η VBA δεν βλέπει χρώματα όπως είναι. τα αναφέρει μέσω των κωδικών χρώματος τους.
Το πρώτο πράγμα που πρέπει να κάνετε είναι να δώσετε στο κελί σαςένα χρώμα. Έχουμε πάει με το βασικό κίτρινο που είναι αρκετά εύκολο να αναφερθούμε. Εάν πηγαίνετε με διαφορετικό χρώμα, χρησιμοποιήστε αυτόν τον ιστότοπο για να βρείτε τον κωδικό χρώματος που πρέπει να χρησιμοποιήσετε. Ο κωδικός χρώματος που χρησιμοποιούμε για το κίτρινο είναι # FFFF00.
Στο Excel, ενεργοποιήστε την καρτέλα Developer (Ανάπτυξη) και στη συνέχεια μεταβείτε σε αυτήν. Κάντε κλικ στο κουμπί της Visual Basic και επικολλήστε τα εξής στην ενότητα "Αυτό το φύλλο εργασίας". Αυτό το σενάριο γράφτηκε από τον χρήστη Superuser Dave.
Sub WalkThePlank() dim colorIndex as Integer colorIndex = FFFF00 Dim rng As Range For Each rng In ActiveSheet.UsedRange.Cells Dim color As Long color = rng.Interior.ColorIndex If (color = colorIndex) Then rng.Locked = True else rng.Locked = false End If Next rng End Sub
Εκτελέστε το σενάριο και θα κλειδώσει όλα τα κελιά που είναι το χρώμα που έχετε ορίσει. Ο κώδικας χρώματος που βρήκατε για το χρώμα σας θα οριστεί στη γραμμή αυτή στο σενάριο.
colorIndex = FFFF00
Το FFFF00 αντιπροσωπεύει το κίτρινο χρώμα και αυτό είναιτι πρέπει να αντικαταστήσετε με οποιοδήποτε χρώμα χρώμα ισχύει για το χρώμα που χρησιμοποιείτε. Πρέπει να αναφέρουμε ότι είναι καλύτερο να ακολουθήσετε ένα βασικό χρώμα. Μόλις προσθέσετε αυτό, θα χρειαστεί να αποθηκεύσετε το αρχείο Excel ως αρχείο με δυνατότητα μακροεντολών ή το σενάριο VBA δεν θα αποθηκευτεί.
Τα κλειδωμένα κύτταρα μπορούν εύκολα να ξεκλειδωθούν. Η κλειδαριά δεν είναι κλειδωμένη με κωδικό κλειδώματος, εμποδίζει άλλα άτομα να αλλάξουν την τιμή ενός κελιού αν το θέλουν. Είναι μια συνηθισμένη κλειδαριά που εμποδίζει τυχαίες αλλαγές στο αρχείο.
Σχόλια