انتقل إلى المحتوى الرئيسي

كيفية حذف الصفوف بناءً على لون الخلفية في إكسيل؟

كيف يمكنك حذف الصفوف بأكملها بناءً على لون الخلفية؟ في هذا المثال ، أحتاج إلى حذف جميع الصفوف التي تملأ الخلايا بلون الخلفية الأزرق كما هو موضح في لقطة الشاشة التالية. مع هذه المقالة ، ستحصل على بعض الرموز لتحقيق هذه المهمة في Excel.

doc حذف الصفوف حسب اللون 1

احذف الصفوف ذات لون الخلفية المحدد بناءً على كل خلية

احذف الصفوف ذات لون الخلفية المحدد بناءً على عمود واحد


السهم الأزرق الحق فقاعة احذف الصفوف ذات لون الخلفية المحدد بناءً على كل خلية

إذا كان لديك نطاق من البيانات مليء ببعض ألوان الخلايا بشكل عشوائي ، وتحتاج إلى حذف الصفوف التي يكون لون الخلية فيها أزرق كما هو موضح في لقطة الشاشة التالية:

doc حذف الصفوف حسب اللون 2

لحذف هذا النوع من الصفوف ، يمكنك استخدام رمز فبا التالي ، يرجى القيام بذلك على النحو التالي:

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 مفتاح لتشغيل هذا الرمز ، وسيظهر مربع موجه لتذكيرك بتحديد خلية بلون التعبئة الذي تريد حذفه ، انظر لقطة الشاشة:

doc حذف الصفوف حسب اللون 3

4. ثم اضغط OK، وتم حذف جميع الصفوف إذا كانت الخلية بلون تعبئة محدد.


السهم الأزرق الحق فقاعة احذف الصفوف ذات لون الخلفية المحدد بناءً على عمود واحد

إذا كنت ترغب في حذف الصفوف ذات اللون المحدد استنادًا إلى عمود واحد فقط ، على سبيل المثال ، احذف الصفوف ذات اللون الأزرق في العمود A واحصل على لقطة الشاشة أدناه ، فإليك أيضًا رمز VBA يمكنه تقديم خدمة لك.

doc حذف الصفوف حسب اللون 4

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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Удаление строк с определенным цветом фона на основе одного столбца, удаляет все без разбора
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations