كيفية حذف الصفوف بناءً على لون الخلفية في إكسيل؟
كيف يمكنك حذف الصفوف بأكملها بناءً على لون الخلفية؟ في هذا المثال ، أحتاج إلى حذف جميع الصفوف التي تملأ الخلايا بلون الخلفية الأزرق كما هو موضح في لقطة الشاشة التالية. مع هذه المقالة ، ستحصل على بعض الرموز لتحقيق هذه المهمة في Excel.
احذف الصفوف ذات لون الخلفية المحدد بناءً على كل خلية
احذف الصفوف ذات لون الخلفية المحدد بناءً على عمود واحد
احذف الصفوف ذات لون الخلفية المحدد بناءً على كل خلية
إذا كان لديك نطاق من البيانات مليء ببعض ألوان الخلايا بشكل عشوائي ، وتحتاج إلى حذف الصفوف التي يكون لون الخلية فيها أزرق كما هو موضح في لقطة الشاشة التالية:
لحذف هذا النوع من الصفوف ، يمكنك استخدام رمز فبا التالي ، يرجى القيام بذلك على النحو التالي:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: احذف الصفوف التي تحتوي الخلايا على لون تعبئة محدد:
Sub DeleteRows()
'Updateby Extendoffice
Dim rngCl As Range
Dim xRows As Long
Dim xCol As Long
Dim colorLg As Long
On Error Resume Next
Set rngCl = Application.InputBox _
(Prompt:="Select a cell with the background color to be deleted", _
Title:="Kutools for Excel", Type:=8)
On Error GoTo 0
If rngCl Is Nothing Then
MsgBox "User cancelled operation." & vbCrLf & _
"Processing terminated", vbInformation, "Kutools for Excel"
Exit Sub
End If
colorLg = rngCl.Interior.Color
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
For xRows = .Rows.Count To 1 Step -1
For xCol = 1 To .Columns.Count
If .Cells(xRows, xCol).Interior.Color = colorLg Then
.Rows(xRows).Delete
Exit For
End If
Next xCol
Next xRows
End With
Application.ScreenUpdating = True
End Sub
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد خلية بلون التعبئة الذي تريد حذفه ، انظر لقطة الشاشة:
4. ثم اضغط OK، وتم حذف جميع الصفوف إذا كانت الخلية بلون تعبئة محدد.
احذف الصفوف ذات لون الخلفية المحدد بناءً على عمود واحد
إذا كنت ترغب في حذف الصفوف ذات اللون المحدد استنادًا إلى عمود واحد فقط ، على سبيل المثال ، احذف الصفوف ذات اللون الأزرق في العمود A واحصل على لقطة الشاشة أدناه ، فإليك أيضًا رمز VBA يمكنه تقديم خدمة لك.
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
رمز فبا: احذف الصفوف بناءً على العمود الذي تحتوي الخلايا على لون تعبئة محدد:
Sub deleterow()
'UpdateBY Extendoffice
Dim xRg As Range, rgDel As Range
For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
If xRg.Interior.ColorIndex = 20 Then
If rgDel Is Nothing Then
Set rgDel = xRg
Else
Set rgDel = Union(rgDel, xRg)
End If
End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub
ملاحظات: في الكود أعلاه ، A2: A21 هو العمود الذي يحتوي على لون التعبئة المحدد الذي تريد حذف الصفوف بناءً عليه ، الرقم 20 in مؤشر اللون = 20 البرنامج النصي هو مؤشر اللون الذي تريد حذف الصفوف بناءً عليه. يمكنك تغييرها حسب حاجتك.
3. ثم اضغط F5 مفتاح لتشغيل هذا الرمز ، وتم حذف جميع الصفوف التي تحتوي على خلايا اللون الأزرق في العمود A مرة واحدة.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!