انتقل إلى المحتوى الرئيسي

كيفية تغيير جميع تنسيقات التعليقات في الخلايا في Excel؟

عندما نقوم بإدراج التعليقات في ورقة عمل ، في بعض الأحيان ، قد نحتاج إلى تغيير تنسيقات التعليقات الافتراضية ، إذا كانت هناك بعض التعليقات ، فيمكننا تغييرها يدويًا ، ولكن إذا كان هناك مئات التعليقات بحاجة إلى التغيير ، كيف يمكنك حلها ؟

قم بتغيير جميع تنسيقات التعليقات باستخدام كود VBA

أداة سهلة الاستخدام لتغيير جميع تنسيقات التعليقات بسرعة وتوفير الوقت


السهم الأزرق الحق فقاعة قم بتغيير جميع تنسيقات التعليقات باستخدام كود VBA

باستخدام التعليمات البرمجية لـ VBA التالية ، يمكنك تغيير حجم الخط وخط التعليقات في الخلايا ، لكن لا يمكن تغيير ألوان الخط. الرجاء استخدام VBA التالية على النحو التالي:

1. انقر المطور > Visual Basic، جديد Microsoft Visual Basic للتطبيقات سيتم عرض النافذة ، انقر فوق إدراج > وحدة، ثم انسخ والصق الرموز التالية في الوحدة النمطية:

Sub FormatAllComments()
'Updateby20140509
Dim xWs As Worksheet
Dim xComment As Comment
For Each xWs In Application.ActiveWorkbook.Worksheets
    For Each xComment In xWs.Comments
        With xComment.Shape.TextFrame.Characters.Font
            .Name = "Times New Roman"
            .Size = 14
        End With
    Next
Next
End Sub

في الكود أعلاه ، يمكنك ضبط .اسم و .بحجم المتغيرات كما تريد.

2. ثم اضغط وثيقة-تغيير-تعليق-شكل -1 زر لتشغيل الكود. ثم انقر فوق التقيم > عرض كل التعليقات لعرض التعليقات ، تم تغيير جميع تنسيقات التعليقات في المصنف بأكمله. انظر لقطات الشاشة:

وثيقة-تغيير-تعليق-تنسيق1 -2 وثيقة-تغيير-تعليق-تنسيق2

السهم الأزرق الحق فقاعة أداة سهلة الاستخدام لتغيير جميع تنسيقات التعليقات بسرعة وتوفير الوقت

إذا كنت تريد تغيير أنواع التنسيق الأخرى بسرعة لجميع التعليقات ، فيمكنك محاولة استخدام تنسيق تنسيق التعليقات of كوتولس ل إكسيل.

كوتولس ل إكسيل: مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود خلال 30 يومًا. احصل عليه الآن

بعد تثبيت Kutools for Excel ، يرجى اتباع الخطوات التالية لتغيير تنسيقات التعليقات:

1. قم بتنسيق تعليق واحد بالنمط الذي تريد تطبيقه على التعليقات الأخرى.

2. انقر كوتولس > المزيد > تنسيق التعليقات، انظر لقطة الشاشة:

3. في تنسيق التعليقات مربع الحوار، انقر فوق شكل علامة التبويب ، واختر النطاق الذي تريد تغيير تنسيق التعليق ، يمكنك اختياره الورقة النشطة or كل الأوراق. ثم اضغط حدد خلية التعليق لتحديد الخلية التي تحتوي على تنسيق التعليق المحدد الذي تريد تطبيقه. ثم ينبثق مربع حوار آخر لإخبارك بعدد الخلايا التي تم تغييرها. انظر لقطة الشاشة:

4. ثم اضغط Ok > إلغاء لإغلاق مربع الحوار ، وتم تطبيق تنسيق تعليق الخلية المحدد على التعليقات الأخرى.

الملاحظات:

إذا كنت لا تريد استخدام نمط الخط الغامق في جميع خلايا التعليقات ، فيرجى التحقق فرض تنسيق غير غامق الخيار.

للحصول على معلومات أكثر تفصيلا حول تنسيق التعليقات ، يرجى زيارة تنسيق وصف ميزة التعليقات.


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

أفضل أدوات إنتاجية المكتب

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks for this bit of code. It worked for me. But, I would also like to stretch the width property so the increase size text will show the way I like it. Recorder records what you see below, but I can't figure out how to get this into the For Each loop. Selection.ShapeRange.ScaleWidth 1.63, msoFalse, msoScaleFromTopLeft Selection.ShapeRange.ScaleHeight 1.98, msoFalse, msoScaleFromTopLeft Any advice on how to update the code for this extra little trick? Thanks!
This comment was minimized by the moderator on the site
Hi, I join myself to the thanksgiving. The piece of code did work perfectly! Thx again!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations