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

كيفية تغيير حجم مربع التعليق تلقائيًا ليلائم محتواه في Excel؟

المؤلف: شياويانغ آخر تعديل: 2024-09-04

عند إدراج تعليقات على الخلايا ، يكون حجم مربع التعليق هو الافتراضي. إذا قمت بإدخال الكثير من المحتويات فيه ، فلن يكون بعض المحتوى مرئيًا بشكل مباشر. هل من الممكن ملاءمة حجم مربع التعليق مع محتواه تلقائيًا؟

حجم مربع التعليق تلقائيًا ليناسب محتواه في ورقة عمل
حجم مربع التعليق تلقائيًا ليلائم محتواه في نطاق من الخلايا
يمكنك بسهولة تغيير حجم مربع التعليق تلقائيًا ليناسب محتواه في الورقة النشطة أو كل الأوراق باستخدام أداة رائعة


حجم مربع التعليق تلقائيًا ليناسب محتواه في ورقة عمل

في Excel ، يمكنك سحب مربع التعليق إلى الحجم الذي تريده يدويًا واحدًا تلو الآخر ، ولكن إذا كان هناك العديد من مربعات التعليق بحاجة إلى تغيير حجمها ، فستكون هذه الطريقة مملة وتستغرق وقتًا طويلاً. في هذه الحالة ، يمكنك تطبيق رمز VBA التالي.

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

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

رمز فبا: مربعات التعليق ذات الحجم التلقائي في ورقة العمل

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
    xComment.Shape.TextFrame.AutoSize = True
Next
End Sub

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

كود vba لتغيير حجم مربع التعليق تلقائيًا ليناسب المحتوى في ورقة العمل

نصيحه: يعمل هذا الرمز فقط في ورقة العمل الحالية ، ولا يمكنه تغيير حجم مربعات التعليق الجديدة التي تضيفها تلقائيًا.


نقرة واحدة لملاءمة حجم مربع التعليق بسرعة لمحتواه تلقائيًا في Excel:

إنّ التعليق التلقائي فائدة كوتولس ل إكسيل يمكن أن يساعد في ملاءمة حجم مربع التعليق بسرعة لمحتواه تلقائيًا في ورقة عمل كما هو موضح أدناه العرض التوضيحي. قم بتنزيله وجربه الآن! (تجربة مجانية لمدة 30 يومًا)


حجم مربع التعليق تلقائيًا ليلائم محتواه في نطاق من الخلايا

إذا كنت بحاجة فقط إلى تغيير حجم نطاق من مربعات تعليق الخلية تلقائيًا ، فيمكنك استخدام التعليمات البرمجية لـ VBA التالية.

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

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

رمز فبا: مربعات التعليق ذات الحجم التلقائي في نطاق من الخلايا

Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
    If Not rng.Comment Is Nothing Then
        rng.Comment.Shape.TextFrame.AutoSize = True
    End If
Next
End Sub

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

كود vba لتحديد النطاق لتغيير حجم مربع التعليق تلقائيًا ليناسب المحتوى

4. ثم انقر فوق OK، مربعات تعليق الخلية المحددة تم تركيبها تلقائيًا لمحتويات التعليق.

نصيحه: لا يمكن لهذا الرمز تغيير حجم مربعات التعليق الجديدة التي تضيفها تلقائيًا.


حجم مربع التعليق تلقائيًا ليناسب محتواه في الورقة النشطة أو كل الأوراق 

يمكنك تجربة التعليق التلقائي فائدة كوتولس ل إكسيل لتغيير حجم ملفمربعات التعليق في الورقة النشطة أو جميع الأوراق في Excel. الرجاء القيام بما يلي.

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

1. لتغيير حجم مربعات التعليق تلقائيًا لتلائم محتواها في الورقة النشطة ، الرجاء النقر كوتولس > المزيد > التعليق التلقائي > الورقة النشطة.

وإذا كنت تريد تغيير حجم جميع مربعات التعليقات تلقائيًا في المصنف بأكمله ، فيرجى النقر فوق كوتولس > المزيد > التعليق التلقائي > كل الأوراق. انظر لقطة الشاشة:

انقر فوق Kutools > المزيد > AutoFit Comment

ثم يتم تغيير حجم جميع مربعات التعليقات تلقائيًا لتناسب محتوياتها. انظر لقطة الشاشة:

يتم تغيير حجم جميع مربعات التعليقات تلقائيًا لتناسب محتوياتها

ملاحظة:

  • 1. بعد تغيير حجم مربعات التعليق تلقائيًا ، عند تحرير التعليق مرة أخرى ، سيتم توسيع مربع التعليق أو تقليصه تلقائيًا مع المحتوى.
  • 2. بالنسبة إلى التعليقات الجديدة التي أدخلتها ، تحتاج إلى تمكين أداة التعليق التلقائي هذه مرة أخرى لتغيير حجم جميع مربعات التعليق الجديدة المدرجة.

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


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

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

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

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


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!