كيف يمكنك تغيير ارتفاع الصف بناءً على قيمة الخلية في Excel؟
لتغيير ارتفاع الصف في ورقة العمل، غالبًا ما نستخدم ميزة «ارتفاع الصف» لضبط ارتفاع الصف المحدد. ولكن، إذا كانت لديك قائمة من الأرقام وترغب الآن في ضبط ارتفاع الصفوف استنادًا إلى قيم الخلايا كما يظهر في لقطة الشاشة التالية، فكيف يمكنك تنفيذ هذه المهمة في Excel؟
تغيير ارتفاع الصف استنادًا إلى قيمة الخلية باستخدام كود VBA
لا توجد طريقة مباشرة لتغيير ارتفاع عدة صفوف دفعة واحدة بناءً على قيمة الخلية، لكن باستخدام كود VBA التالي، يمكنك إنجاز هذه المهمة بأسرع وقت ممكن.
1. اضغط باستمرار علىALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. انقر فوقإدراج > وحدة نمطية، ثم الصق الكود التالي في نافذةوحدة النمطية.
كود VBA: تغيير ارتفاع الصف استنادًا إلى قيمة الخلية:
Sub rowheight()
'Updateby Extendoffice
Dim hgt As Variant
Dim WorkRng As Range
xTxt = ActiveWindow.RangeSelection.Address
Set WorkRng = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
For Each H In WorkRng
If H.Value > 15 Then
hgt = H.Value
H.EntireRow.Select
Selection.rowheight = hgt
End If
Next H
End Sub
3. بعد ذلك، اضغط علىF5 لتشغيل هذا الكود، وستظهر نافذة منبثقة لتذكيرك بتحديد الخلايا التي تريد ضبط ارتفاع الصف لها وفقًا لقيمها. انظر لقطة الشاشة:
4. ثم انقر فوقموافق، وسيتم تغيير ارتفاع الصف تلقائيًا وفقًا لقيمة الخلية كما يلي:
ملاحظة: في كود VBA أعلاه،If H.Value > 15 Then يشير إلى أنه إذا كانت قيمة الخلية أكبر من 15، فسيتم تغيير ارتفاع الصف؛ أما إذا كانت أقل من 15، فسيبقى ارتفاع الصف على قيمته الافتراضية. يمكنك تعديله حسب حاجتك.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل