كيفية حذف الصفوف بناءً على لون الخلفية في إكسيل؟
كيف يمكنك حذف الصفوف بأكملها بناءً على لون الخلفية؟ في هذا المثال ، أحتاج إلى حذف جميع الصفوف التي تملأ الخلايا بلون الخلفية الأزرق كما هو موضح في لقطة الشاشة التالية. مع هذه المقالة ، ستحصل على بعض الرموز لتحقيق هذه المهمة في 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 مرة واحدة.
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
