Loncat ke daftar isi utama

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.

doc menyembunyikan kolom berdasarkan tanggal 1

Secara otomatis menyembunyikan kolom berdasarkan tanggal tertentu dengan kode VBA

Sembunyikan kolom berdasarkan tanggal tertentu dengan Kutools for Excel


panah gelembung kanan biru 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

doc menyembunyikan kolom berdasarkan tanggal 2

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.


panah gelembung kanan biru 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:

doc menyembunyikan kolom berdasarkan tanggal 4

3. Dan kemudian klik Ok tombol, kolom tertentu yang tanggalnya kurang dari 5/16/2016 dipilih sekaligus, lihat tangkapan layar:

doc menyembunyikan kolom berdasarkan tanggal 5

4. Kemudian klik kanan salah satu tajuk kolom yang dipilih, dan pilih menyembunyikan untuk menyembunyikan kolom yang dipilih sesuai kebutuhan. Lihat tangkapan layar:

doc menyembunyikan kolom berdasarkan tanggal 6

Klik Unduh Gratis Kutools untuk Excel 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
I have the same issue as Chris. The cell with my date does not always change. I need the macro to run regardless of whether the date has changed from last month or is the same as last month without having to click on the cell itself and hit enter to trigger the "Change"
This comment was minimized by the moderator on the site
Hello,
Thanks for the code.
In my case the cell K4 is a calculation cell from the formula =EOMONTH(A1,0). Example: A1 = 01.03.2017. K4 takes the value 31.03.2017. But the VBA code that you propose does not hide the columns until I click on K4 cell and press Enter to refresh it. I tried to add Range("K4").calculate but with no effect. Help please.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations