Catatan: Bahasa lain di situs web diterjemahkan oleh Google. Kembali ke Bahasa Inggris
Masuk  \/ 
x
or
x
Daftar  \/ 
x

or

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.

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.


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 > 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:

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 ...
  • Super Formula Bar (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-2019 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.
kte tab 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.
  • Tingkatkan produktivitas Anda hingga 50%, dan kurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Seven · 3 years ago
    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"
  • To post as a guest, your comment is unpublished.
    Chris · 3 years ago
    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.