Loncat ke daftar isi utama

Bagaimana cara menyembunyikan baris berdasarkan warna sel di Excel?

doc menyembunyikan baris dengan warna 1

Di lembar kerja Excel, saya memiliki daftar sel yang memiliki banyak warna berbeda, sekarang, saya perlu menyembunyikan semua baris berwarna biru muda seperti gambar berikut yang ditampilkan, bagaimana Anda bisa menangani tugas ini di Excel dengan cepat dan mudah?

Sembunyikan baris berdasarkan warna sel dengan kode VBA

Sembunyikan baris berdasarkan warna sel dengan Kutools for Excel


Sembunyikan baris berdasarkan warna sel dengan kode VBA

Untuk menyembunyikan baris berdasarkan warna latar belakang tertentu, kode VBA berikut dapat membantu Anda, lakukan seperti ini:

1. Tahan ALT + F11 kunci, lalu membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Sembunyikan baris berdasarkan warna sel:

Sub Hidebycolor()
'Updateby Extendoffice
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim I As Long
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.Columns(1).AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.Columns(1).AddressLocal
    End If
LInput:
    Set xRg = Application.InputBox("Range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "the selection is not more than 1 column", vbInformation, "Kutools for Excel"
        GoTo LInput
    End If
    On Error Resume Next
    Application.ScreenUpdating = False
    For I = 1 To xRg.Count
        If xRg.Range("A" & I).Interior.ColorIndex = 20 Then
            xRg.Range("A" & I).EntireRow.Hidden = True
        End If
    Next 'i
    Application.ScreenUpdating = True
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt muncul untuk mengingatkan Anda untuk memilih sel yang ingin Anda gunakan, lihat tangkapan layar:

doc menyembunyikan baris dengan warna 2

4. Dan kemudian klik OK tombol, semua sel berwarna biru muda telah disembunyikan sekaligus, lihat tangkapan layar:

doc menyembunyikan baris dengan warna 1

Catatan:

1. Dalam kode di atas, angka 20 dalam skrip ini Jika xRg.Range ("A" & I) .Interior.ColorIndex = 20 Kemudian adalah nomor indeks warna, Anda dapat mengubahnya sesuai kebutuhan.

2. Jika Anda tidak yakin dengan nomor indeks warna, Anda harus menerapkan kode berikut untuk mendapatkan indeks warna yang ingin Anda ketahui:

Function GetColor(r As Range) As Integer
GetColor = r.Interior.ColorIndex
End Function

Dan kemudian masukkan rumusnya: = GetColor (A2) untuk mengembalikan nomor indeks warna tertentu dari latar belakang di sel A2, Anda mengubah A2 ke yang lain sesuai kebutuhan.


Sembunyikan baris berdasarkan warna sel dengan Kutools for Excel

Jika Anda memiliki Kutools untuk Excel, Dengan yang Pilih Sel dengan Format utilitas, Anda dapat memilih sel berwarna tertentu terlebih dahulu, lalu menyembunyikannya sekaligus.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. 

Setelah menginstal Kutools untuk Excel, lakukan hal berikut:

1. Klik Kutools > Pilih > Pilih Sel dengan Format, lihat tangkapan layar:

2. di Pilih Sel dengan Format kotak dialog, lakukan operasi di bawah ini:

(1.) Klik doc menyembunyikan baris dengan warna 5tombol untuk memilih rentang data yang ingin Anda gunakan;

(2.) Kemudian klik Pilih Format Dari Sel tombol untuk memilih sel berwarna tertentu yang barisnya ingin Anda sembunyikan;

(3.) Semua atribut sel tertentu telah terdaftar ke dalam kotak daftar, harap centang saja Warna latar belakang bawah Mengisi bagian.

doc menyembunyikan baris dengan warna 4

3. Lalu klik Ok tombol, semua sel dengan warna tertentu telah dipilih sekaligus, lalu klik Beranda > dibentuk > Sembunyikan & Perlihatkan > Sembunyikan Baris, lihat tangkapan layar:

doc menyembunyikan baris dengan warna 6

4. Dan kemudian sel yang dipilih dengan warna tertentu disembunyikan, lihat tangkapan layar:

doc menyembunyikan baris dengan warna 7

Klik Unduh Gratis Kutools untuk Excel Sekarang!


Demo: Sembunyikan baris berdasarkan warna sel dengan Kutools for Excel

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Alat Produktivitas Kantor Terbaik

Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

tab kte 201905


Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible to use the code with conditional formatting? I tried the code but it only worked on standardly colored cells, not on those which got the color from a conditional formatting.
In my case, the rows should be hidden when the cell in column C is gray (colorindex = 15). But the row should be shown again, when the cell changes color to white again. Is this possible?
Thanks!
This comment was minimized by the moderator on the site
Thank you!!! I came across the macro you wrote above and had 1000s of rows to hide based on one color... your macro and directions worked wonderfully! I appreciate your help!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations