كيف يمكن تغيير لون مؤشر التعليق في Excel؟
بشكل افتراضي، يظهر عند إدراج تعليق في Excel مثلث أحمر صغير في الزاوية العلوية اليمنى للخلية، ليشير إلى أن الخلية تحتوي على تعليق. ومع ذلك، قد ترغب في العديد من الحالات بتخصيص لون هذه المؤشرات—سواء لتتناسق مع الهوية البصرية لشركتك، أو لأنظمة التصنيف الخاصة بك، أو لجعل التعليقات أكثر وضوحًا في ملفات العمل المشتركة. وعلى الرغم من أن Excel لا يوفّر خيارًا مدمجًا لتغيير لون مؤشر التعليق مباشرةً، فإن هذا المقال يقدم حلاً عمليًا يمكّنك من تحقيق هذا التأثير باستخدام كود VBA.
يُعد تغيير لون مؤشر التعليق مفيدًا بشكل خاص في البيئات التعاونية أو عند التعامل مع جداول بيانات معقدة تحتوي على تعليقات متعددة. إذ يساعد تخصيص هذه المؤشرات في تنظيم الملاحظات بصريًّا، والتمييز بين أنواع التعليقات المختلفة، أو ببساطة تخصيص ورقة العمل لتسهيل مراجعتها. فيما يلي تعليمات مفصلة وملاحظات حول هذا الحل البديل، بالإضافة إلى نصائح لاستكشاف الأخطاء وإصلاحها، وتوجيهات لتخصيص كود VBA، وأساليب بديلة يمكنك استخدامها إذا كان تطبيق VBA مقيدًا في بيئة عملك.
تغيير لون مؤشر التعليق باستخدام كود VBA
تغيير لون مؤشر التعليق باستخدام كود VBA
لا توجد حاليًا ميزة مباشرة في Excel تتيح لك تغيير لون مثلثات مؤشرات التعليق بسرعة. لكن يمكنك استخدام VBA لتغطية المؤشر الافتراضي بشكل مثلث ملون، مما يُعيد تشكيل مظهره بصريًّا. ويعمل هذا الأسلوب على جميع الخلايا المحتوية على تعليقات في ورقة العمل النشطة. من المهم أن تلاحظ أن هذه الطريقة لا تغيّر لون مؤشر التعليق الأصلي فعليًّا، بل تغطيه فقط بشكل مثلث بلون تختاره.
هذه الطريقة مثالية للمستخدمين الباحثين عن وسيلة مباشرة للتمييز البصري لمؤشرات التعليقات دون الحاجة إلى تنسيق يدوي مكثف. فإذا كنت تشارك ملفات العمل بشكلٍ روتيني، أو رغبت في ترميز التعليقات بالألوان حسب النوع أو المؤلف، فإن استخدام VBA يوفّر لك التخصيص البصري الذي تحتاجه. وتتمثّل ميزة استخدام VBA في القدرة على تطبيق التغييرات بسرعة عبر العديد من الخلايا؛ أما عيبه فهو أنه يتطلب تمكين الماكروات ولا يُعد جزءًا أصليًّا من Excel. كما أنه إذا كنت قد فعّلت حماية الورقة، فقد تحتاج إلى إلغاء الحماية قبل تشغيل كود VBA.
1. افتح ورقة العمل التي تريد تخصيص لون مؤشرات التعليقات فيها.
2. اضغطALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications. يمكنك استخدام هذا الاختصار في أي مصنف Excel، حيث يفتح لك بيئة محرر VBA فورًا.
3. في نافذة VBA، انقرإدراج > وحدة نمطيةلإنشاء وحدة جديدة، ثم انسخ والصق كود VBA التالي في نافذة الوحدة. سيقوم هذا الكود باكتشاف التعليقات ورسم شكل مثلث ملوَّن عند كل مؤشر.
كود 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(أو انقر زر «تشغيل» في نافذة VBA) لتنفيذه. عندئذٍ، سيتم تغطية جميع مؤشرات التعليق في ورقة العمل النشطة بصريًا بمثلثات باللون المحدد—كما هو موضح أدناه:
 |
 |
 |
ملاحظات ونصائح:
1. في الكود، يتم ضبط لون المثلث باستخدام.Fill.ForeColor.SchemeColor = 12. يمكنك تغيير القيمة12 إلى أي رقم آخر يتوافق مع رمز اللون الذي تفضّله. على سبيل المثال، عند تغييرها إلى10، سيتم استخدام درجة لون مختلفة. راجع وثائق Excel الرسمية الخاصة بـColorIndex لاكتشاف أرقام ألوان النظام المتاحة.
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
لتشغيل كود الإزالة، اتبع نفس الخطوات المذكورة أعلاه: افتح محرر VBA، وأدرج وحدة نمطية، والصق الكود، ثم نفّذه باستخدامF5. سيحافظ هذا على بيانات تعليقاتك الأساسية سليمة ويحذف فقط أشكال المؤشرات.
إذا واجهت خطأً أثناء تشغيل أيٍّ من البرنامجين النصيين، فتأكد من تفعيل الماكروات في إعدادات Excel، وأن تكون الورقة غير محمية، وألا تحتوي ورقة العمل على أي كائنات مقفلة. ويُوصى بحفظ عملك قبل تشغيل VBA، تحسبًا لرغبتك في التراجع عن التغييرات لاحقًا.
إذا كنت تعمل في مؤسسة تقيّد تشغيل ماكروات VBA أو كنت تفضّل عدم استخدامها، ففكّر في تمييز خلايا التعليقات باستخدام التنسيق الشرطي كبديل للتعرّف البصري—مع ملاحظة أن ذلك لن يغيّر لون المثلث نفسه. وكمحلٍّ بديل آخر، يمكنك استخدام الأشكال أو الرموز يدويًّا لوضع علامات على الخلايا المعلّقة.
مقالات ذات صلة:
كيف يمكن تمييز جميع التعليقات في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل