كيفية تغيير لون مؤشر التعليق في 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%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد