كيفية ضبط ارتفاع الصف تلقائيًا للخلايا المدمجة في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل