كيفية ضبط ارتفاع الصف تلقائيًا للخلايا المدمجة في Excel؟
في Excel، يعد ضبط ارتفاع الصفوف بسرعة ودقة أمرًا حاسمًا لتقديم بياناتك بشكل واضح. عادةً، يمكنك استخدام ميزة "التناسب التلقائي لارتفاع الصف" لضبط ارتفاع الصف تلقائيًا ليتناسب مع محتويات الخلية. ومع ذلك، عند العمل مع الخلايا المدمجة، قد تلاحظ أن خاصية التناسب التلقائي لارتفاع الصف لا تستجيب كما هو متوقع. أي أن وظيفة التناسب التلقائي في Excel تتجاهل تمامًا الخلايا المدمجة، لذلك لا يمكنك ضبط ارتفاع الصف تلقائيًا لاستيعاب المحتوى في هذه الحالات. كنتيجة لذلك، عليك عادةً ضبط ارتفاع الصف يدويًا لكل خلية مدمجة لضمان ظهور جميع المحتويات، مما يمكن أن يكون مملًا ومعرضًا للأخطاء - خاصة إذا كان لديك العديد من الخلايا المدمجة.
يقدم هذا المقال عدة طرق عملية لمساعدتك على ضبط ارتفاع الصف تلقائيًا للخلايا المدمجة بشكل فعال، مما يوفر لك الوقت ويساعد على الحفاظ على ورقة عمل مرتبة وسهلة القراءة:
ضبط ارتفاع الصف للخلايا المدمجة باستخدام كود VBA
استخدام ميزة تفريق النص والتعديل اليدوي
ضبط ارتفاع الصف للخلايا المدمجة باستخدام كود VBA
لنفترض أن ورقة العمل الخاصة بك تحتوي على عدد من الخلايا المدمجة بمحتويات مختلفة، كما هو موضح في لقطة الشاشة أدناه. إذا كنت تريد أن تكون جميع بياناتك مرئية بالكامل دون الحاجة إلى ضبط كل صف يدويًا، يمكنك استخدام حل كود VBA لضبط ارتفاع الصف تلقائيًا بما يتناسب مع محتويات كل خلية مدمجة دفعة واحدة. هذه الطريقة مفيدة جدًا عندما يكون لديك العديد من النطاقات المدمجة في ورقة العمل، أو عندما يتم تحديث محتويات الخلايا المدمجة بشكل متكرر وترغب في تبسيط عملية الضبط.
قبل تشغيل أي كود VBA، تذكر حفظ مصنفك كملف ممكَّن الماكرو لمنع فقدان العمل غير المحفوظ. يعتبر VBA طريقة آمنة توفرها Excel، ولكن تأكد من تمكين الماكرو وأن إعدادات الأمان تسمح بتنفيذ الماكرو على نظامك.
1. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر على إدراج > وحدة، ثم انسخ والصق الكود التالي في نافذة الوحدة:
كود VBA: ضبط ارتفاع الصف تلقائيًا للخلايا المدمجة المتعددةOption Explicit
Public Sub AutoFitAll()
Call AutoFitMergedCells(Range("a1:b2"))
Call AutoFitMergedCells(Range("c4:d6"))
Call AutoFitMergedCells(Range("e1:e3"))
End Sub
Public Sub AutoFitMergedCells(oRange As Range)
Dim tHeight As Integer
Dim iPtr As Integer
Dim oldWidth As Single
Dim oldZZWidth As Single
Dim newWidth As Single
Dim newHeight As Single
With Sheets("Sheet4")
oldWidth = 0
For iPtr = 1 To oRange.Columns.Count
oldWidth = oldWidth + .Cells(1, oRange.Column + iPtr - 1).ColumnWidth
Next iPtr
oldWidth = .Cells(1, oRange.Column).ColumnWidth + .Cells(1, oRange.Column + 1).ColumnWidth
oRange.MergeCells = False
newWidth = Len(.Cells(oRange.Row, oRange.Column).Value)
oldZZWidth = .Range("ZZ1").ColumnWidth
.Range("ZZ1") = Left(.Cells(oRange.Row, oRange.Column).Value, newWidth)
.Range("ZZ1").WrapText = True
.Columns("ZZ").ColumnWidth = oldWidth
.Rows("1").EntireRow.AutoFit
newHeight = .Rows("1").RowHeight / oRange.Rows.Count
.Rows(CStr(oRange.Row) & ":" & CStr(oRange.Row + oRange.Rows.Count - 1)).RowHeight = newHeight
oRange.MergeCells = True
oRange.WrapText = True
.Range("ZZ1").ClearContents
.Range("ZZ1").ColumnWidth = oldZZWidth
End With
End Sub
ملاحظات:
(1.) إذا كنت بحاجة إلى ضبط نطاقات مدمجة إضافية، ما عليك سوى نسخ السطر Call AutoFitMergedCells(Range("a1:b2")) عدة مرات حسب الحاجة، وتحديث العنوان لكل نطاق مدمج ترغب في ضبطه تلقائيًا.
(2.) تذكر تغيير Sheet4 في البرنامج النصي ليتطابق مع اسم ورقة العمل حيث توجد الخلايا المدمجة. إذا لم تكن متأكدًا من اسم ورقة العمل، تحقق من علامات ورقة العمل في أسفل نافذة Excel.
(3.) عند تشغيل الماكرو، تأكد من عدم تضمين أي خلايا تحتوي على بيانات حرجة أو حساسة عن طريق الخطأ في النطاقات المحددة، لتجنب تغييرات التنسيق غير المتوقعة.
3. اضغط على F5 لتشغيل هذا الكود. بعد التنفيذ، سيتم ضبط جميع الخلايا المدمجة المحددة تلقائيًا لارتفاع الصف لعرض محتويات الخلايا بالكامل، كما هو موضح أدناه:
يوفر هذا الحل باستخدام VBA طريقة مريحة وأوتوماتيكية للتعامل مع تحجيم الخلايا المدمجة. ومع ذلك، فإنه يتطلب الوصول إلى تبويب المطور وإذن استخدام الماكرو - احرص على تذكر ذلك إذا كنت تعمل في بيئات يتم فيها تعطيل أو تقييد الماكرو.
استخدم ميزة تفريق النص والتعديل اليدوي
في العديد من الحالات، يمكنك الجمع بين ميزة تفريق النص مع ضبط يدوي سريع لارتفاع الصف للتأكد من ظهور جميع المحتويات بوضوح دون الاعتماد على VBA أو أدوات معقدة.
الخطوة 1: تفعيل تفريق النص
- حدد الخلية(الخلايا) المدمجة التي تريد تنسيقها.
- انتقل إلى تبويب الصفحة الرئيسية وانقر على تفريق النص ضمن مجموعة المحاذاة.
هذا سيسمح للمحتوى بالتفريق تلقائيًا إلى أسطر جديدة داخل المنطقة المدمجة.
الخطوة 2: تحقق من العرض وقم بتعديل ارتفاع الصف يدويًا إذا لزم الأمر
إذا لم يكن النص طويلًا جدًا، فقد يتناسب الآن تمامًا داخل الخلية المدمجة.
إذا كان المحتوى أطول وما زال غير مرئي بالكامل، قم بسحب حد الصف أسفل الخلية المدمجة يدويًا لزيادة ارتفاع الصف حتى يتم عرض كل المحتوى.
مقال ذو صلة:
كيفية ضبط عرض العمود تلقائيًا في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد