İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də fon rənginə əsaslanan satırları necə silmək olar?

Arka plan rənglərinə əsaslanan bütün satırları necə silə bilərsiniz? Bu nümunədə, aşağıdakı ekran görüntüsü kimi, mavi rəngli rənglərlə doldurulmuş hüceyrələri olan bütün satırları silmək lazımdır. Bu yazı ilə Excel-də bu vəzifəni yerinə yetirmək üçün bəzi kodları əldə edəcəksiniz.

doc 1 rəngli satırları silin

Hər bir hüceyrəyə əsaslanan xüsusi fon rəngli satırları silin

Bir sütuna əsaslanan xüsusi fon rəngli satırları silin


arrow mavi sağ bubble Hər bir hüceyrəyə əsaslanan xüsusi fon rəngli satırları silin

Bəzi hüceyrə rənglərini təsadüfi bir şəkildə dolduran bir sıra məlumatınız varsa və aşağıdakı ekran görünüşü kimi hüceyrənin rənginin mavi olduğu satırları silmək lazımdır:

doc 2 rəngli satırları silin

Bu növ satırları silmək üçün aşağıdakı VBA kodunu istifadə edə bilərsiniz:

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: hüceyrələrin xüsusi doldurma rəngləri olan satırları silin:

Sub DeleteRows()
'Updateby Extendoffice 20161116
    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. Və sonra basın F5 bu kodu çalıştırmak üçün düyməsini basın və silmək istədiyiniz doldurma rəngli bir hüceyrənin seçilməsini xatırlatmaq üçün bir əmr qutusu açılır, ekran görüntüsünə baxın:

doc 3 rəngli satırları silin

4. Sonra basın OK, spesifik bir dolgu rəngli hüceyrə varsa, bütün satırlar silindi.


arrow mavi sağ bubble Bir sütuna əsaslanan xüsusi fon rəngli satırları silin

Məsələn, yalnız bir sütuna əsaslanaraq xüsusi rəngli satırları silmək istəyirsinizsə, A sütununda mavi rəngli satırları silin və aşağıda göstərilən ekran görüntüsünü əldə edin, burada da VBA kodu sizə bir xeyir verə bilər.

doc 4 rəngli satırları silin

1. Basıb saxlayın ALT + F11 düymələri açmaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

2. Basın Taxmaq > Modules, və aşağıdakı kodu yapışdırın Modules Pəncərə.

VBA kodu: hüceyrələrin spesifik doldurma rənginə malik olan sütuna əsaslanan satırları silin:

Sub deleterow()
'UpdateBY Extendoffice 20161116
   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

Qeyd: Yuxarıda göstərilən kodda, A2: A21 sayıya əsaslanan satırları silmək istədiyiniz xüsusi dolgu rəngini əks etdirən sütundur 20 in ColorIndex = 20 skript, əsasən satır silmək istədiyiniz rəng indeksidir. Onları ehtiyaclarınıza dəyişə bilərsiniz.

3. Sonra basın F5 bu kodu işlətmək üçün açar və hüceyrələrə A sütununda mavi rəng olan bütün satırlar bir anda silinmişdir.



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.