Note: The other languages of the website are Google-translated. Back to English

كيفية تغيير حجم مربع التعليق تلقائيًا ليلائم محتواه في 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-resize-comment-box3

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

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


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

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

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

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

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

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

ملاحظة:

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

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


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


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


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (18)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا لك. حل سهل وسريع لمشكلتي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
باستخدام التعليمات البرمجية الخاصة بك 1. Dim xComment كتعليق لكل xComment In Application.ActiveSheet.Comments xComment.Shape.TextFrame.AutoSize = True Next 2. تحدث المشكلة مع هذا الخطأ 445 مرجع كائن مع النطاق ("A1"). Comment.Shape. TextFrame2 .WordWrap = msoTrue .AutoSize = msoAutoSizeTextToFitShape End With
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لم يعمل مثل الرمز الأول الذي أرسلته فقط يناسب المحتوى الذي أريده وهو شيء سيجعلهم جميعًا بنفس العرض وسوف يتناسب الطول تلقائيًا مع المحتوى لأن هذه هي الطريقة التي يبدو بها العمود H في الوقت الحالي والعمود A يختلف في حجم العرض يود أن يكون العمود A عرضًا وطولًا لثلاثة أعمدة لتناسب المحتوى وتنمو حسب الحاجة عندما تضغط على إدخال ، يجب أن ينمو طول المربع بسطر هل هناك رمز لذلك؟ ملاحظة لقد جربت كلاً من رمز الشفرة الرئيسي الذي أرسلته في آخر مرة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا لم ينجح على الإطلاق. لقد حصلت على خطأ بشكل متكرر.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
تلقيت خطأ: وقت التشغيل '1004': فشل أسلوب الحجم التلقائي للكائن TextFrame
تم تصغير هذا التعليق بواسطة المشرف على الموقع
اعتنى "رمز VBA: مربعات التعليق ذات الحجم التلقائي في ورقة العمل" بتعليقات جدول البيانات الخاص بي. شكرا جزيلا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
جيد! حل مشكلتي.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
انها حقا قطعة جميلة ومفيدة من المعلومات. أنا سعيد لأنك شاركت هذه المعلومات المفيدة معنا. يرجى تبقي لنا حتى الآن من هذا القبيل. شكرا للمشاركة. kdagekebecded
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أثناء عمل الكود ، فإنه يجعل المربع سطرًا واحدًا يعني أن التعليقات الكبيرة تختفي خارج الصفحة في مكان ما. هل يمكنك إعطاء الكود لإصلاح عرض كل مربع (لنقل ثلاثة عروض قياسية لأعمدة Excel) والضبط التلقائي لطول المربع ليناسب النص؟ شكرًا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكراً جزيلاً. لقد أنقذني هذا حقًا من الكثير من المتاعب.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
DENNIE "بينما تعمل الشفرة ، فإنها تجعل المربع سطرًا واحدًا عاليًا بمعنى أن التعليقات الكبيرة تختفي خارج الصفحة في مكان ما. هل يمكنك إعطاء الكود لتحديد عرض كل مربع (لنقل ثلاثة عروض قياسية لأعمدة Excel) والضبط التلقائي طول المربع ليناسب النص؟ شكرا. " // متفق
تم تصغير هذا التعليق بواسطة المشرف على الموقع
شكرا جزيلا لمشاركة هذه. من المفيد حقا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل هناك طريقة لجعل السطر من مربع التعليق إلى الخلية أغمق أو أكثر بدانة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا ديموندرو ،
آسف يمكن أن تساعدك على ذلك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
أعتقد أن Crystal أبعدتنا عن المسار الصحيح ، كان السؤال هو: هل هناك طريقة لجعل السطر من مربع التعليق إلى الخلية أغمق أو أكثر بدانة؟ سيكون هذا هو السطر المحيط بمربع التعليق. TIA DD
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رائعة حقا! شكرا لك الطريقة الأولى تعمل! وفر لي ساعات من العمل!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يعمل ، لا تظهر وحدة الإدراج
تم تصغير هذا التعليق بواسطة المشرف على الموقع
بوم ديا ،

سالفو دي ميز! 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! أوبريجادو.
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL