كيف يمكنك ضبط حجم مربع التعليق تلقائيًا ليتناسب مع محتواه في Excel؟
عند إدراج تعليقات في الخلايا، يكون حجم مربع التعليق افتراضيًا. فإذا أدخلت كمية كبيرة من المحتوى، فلن يظهر بعضه مباشرةً. هل يمكن ضبط حجم مربع التعليق تلقائيًا ليتناسب مع محتواه؟
ضبط حجم مربع التعليق تلقائيًا ليتناسب مع محتواه في ورقة عمل
ضبط حجم مربع التعليق تلقائيًا ليتناسب مع محتواه في نطاق خلايا
ضبط حجم مربع التعليق تلقائيًا ليتناسب مع محتواه بسهولة في ورقة العمل النشطة أو في جميع الأوراق باستخدام أداة رائعة
ضبط حجم مربع التعليق تلقائيًا ليتناسب مع محتواه في ورقة عمل
في Excel، يمكنك سحب مربع التعليق لتغيير حجمه يدويًا واحدًا تلو الآخر، ولكن إذا كان لديك عدد كبير من مربعات التعليقات التي تحتاج إلى تعديل حجمها، فستصبح هذه الطريقة مملة وتستهلك وقتًا طويلاً. في هذه الحالة، يمكنك استخدام كود VBA التالي.
1. اضغط مع الاستمرار على مفاتيحALT + F11، وسيفتح ذلك نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة نمطية (Module)، ثم الصق ماكرو التالي في نافذةالوحدة النمطية.
كود VBA: ضبط حجم مربعات التعليقات تلقائيًا في ورقة عمل
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:
أداةضبط حجم التعليق تلقائيًامنKutools لـ Excelتساعدك على ضبط حجم مربع التعليق تلقائيًا ليتناسب مع محتواه بسرعة في ورقة العمل، كما هو موضح في العرض التوضيحي أدناه.حمّلها وجربها الآن! (تجربة مجانية لمدة 30 يومًا)
ضبط حجم مربع التعليق تلقائيًا ليتناسب مع محتواه في نطاق خلايا
إذا كنت بحاجة فقط إلى ضبط حجم مجموعة من مربعات التعليق تلقائيًا، فاستخدم الكود التالي من VBA.
1. اضغط مع الاستمرار علىALT + F11، وستفتح لك ذلك نافذةMicrosoft Visual Basic for Applications.
2. انقر فوقإدراج>وحدة نمطية (Module)، والصق ماكرو التالي في نافذةالوحدة النمطية.
كود VBA: ضبط حجم مربعات التعليقات تلقائيًا في نطاق خلايا
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. ثم انقر فوقموافق، وسيتم ضبط مربعات التعليق المحددة تلقائيًا لتتناسب مع محتوى التعليقات.
ملاحظة: لا يمكن لهذا الكود تغيير حجم مربعات التعليقات الجديدة التي تتم إضافتها تلقائيًا.
ضبط حجم مربع التعليق تلقائيًا ليتناسب مع محتواه في ورقة العمل النشطة أو في جميع الأوراق
يمكنك تجربة أداةضبط حجم التعليق تلقائيًامنKutools لـ Excelلتغيير حجم جميع مربعات التعليقات تلقائيًا فيجميع الأوراق أو في ورقة العمل النشطة بأكمله في Excel. يُرجى اتباع الخطوات التالية.
1. لتغيير حجم مربعات التعليقات تلقائيًا لتتناسب مع محتوياتها في ورقة العمل النشطة، انقر فوقKutools > المزيد > ضبط حجم التعليق تلقائيًا > ورقة العمل الحالية.
وإذا أردت تغيير حجم جميع مربعات التعليقات في المصنف بأكمله تلقائيًا، فانقر علىKutools > المزيد > ضبط حجم التعليق تلقائيًا > جميع الأوراق. انظر لقطة الشاشة:

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

ملاحظات:
- 1. بعد تغيير حجم مربعات التعليقات تلقائيًا، سيتوسع مربع التعليق أو ينكمش تلقائيًا مع المحتوى عند تعديله مرة أخرى.
- 2. بالنسبة إلى التعليق الجديد الذي أدرجته، ستحتاج إلى تمكين أداة ضبط حجم التعليق تلقائيًا مرة أخرى لتغيير حجم جميع مربعات التعليقات الجديدة التي تم إدراجها.
إذا كنت ترغب في تجربة هذه الأداة مجانًا (لمدة 30 يومًا)،فما عليك سوى النقر لتنزيلها، ثم اتبع الخطوات المذكورة أعلاه لتطبيق العملية.
مقالات ذات صلة:
- كيف يمكنك تغيير شكل مربع التعليق في Excel؟
- كيف يمكنك تغيير تنسيقات جميع التعليقات في الخلايا دفعة واحدة في Excel؟
- كيف يمكن عرض جميع التعليقات في ورقة عمل جديدة أو في المصنف بأكمله في Excel؟
- كيف تُدرج صورة أو رسمًا داخل تعليق في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل