كيفية تغيير ارتفاع الصف بناءً على قيمة الخلية في إكسيل؟
لتغيير ارتفاع الصف في ورقة عمل ، قد يطبق معظمنا ميزة ارتفاع الصف لضبط ارتفاع الصف المحدد. ومع ذلك ، إذا كانت لديك قائمة بالأرقام ، والآن ، تريد تعيين ارتفاع الصف بناءً على قيم الخلية كما هو موضح في لقطة الشاشة التالية ، كيف يمكنك التعامل مع هذه المهمة في Excel؟
قم بتغيير ارتفاع الصف بناءً على قيمة الخلية برمز VBA
لا توجد طريقة مباشرة لتغيير ارتفاعات الصفوف المتعددة بناءً على قيمة الخلية في وقت واحد ، ولكن باستخدام رمز VBA التالي ، يمكن أن يساعدك على إنهاء هذه المهمة في أسرع وقت ممكن.
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: قم بتغيير ارتفاع الصف بناءً على قيمة الخلية:
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. ثم انقر فوق OK زر ، تم تغيير ارتفاع الصف بواسطة قيمة الخلية على النحو التالي:
ملاحظات: في رمز VBA أعلاه ، إذا كانت قيمة H.> 15 ثم يشير إلى أنه إذا كانت قيمة الخلية أكبر من 15 ، فسيتم تغيير ارتفاع الصف ، وإذا كانت قيمة الخلية أقل من 15 ، فسيظل ارتفاع الصف هو الارتفاع الافتراضي. يمكنك تغييره كما تريد.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
