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

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

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

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

في 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 التالية.

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 مفتاح لتنفيذ هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد مجموعة من الخلايا التي تريد تغيير حجم مربعات التعليق ، انظر لقطة الشاشة:

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

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

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

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

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

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

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

ملاحظة:

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

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

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

• كيفية تغيير شكل مربع التعليق في إكسيل؟
• كيفية تغيير جميع تنسيقات التعليقات في الخلايا في Excel؟
• كيف تسرد جميع التعليقات على ورقة عمل أو مصنف جديد في Excel؟
• كيفية إدراج صورة أو صورة في التعليق في Excel؟

---

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

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

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

اقرأ أكثر... تحميل مجاني ... شراء...