كيفية تمييز جميع الخلايا مع التعليقات في Excel؟

يعد التعليق ميزة مفيدة لنا لكتابة بعض المعلومات المهمة في Excel ، بعد إدخال التعليق ، سيكون هناك مؤشر أحمر صغير معروض في الخلية. لكن في بعض الأحيان ، لا تكون المؤشرات الحمراء ملفتة للنظر ، لذا يمكننا تمييز جميع الخلايا ذات التعليقات بلون معين لجعلها أكثر بروزًا. يرجى قراءة هذه المقالة لمعرفة المزيد من التفاصيل.

قم بتمييز جميع الخلايا التي تحتوي على تعليقات باستخدام Go To Special function

قم بتمييز كل الخلايا التي تحتوي على تعليقات برمز VBA

---

قم بتمييز جميع الخلايا التي تحتوي على تعليقات باستخدام Go To Special function

في Excel ، يمكننا تحديد جميع خلايا التعليقات أولاً ، ومن ثم إعطائها اللون الذي نفضله ، يرجى القيام بما يلي:

1. حدد نطاق البيانات أو ورقة العمل بأكملها التي تريد تمييز الخلايا مع التعليقات.

2. ثم اضغط الرئيسية > بحث وتحديد > انتقل إلى خاص، انظر لقطة الشاشة:

معلومه- سرية: يمكنك الضغط على الاختصارات كترل + G لفتح إذهب إلى الحوار ، وانقر خاص لفتح انتقل إلى خاص الحوار.

3. في انتقل إلى خاص مربع الحوار ، تحقق التعليقات الخيار ، انظر لقطة الشاشة:

4. ثم اضغط OK لإغلاق مربع الحوار هذا ، وتم تحديد جميع الخلايا التي تحتوي على تعليقات في اختيارك ، انظر لقطة الشاشة:

5. بعد تحديد خلايا التعليق ، انقر فوق لون التعبئة رمز تحت الرئيسية علامة التبويب ، واختر لونًا واحدًا تريده ، سيتم تلوين جميع تعليقات الخلية المحددة مرة واحدة ، انظر لقطة الشاشة:

---

قم بتمييز كل الخلايا التي تحتوي على تعليقات برمز VBA

يمكنك أيضًا تمييز جميع تعليقات الخلية وتلوينها في ورقة العمل النشطة فورًا باستخدام التعليمات البرمجية لـ VBA التالية:

1. قم بتنشيط ورقة العمل الخاصة بك التي تريد تمييز خلايا التعليق.

2. اضغط باستمرار على ALT + F11 مفاتيح لفتح نافذة ميكروسوفت فيسوال باسيك للتطبيقات.

3. انقر إدراج > وحدة، والصق الكود التالي في ملف نافذة الوحدة.

كود فبا: قم بتمييز جميع الخلايا بالتعليقات

Sub ColorComments()
'Update 20141110
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.SpecialCells(xlCellTypeComments)
Application.ScreenUpdating = False
For Each Rng In WorkRng
    Rng.Interior.ColorIndex = 36
Next
Application.ScreenUpdating = True
End Sub

4. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد النطاق الذي تريد تمييز خلايا التعليق ، انظر لقطة الشاشة:

5. ثم انقر فوق OK، تم تمييز جميع التعليقات في اختيارك بالألوان.

ملاحظة:

في الكود أعلاه ، يمكنك تغيير مؤشر اللون في البرنامج النصي Rng.Interior.ColorIndex = 36 على إعجابك.

---

مقالات ذات صلة:

كيفية إعادة تعيين جميع مواقف التعليقات في إكسيل؟

كيفية تغيير لون مؤشر التعليق في إكسيل؟

كيفية إضافة التاريخ والوقت تلقائيًا للتعليق في إكسيل؟