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