كيفية تغيير حجم مربع التعليق تلقائيًا ليلائم محتواه في 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 المفتاح لتشغيل هذا الرمز ، وتم تغيير حجم جميع مربعات التعليق في ورقة العمل النشطة لتلائم محتوياتها كما هو موضح في لقطة الشاشة التالية:
نصيحه: يعمل هذا الرمز فقط في ورقة العمل الحالية ، ولا يمكنه تغيير حجم مربعات التعليق الجديدة التي تضيفها تلقائيًا.
نقرة واحدة لملاءمة حجم مربع التعليق بسرعة لمحتواه تلقائيًا في 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 مفتاح لتنفيذ هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد مجموعة من الخلايا التي تريد تغيير حجم مربعات التعليق ، انظر لقطة الشاشة:
4. ثم انقر فوق OK، مربعات تعليق الخلية المحددة تم تركيبها تلقائيًا لمحتويات التعليق.
نصيحه: لا يمكن لهذا الرمز تغيير حجم مربعات التعليق الجديدة التي تضيفها تلقائيًا.
حجم مربع التعليق تلقائيًا ليناسب محتواه في الورقة النشطة أو كل الأوراق
يمكنك تجربة التعليق التلقائي فائدة كوتولس ل إكسيل لتغيير حجم ملفمربعات التعليق في الورقة النشطة أو جميع الأوراق في Excel. الرجاء القيام بما يلي.
1. لتغيير حجم مربعات التعليق تلقائيًا لتلائم محتواها في الورقة النشطة ، الرجاء النقر كوتولس > المزيد > التعليق التلقائي > الورقة النشطة.
وإذا كنت تريد تغيير حجم جميع مربعات التعليقات تلقائيًا في المصنف بأكمله ، فيرجى النقر فوق كوتولس > المزيد > التعليق التلقائي > كل الأوراق. انظر لقطة الشاشة:
ثم يتم تغيير حجم جميع مربعات التعليقات تلقائيًا لتناسب محتوياتها. انظر لقطة الشاشة:
ملاحظة:
- 1. بعد تغيير حجم مربعات التعليق تلقائيًا ، عند تحرير التعليق مرة أخرى ، سيتم توسيع مربع التعليق أو تقليصه تلقائيًا مع المحتوى.
- 2. بالنسبة إلى التعليقات الجديدة التي أدخلتها ، تحتاج إلى تمكين أداة التعليق التلقائي هذه مرة أخرى لتغيير حجم جميع مربعات التعليق الجديدة المدرجة.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
مقالات ذات صلة:
- كيفية تغيير شكل مربع التعليق في إكسيل؟
- كيفية تغيير جميع تنسيقات التعليقات في الخلايا في Excel؟
- كيف تسرد جميع التعليقات على ورقة عمل أو مصنف جديد في Excel؟
- كيفية إدراج صورة أو صورة في التعليق في Excel؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!