Misalkan, saya memiliki berbagai data di lembar kerja, sekarang, saya ingin menyembunyikan kolom berdasarkan tanggal tertentu secara otomatis. Misalnya, ketika saya memasukkan tanggal 5/16/2016 di sel, saya ingin menyembunyikan kolom yang tanggalnya kurang dari tanggal spesifik ini segera seperti gambar berikut yang ditampilkan. Artikel ini akan memperkenalkan beberapa trik untuk mengatasinya.
Secara otomatis menyembunyikan kolom berdasarkan tanggal tertentu dengan kode VBA
Sembunyikan kolom berdasarkan tanggal tertentu dengan Kutools for Excel
Secara otomatis menyembunyikan kolom berdasarkan tanggal tertentu dengan kode VBAUntuk menyelesaikan tugas ini, kode VBA berikut dapat membantu Anda, lakukan hal berikut:
1. Pilih tab lembar yang ingin Anda sembunyikan berdasarkan tanggal, dan klik kanan untuk memilih Lihat kode dari menu konteks untuk pergi ke Microsoft Visual Basic untuk Aplikasi jendela, lalu salin dan tempel kode berikut ke dalam Modul:
Kode VBA: Secara otomatis menyembunyikan kolom berdasarkan tanggal tertentu:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
Dim xCell As Range
If Target.Address <> Range("K4").Address Then Exit Sub
Application.ScreenUpdating = False
For Each xCell In Range("A1:I1")
xCell.EntireColumn.Hidden = (xCell.Value < Target.Value)
Next
Application.ScreenUpdating = True
End Sub
2. Kemudian simpan dan tutup kode ini, kembali ke lembar kerja, dan sekarang, saat Anda memasukkan tanggal ke dalam sel K4, kolom dengan tanggal kurang dari tanggal tertentu ini akan disembunyikan secara otomatis.
Catatan: Pada kode di atas, K4 adalah sel tanggal tertentu yang ingin Anda sembunyikan berdasarkan kolom, A1: I1 adalah sel baris berisi tanggal yang Anda gunakan.
Sembunyikan kolom berdasarkan tanggal tertentu dengan Kutools for ExcelJika Anda tidak terbiasa dengan kodenya, berikut adalah alat praktis-Kutools untuk Excel, Dengan yang Pilih Sel Spesifik utilitas, Anda dapat menyelesaikan pekerjaan ini dengan mudah.
| 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. Pilih header tanggal, dan klik Kutools > memilih > Pilih Sel Spesifik, lihat tangkapan layar:
2. Di muncul keluar Pilih Sel Spesifik kotak dialog, pilih Seluruh kolom dari Tipe pilihan, lalu pilih kriteria, seperti Kurang dari dari Tipe khusus daftar drop-down, dan masukkan tanggal ke dalam kotak teks di samping yang ingin Anda sembunyikan berdasarkan kolom, lihat tangkapan layar:
3. Dan kemudian klik Ok tombol, kolom tertentu yang tanggalnya kurang dari 5/16/2016 dipilih sekaligus, lihat tangkapan layar:
4. Kemudian klik kanan salah satu tajuk kolom yang dipilih, dan pilih menyembunyikan untuk menyembunyikan kolom yang dipilih sesuai kebutuhan. Lihat tangkapan layar:
Klik Unduh Gratis Kutools untuk Excel Sekarang!
