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

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

doc حجم تلقائي comment1

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


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

doc-تغيير حجم-مربع التعليق3

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

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


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

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

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

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

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

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

ملاحظة:

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

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


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


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

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

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة 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 (19)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi. I've been using an xls spreadsheet for 10+ years. Suddenly, all my note boxes were hugely expanded, showed as a blank note until I edited them. Your solution below worked to resize all of my note boxes to fit contents. But now when I try to resize the note box to add more text, Excel crashes. This is even after I saved as an xlsx file to remove all VB code. Can you help?

Sub FitComments()
'Updateby20140325
Dim xComment As Comment
For Each xComment In Application.ActiveSheet.Comments
xComment.Shape.TextFrame.AutoSize = True
Next
End Sub
This comment was minimized by the moderator on the site
Bom-dia,

Salvou de mais! Após abrir planilha no celular todos os comentários ficaram desajustados no pc.
Tinha mais de 10 mil comentários pra arrumar o tamanho da caixa! Se tivesse pix eu até pagava! Obrigado.
This comment was minimized by the moderator on the site
It doesn't work, the insert module does not show up
This comment was minimized by the moderator on the site
amazing! thank you, the first way works! saved me hours of work!
This comment was minimized by the moderator on the site
I guess Crystal got us off track the question was: Is there a way of making the line from the comment box to the cell darker or fatter? That would be the line surrounding the comment box. TIA DD
This comment was minimized by the moderator on the site
Is there a way of making the line from the comment box to the cell darker or fatter?
This comment was minimized by the moderator on the site
Hi Demondrew,
Sorry can help you for that.
This comment was minimized by the moderator on the site
Thank you so much for sharing this. Really helpful!
This comment was minimized by the moderator on the site
@DENNIE "While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks." // Agreed
This comment was minimized by the moderator on the site
Thank you very much. This really saved me from lots of hassles.
This comment was minimized by the moderator on the site
While the code works it makes the box one line high meaning that large comments disappear off-page somewhere. Could you give the code for fixing the width of each box (to let's say three standard Excel column widths) and auto-adjusting the length of the box to fit the text? Thanks.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations