Bagaimana cara menyembunyikan baris berdasarkan warna sel di Excel?
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:
4. Dan kemudian klik OK tombol, semua sel berwarna biru muda telah disembunyikan sekaligus, lihat tangkapan layar:
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 tombol 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.
3. Lalu klik Ok tombol, semua sel dengan warna tertentu telah dipilih sekaligus, lalu klik Beranda > dibentuk > Sembunyikan & Perlihatkan > Sembunyikan Baris, lihat tangkapan layar:
4. Dan kemudian sel yang dipilih dengan warna tertentu disembunyikan, lihat tangkapan layar:
Klik Unduh Gratis Kutools untuk Excel Sekarang!
Demo: Sembunyikan baris berdasarkan warna sel dengan Kutools for Excel
Alat Produktivitas Kantor Terbaik
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 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!