Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menghapus baris berdasarkan warna latar belakang dalam Excel?

Bagaimanakah anda boleh memadam keseluruhan baris berdasarkan warna latar belakang? Dalam contoh ini, saya perlu memadam semua baris yang sel yang dipenuhi dengan warna latar biru seperti tangkapan skrin berikut. Dengan artikel ini, anda akan mendapat beberapa kod untuk mencapai tugas ini dalam Excel.

hapus baris baris dengan warna 1

Padamkan baris dengan warna latar belakang tertentu berdasarkan setiap sel

Padamkan baris dengan warna latar belakang tertentu berdasarkan satu lajur


anak panah gelembung kanan biru Padamkan baris dengan warna latar belakang tertentu berdasarkan setiap sel

Sekiranya anda mempunyai pelbagai data yang dipenuhi dengan beberapa warna sel secara rawak, dan anda perlu memadam baris yang warna sel berwarna biru seperti tangkapan skrin berikut:

hapus baris baris dengan warna 2

Untuk memadam baris jenis ini, anda boleh menggunakan kod VBA berikut, sila lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Tetingkap.

Kod VBA: Padam baris yang mengandungi warna mengisi spesifik:

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. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan kotak petanda akan keluar untuk mengingatkan anda memilih sel dengan warna isian yang anda mahu padam, lihat tangkapan skrin:

hapus baris baris dengan warna 3

4. Kemudian klik OK, dan semua baris telah dipadam jika sel dengan warna isian tertentu.


anak panah gelembung kanan biru Padamkan baris dengan warna latar belakang tertentu berdasarkan satu lajur

Jika anda ingin memadamkan baris dengan warna tertentu berdasarkan hanya satu lajur, contohnya, padamkan baris dengan warna biru di lajur A dan dapatkan tangkapan skrin di bawah, di sini juga kod VBA boleh memberi anda nikmat.

hapus baris baris dengan warna 4

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Klik Memasukkan > Modul, dan tampal kod berikut dalam Modul Tetingkap.

Kod VBA: Padam baris berdasarkan lajur yang mempunyai warna isi spesifik:

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

Nota: Dalam kod di atas, A2: A21 adalah lajur yang mengandungi warna isi khusus yang anda ingin padamkan baris berdasarkan pada, nombor 20 in ColorIndex = 20 skrip adalah indeks warna yang anda ingin padamkan baris berdasarkan. Anda boleh mengubahnya mengikut keperluan anda.

3. Kemudian tekan F5 kunci untuk menjalankan kod ini, dan semua baris yang mengandungi sel warna biru dalam lajur A telah dihapuskan sekali gus.


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
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.