Bagaimana cara menyembunyikan kolom secara otomatis berdasarkan tanggal di Excel?
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 VBA
Untuk 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.
Note: 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 Excel
Jika 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 > Pilih > 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!
Alat Produktivitas Kantor Terbaik
Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%
- Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
- Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
- Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
- Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
- Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
- Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
- Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
- Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
- Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
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!
