كيفية ضبط ارتفاع الصف تلقائيًا للخلايا المدمجة في Excel؟

في Excel، يعد ضبط ارتفاع الصفوف بسرعة ودقة أمرًا حاسمًا لتقديم بياناتك بشكل واضح. عادةً، يمكنك استخدام ميزة "التناسب التلقائي لارتفاع الصف" لضبط ارتفاع الصف تلقائيًا ليتناسب مع محتويات الخلية. ومع ذلك، عند العمل مع الخلايا المدمجة، قد تلاحظ أن خاصية التناسب التلقائي لارتفاع الصف لا تستجيب كما هو متوقع. أي أن وظيفة التناسب التلقائي في Excel تتجاهل تمامًا الخلايا المدمجة، لذلك لا يمكنك ضبط ارتفاع الصف تلقائيًا لاستيعاب المحتوى في هذه الحالات. كنتيجة لذلك، عليك عادةً ضبط ارتفاع الصف يدويًا لكل خلية مدمجة لضمان ظهور جميع المحتويات، مما يمكن أن يكون مملًا ومعرضًا للأخطاء - خاصة إذا كان لديك العديد من الخلايا المدمجة.

يقدم هذا المقال عدة طرق عملية لمساعدتك على ضبط ارتفاع الصف تلقائيًا للخلايا المدمجة بشكل فعال، مما يوفر لك الوقت ويساعد على الحفاظ على ورقة عمل مرتبة وسهلة القراءة:

ضبط ارتفاع الصف للخلايا المدمجة باستخدام كود VBA

استخدام ميزة تفريق النص والتعديل اليدوي

ضبط ارتفاع الصف للخلايا المدمجة باستخدام كود VBA

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

قبل تشغيل أي كود VBA، تذكر حفظ مصنفك كملف ممكَّن الماكرو لمنع فقدان العمل غير المحفوظ. يعتبر VBA طريقة آمنة توفرها Excel، ولكن تأكد من تمكين الماكرو وأن إعدادات الأمان تسمح بتنفيذ الماكرو على نظامك.

1. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. انقر على إدراج > وحدة، ثم انسخ والصق الكود التالي في نافذة الوحدة:

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: تفعيل تفريق النص

1. حدد الخلية(الخلايا) المدمجة التي تريد تنسيقها.
2. انتقل إلى تبويب الصفحة الرئيسية وانقر على تفريق النص ضمن مجموعة المحاذاة.

هذا سيسمح للمحتوى بالتفريق تلقائيًا إلى أسطر جديدة داخل المنطقة المدمجة.

الخطوة 2: تحقق من العرض وقم بتعديل ارتفاع الصف يدويًا إذا لزم الأمر

إذا لم يكن النص طويلًا جدًا، فقد يتناسب الآن تمامًا داخل الخلية المدمجة.

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

مقال ذو صلة:

كيفية ضبط عرض العمود تلقائيًا في Excel؟