Note: The other languages of the website are Google-translated. Back to English

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

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 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!
officetab bawah
Urutkan komentar berdasarkan
komentar (2)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Halo,
Terima kasih atas kodenya.
Dalam kasus saya, sel K4 adalah sel perhitungan dari rumus =EOMONTH(A1,0). Contoh: A1 = 01.03.2017. K4 mengambil nilai 31.03.2017. Tetapi kode VBA yang Anda usulkan tidak menyembunyikan kolom sampai saya mengklik sel K4 dan tekan Enter untuk menyegarkannya. Saya mencoba menambahkan Range("K4").calculate tetapi tidak berpengaruh. Tolonglah.
Komentar ini diminimalkan oleh moderator di situs
Saya memiliki masalah yang sama dengan Chris. Sel dengan tanggal saya tidak selalu berubah. Saya membutuhkan makro untuk berjalan terlepas dari apakah tanggal telah berubah dari bulan lalu atau sama dengan bulan lalu tanpa harus mengklik sel itu sendiri dan tekan enter untuk memicu "Ubah"
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL