Πώς να αλλάξετε το χρώμα της ένδειξης σχολίων στο Excel;
Στο Excel, μετά την εισαγωγή σχολίου, εμφανίζεται μια μικρή κόκκινη ένδειξη τριγώνου στην επάνω δεξιά γωνία του κελιού. Πολλοί χρήστες του Excel μπορεί να αναρωτιούνται αν το κόκκινο χρώμα της ένδειξης μπορεί να αλλάξει σε άλλα χρώματα που τους αρέσει. Σε αυτό το άρθρο, θα μιλήσω για μια λύση για την ολοκλήρωση αυτής της εργασίας.
Αλλάξτε το χρώμα της ένδειξης σχολίων με τον κωδικό VBA
Αλλάξτε το χρώμα της ένδειξης σχολίων με τον κωδικό VBA
Δεν υπάρχει άμεσος τρόπος για να αλλάξουμε γρήγορα και εύκολα το χρώμα των δεικτών σχολίων, αλλά, ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να σχεδιάσετε ένα τριγωνικό σχήμα που επικαλύπτει κάθε ένδειξη σχολίων με ένα συγκεκριμένο χρώμα που χρειάζεστε στο ενεργό φύλλο.
1. Ενεργοποιήστε το φύλλο εργασίας που θέλετε να αλλάξετε το χρώμα των δεικτών σχολίων.
2. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Παράθυρο Microsoft Visual Basic for Applications.
3. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Παράθυρο ενότητας.
Κωδικός VBA: Αλλάξτε το χρώμα της ένδειξης σχολίων στο ενεργό φύλλο
Sub CoverCommentIndicator()
'Update 20141110
Dim pWs As Worksheet
Dim pComment As Comment
Dim pRng As Range
Dim pShape As Shape
Set pWs = Application.ActiveSheet
wShp = 6
hShp = 4
For Each pComment In pWs.Comments
Set pRng = pComment.Parent
Set pShape = pWs.Shapes.AddShape(msoShapeRightTriangle, pRng.Offset(0, 1).Left - wShp, pRng.Top, wShp, hShp)
With pShape
.Flip msoFlipVertical
.Flip msoFlipHorizontal
.Fill.ForeColor.SchemeColor = 12
.Fill.Visible = msoTrue
.Fill.Solid
.Line.Visible = msoFalse
End With
Next
End Sub
4. Αφού επικολλήσετε τον κωδικό, πατήστε F5 κλειδί για την εκτέλεση του κώδικα, και όλοι οι κόκκινοι δείκτες τριγώνων καλύπτονται από τα μπλε τρίγωνα ως εξής στιγμιότυπα οθόνης που εμφανίζονται:
 |
 |
 |
:
1. Στον παραπάνω κώδικα, μπορείτε να αλλάξετε το μπλε χρώμα στα όνομά σας αλλάζοντας απλά τον δείκτη χρωμάτων στο σενάριο .Fill.ForeColor.SchemeColor = 12.
2. Το σχήμα τριγώνου που προσθέτετε παραπάνω από το VBA θα αλλάξει το μέγεθός του όταν αλλάζετε το μέγεθος του κελιού.
3. Εάν θέλετε να αφαιρέσετε αμέσως όλα τα χρωματιστά σχήματα τριγώνου, ο ακόλουθος κώδικας VBA θα σας κάνει να χαίρεστε:
Κωδικός VBA: Αφαιρέστε τριγωνικά σχήματα πάνω από τους δείκτες σχολίων
Sub RemoveIndicatorShapes()
'Update 20141110
Dim pWs As Worksheet
Dim pShape As Shape
Set pWs = Application.ActiveSheet
For Each pShape In pWs.Shapes
If Not pShape.TopLeftCell.Comment Is Nothing Then
If pShape.AutoShapeType = msoShapeRightTriangle Then
pShape.Delete
End If
End If
Next
End Sub
Σχετικά άρθρα:
Πώς να επισημάνετε όλα τα κελιά με σχόλια στο Excel;
Πώς να εμφανίσετε ή να αποκρύψετε όλα τα σχόλια και τους δείκτες σχολίων στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
