كيف تضيف خط حدّي أسفل الصف عند تغيُّر القيمة في عمود إكسل؟
تُعد إضافة خط حدّي أسفل الصفوف عند تغيُّر القيمة في عمود ما تقنية تنسيق عملية وفعّالة بصريًّا في إكسل، إذ تحسّن وضوح البيانات وتجعل مجموعات البيانات الكبيرة أكثر سهولة في القراءة. ومن خلال إنشاء فواصل بصرية واضحة بين مجموعات القيم المتطابقة، يمكنك التعرّف بسرعة على الأقسام المختلفة وتفسير المعلومات بنظرة واحدة. ويُستخدم هذا الأسلوب غالبًا في تقارير المبيعات وقوائم الجرد وسجلات المعاملات، وفي أي حالة ترغب فيها في تسليط الضوء على مقاطع البيانات وفصلها كلما تغيّرت القيم في عمود معيّن.
إضافة خط حدّي أسفل عند تغيُّر القيمة باستخدام VBA
إضافة خط حدّي أسفل عند تغيُّر القيمة باستخدام Kutools لـ Excel
إضافة خط حدّي أسفل عند تغيُّر القيمة باستخدام VBA
لا يوفّر إكسل وظيفة مدمجة مباشرة لإضافة خط حدّي أسفل الخلية عند تغيُّر قيمتها. ومع ذلك، يمكنك تحقيق هذا التأثير بكفاءة باستخدام VBA — وهي طريقة مثالية لمجموعات البيانات الكبيرة أو عندما تحتاج إلى أتمتة لمرة واحدة أو بشكل متكرر. ومن أبرز مزايا استخدام VBA قدرته على معالجة كميات ضخمة من البيانات فورًا وتخصيص المظهر بدقة وفقًا لمتطلباتك.
لتجنب التأثير على التنسيقات الموجودة مسبقًا، نوصيك بعمل نسخة احتياطية من بياناتك قبل تشغيل الكود، خاصةً إذا كانت ورقة العمل تحتوي بالفعل على حدود مخصصة.
1. اضغط على مفاتيحAlt + F11 معًا لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. في نافذة VBA، انقر علىإدراج > وحدة نمطية، ثم الصق الكود التالي في الوحدة النمطية الفارغة.
VBA: إضافة خط حدّي أسفل عند تغيُّر القيمة
Sub AddBorderLineWhenValueChanges()
'UpdatebyExtendoffice20160918
Application.ScreenUpdating = False
Dim LastRow As Long
Dim xrg As Range
LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
For Each xrg In Range("A2:A" & LastRow)
If xrg <> xrg.Offset(1, 0) Then
Range("A" & xrg.Row & ":K" & xrg.Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
End If
Next xrg
Application.ScreenUpdating = True
End Sub
3. اضغط على مفتاحF5 أو انقر على زرتشغيللتنفيذ الكود. بعد التنفيذ، سيقوم إكسل بإضافة حد سفلي إلى الصف الأخير من كل مجموعة من القيم المتطابقة ضمن نطاق محدود (مثل A2:A).
إضافة خط حدّي أسفل عند تغيُّر القيمة باستخدام Kutools لـ Excel
يقدّم Kutools لـ Excel حلاً سريعًا وسهل الاستخدام لإدراج خط حدّي أسفل الصفوف التي تتغيّر فيها القيمة، وهو خيار مثالي إذا كنت تفضّل واجهة رسومية وتود تجنّب كتابة الكود أو تنفيذه. كما يُعدّ أداةً مفيدة بشكل خاص لأولئك الذين يديرون مجموعات بيانات متوسطة إلى كبيرة بشكل متكرر أو يسعون إلى التخصيص دون تعقيد.
بعد تثبيت Kutools لـ Excel، يمكنك تطبيق هذا التنسيق في بضع خطوات فقط. ابدأ بالنقر علىKutools > تنسيق > تمييز التغييرات في العمودلفتح مربع الحوار. في مربع حوارتمييز التغييرات في العمود، اتبع الخطوات التالية:
- حدد نطاق البيانات الذي ترغب في تنسيقه (تأكد من تضمين صف الرأس إذا رغبت في ذلك)؛
- اختر العمود الرئيسي—وهو العمود الذي سيتم مراقبته لاكتشاف التغييرات؛
- في قسم «الحد السفلي»، اختر نمط الحدود واللون المرغوبَين لتحقيق تمييز واضح؛
- بعد تحديد جميع الإعدادات، انقر على زر «موافق» لتطبيق التنسيق.
النتيجة: تُطبَّق الحدود تلقائيًّا أسفل الصفوف التي تتغيّر فيها القيمة في العمود الذي اخترته، مما يسهّل جدًّا تمييز المجموعات المنفصلة أو تسليط الضوء على نقاط التحوّل في بياناتك، كما هو موضح أدناه:
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
يوفر هذا الأسلوب وفوراتٍ كبيرة في الوقت مقارنةً بالتنسيق اليدوي، ويضمن اتساقًا تامًّا عبر ورقة العمل. وإذا أردت لاحقًا التراجع عن هذا التأثير، يمكنك ببساطة استخدام خاصية «تراجع» المدمجة في Kutools أو إعادة تطبيق التنسيق الذي تفضله.
يُحسّن إضافة خط حدّي أسفل الصفوف التي تتغيّر فيها القيمة في إكسل هيكلة البيانات وعرضها بشكل كبير. يمكنك اختيار الطريقة الأنسب لسير عملك—سواء باستخدام VBA للأتمتة أو Kutools للسهولة والتخصيص. وتُسهم كل طريقة في تحسين قابلية القراءة، ومنع الالتباس البصري، وتسهيل التحليل في مشاريع إكسل الشخصية والتعاونية على حدٍّ سواء. وإذا كنت مهتمًّا بمعرفة المزيد من حيل تنسيق إكسل أو واجهت أي تحديات، فإن مراجعةمكتبتنا الشاملة للدروس التعليميةتوفّر لك إرشادات أكثر تحديدًا.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل