Bagaimana cara menggunakan kotak centang untuk menyembunyikan / menampilkan baris atau kolom di Excel?

Misalkan Anda perlu menggunakan kotak centang untuk menyembunyikan atau menampilkan baris atau kolom tertentu. Misalnya, ketika kotak centang Kontrol X Aktif dicentang, baris atau kolom tertentu ditampilkan, jika tidak, mereka akan disembunyikan. Artikel ini menunjukkan kepada Anda metode cara menggunakan kotak centang untuk menyembunyikan / menampilkan baris atau kolom di Excel dengan detail.

Gunakan kotak centang untuk menyembunyikan / menampilkan baris atau kolom dengan kode VBA

Gunakan kotak centang untuk menyembunyikan / menampilkan baris atau kolom dengan kode VBA

Kode VBA berikut dapat membantu Anda menyembunyikan / menampilkan baris atau kolom tertentu dengan kotak centang.

1. Setelah memasukkan kotak centang Kontrol X Aktif ke lembar kerja, klik kanan pada kotak centang lalu pilih Lihat kode dari menu klik kanan. Lihat tangkapan layar:

2. Dalam Microsoft Visual Basic untuk Aplikasi jendela, salin dan tempel kode VBA berikut ke jendela Kode.

Kode VBA: Gunakan kotak centang untuk menyembunyikan / menampilkan baris atau kolom

Private Sub CheckBox1_Click()
    [C:D].EntireColumn.Hidden = Not CheckBox1
End Sub

Catatan:

1. Dalam kode VBA, [CD]. Seluruh kolom artinya kolom C dan D akan disembunyikan atau ditampilkan dengan mencentang atau menghapus centang pada kotak yang sesuai.

2. Untuk menyembunyikan atau menampilkan baris tertentu seperti baris 6: 9, harap ubah [CD]. Seluruh kolom untuk [6: 9]. Seluruh baris dalam kode VBA.

3. tekan lain + Q tombol secara bersamaan untuk menutup Microsoft Visual Basic untuk Aplikasi jendela.

4. Sekarang matikan Mode Desain bawah Pengembang tab seperti gambar di bawah ini yang ditampilkan:

Mulai sekarang, saat kotak centang dicentang, baris atau kolom yang ditentukan akan ditampilkan. Jika tidak dicentang, baris atau kolom tertentu disembunyikan.

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.

Read More ... Download Gratis... Membeli...

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!

Read More ... Download Gratis... Membeli...

komentar (26)

Belum ada peringkat. Jadilah yang pertama memberi peringkat!

Wayne Bailey

tentang 5 tahun lalu

#19936

Komentar ini diminimalkan oleh moderator di situs

Apakah ada cara untuk menggunakan "Gunakan kotak centang untuk menyembunyikan/memperlihatkan baris atau kolom dengan kode VBA" pada lembar kerja yang dilindungi?

membalas

Pieter Ramaut

tentang 5 tahun lalu

#21920

Komentar ini diminimalkan oleh moderator di situs

@Wayne:

Sub Pribadi CheckBox1_Click()
ActiveSheet.Unprotect Password:="xxxxx"
Baris("284:351").EntireRow.Hidden = Bukan Kotak Centang1
ActiveSheet.Protect Password:="xxxx"
End Sub

membalas

Kol

tentang 4 tahun lalu

#24379

Komentar ini diminimalkan oleh moderator di situs

Sepertinya kode ini hanya akan berjalan satu arah, yaitu hanya menyembunyikan dan tidak menyembunyikannya saat diklik. Apakah ada cara untuk memperbaiki ini?

membalas

salam kenal Kol

tentang 4 tahun lalu

#24380

Komentar ini diminimalkan oleh moderator di situs

Kami memiliki masalah yang sama tetapi saya menemukan bahwa kami menggunakan Kontrol Formulir dan bukan Kontrol ActiveX. Kode berfungsi sempurna di tombol Kotak Centang Kontrol ActiveX. Matikan saja Design Mode agar bisa klik centang Checkbox.

membalas

Salam Kent Kol

tentang 4 tahun lalu

#24381

Komentar ini diminimalkan oleh moderator di situs

Kami memiliki masalah yang sama tetapi menemukan cara untuk membuatnya bekerja. Harap gunakan kotak centang Kontrol ActiveX dan bukan di kotak centang Kontrol Formulir. Kode berfungsi sempurna dengan kotak centang ActiveX.

Sub Pribadi CheckBox1_Click()
[C:D].EntireColumn.Hidden = Bukan Kotak Centang1
End Sub

membalas

Laporan

tentang 3 tahun lalu

#28132

Komentar ini diminimalkan oleh moderator di situs

Halo,

Saya mencoba menggunakan kode ini untuk menyembunyikan/menampilkan pada lembar terpisah dari kotak centang. Apa yang harus saya tambahkan untuk membuat ini berfungsi? Terima kasih sebelumnya.

Sub Pribadi CheckBox1_Click()
[C:D].EntireColumn.Hidden = Bukan Kotak Centang1
End Sub

membalas

kristal Ed

tentang 3 tahun lalu

#28133

Komentar ini diminimalkan oleh moderator di situs

Hari baik,
Seperti kode berikut yang ditampilkan, silakan ganti "Sheet4" dengan nama lembar terpisah Anda.

Sub Pribadi CheckBox1_Click()
[Sheet4!C:D].EntireColumn.Hidden = Bukan Kotak Centang1
End Sub

membalas

Laporan

Lou

tentang 3 tahun lalu

#29360

Komentar ini diminimalkan oleh moderator di situs

Hai,

Hai, saya telah melakukan kodenya, ini berfungsi dengan baik tetapi ketika saya mencoba membuat yang sama di lebih dari satu kotak centang pada lembar yang sama mereka bekerja 'bersama', hanya menyembunyikan atau memperlihatkan baris jika ketiga kotak centang dipilih.
Saya mencoba membuat ketiga kotak centang ini bekerja secara independen satu sama lain. Dan biarkan pengguna menandai hanya satu kotak untuk satu waktu.

membalas

kristal Lou

tentang 3 tahun lalu

#29361

Komentar ini diminimalkan oleh moderator di situs

Hai Lou,
Pastikan kotak centang yang Anda buat adalah kotak centang Kontrol ActiveX. Kotak centang ini berfungsi secara independen di lembar kerja Anda.
Terima kasih atas komentar Anda.

membalas

Laporan

Therese

tentang 3 tahun lalu

#30984

Komentar ini diminimalkan oleh moderator di situs

Halo,

Apakah ada cara untuk menyembunyikan hanya satu baris. Jika saya menempatkan 6:9 semua baris disembunyikan, tetapi jika saya hanya menempatkan 6, itu keluar sebagai kesalahan. Akan menghargai bantuan Anda, terima kasih!

membalas

kristal Therese

tentang 3 tahun lalu

#30985

Komentar ini diminimalkan oleh moderator di situs

Hai,
Silakan ubah baris kedua dalam kode menjadi:
[6:6].EntireRow.Hidden = Bukan Kotak Centang1.
Terima kasih atas komentar anda

membalas

Laporan

mungkin

tentang 3 tahun lalu

#31355

Komentar ini diminimalkan oleh moderator di situs

Saya mencoba untuk menyembunyikan tiga peran pertama tetapi tidak berhasil. Bagaimana saya bisa melakukannya, saya tahu orang yang mengirimi saya file itu ingin tahu keahlian saya, saya bisa menyelesaikannya atau tidak.

membalas

kristal mungkin

tentang 3 tahun lalu

#31356

Komentar ini diminimalkan oleh moderator di situs

Hai Mei,
Maaf saya tidak mengerti maksud Anda.

membalas

Laporan

angela

tentang 3 tahun lalu

#31530

Komentar ini diminimalkan oleh moderator di situs

Itu berhasil, tetapi kemudian ketika saya menyimpan file, dan membukanya kembali tidak berfungsi. Saya mencoba menyimpannya sebagai lembar Excel Makro dan sebagai buku kerja biasa. Apa yang telah saya lakukan salah? Saya ingin memberikannya kepada orang lain untuk digunakan dan tidak ingin mereka bingung.

membalas

kristal angela

tentang 2 tahun lalu

#31531

Komentar ini diminimalkan oleh moderator di situs

Hai angela,Setelah menambahkan kode ke dalam buku kerja, silakan klik File > Simpan sebagai, pilih tempat untuk menyimpan file, di kotak dialog Save As, pilih Excel Macro-Enabled Workbook (*.xlsm) dari Save as type drop-down , dan terakhir klik Simpan. Kemudian kirim buku kerja Excel Macro-Enabled ini ke orang lain.

membalas

Laporan

Maggie

tentang 2 tahun lalu

#32767

Komentar ini diminimalkan oleh moderator di situs

Sangat berguna, tetapi bagaimana saya bisa menggunakannya untuk menyembunyikan hanya sebagian dari spreadsheet? Maksud saya misalnya sel B2:B11, bagaimana menggabungkan kedua fungsi itu? Terima kasih.

membalas

Eric

sekitar 1 tahun yang lalu

#35115

Komentar ini diminimalkan oleh moderator di situs

Bagaimana jika saya ingin menggunakan 3 kotak centang yang berbeda dan ingin mereka masing-masing beralih menyembunyikan grup baris yang berbeda? Saya telah mencoba dan melihat ke mana-mana. Ketika saya mencoba untuk mengubah kode ini, kotak centang tampaknya saling mengganggu.

membalas

etb1025

sekitar 1 tahun yang lalu

#35116

Komentar ini diminimalkan oleh moderator di situs

membalas

Laporan

Welington Mesquita

sekitar 5 bulan yang lalu

#39373

Komentar ini diminimalkan oleh moderator di situs

Kode ini tidak benar, tetapi tidak dapat dijalankan kembali saat dihapus.

Alguém pode saling melengkapi? Preciso de um código para ocultar dan reexibir colunas indicadas.

Sub Pribadi CheckBox1_Click()
[C:D].EntireColumn.Hidden = Bukan Kotak Centang1
End Sub

Terima kasih

membalas

kristal Welington Mesquita

sekitar 5 bulan yang lalu

#39441

Komentar ini diminimalkan oleh moderator di situs

Hai Welington Mesquita
Kode VBA ini dapat mencapai:
Ketika checkbox1 dicentang, kolom C:D ditampilkan;
Jika tidak dicentang, kolom C:D disembunyikan.
Kode berfungsi dengan baik dalam kasus saya. Versi Excel mana yang Anda gunakan?

membalas

Laporan

Welington Mesquita

sekitar 5 bulan yang lalu

#39398

Komentar ini diminimalkan oleh moderator di situs

Good morning!
Espero que todos estejam bem!

Tenho uma situação onde preciso ocultar / reexibir a coluna utilizando o Kontrol ActiveX quando solecionado o item.

Contoh: Tenho coluna com os nomes: Planejado, Realizado, Análise Vertical, Análise Vertical, Variação (R$) e Variação (%), no entanto, que poder selecionar individual as colunas intercalando se necessário. Selecionar somente a coluna Realizado e Variação, mesmo não estando na sequencia.

Dari tingkat yang lebih tinggi,
Wales

membalas

kristal Welington Mesquita

sekitar 5 bulan yang lalu

#39445

Komentar ini diminimalkan oleh moderator di situs

Hai,
Maaf saya tidak mengerti maksud anda. Maukah Anda memberikan tangkapan layar data Anda?
Anda mungkin perlu melampirkan tangkapan layar atau file sampel untuk menjelaskan masalah yang Anda temui dengan lebih jelas.

membalas

Laporan

Welington Mesquita

sekitar 5 bulan yang lalu

#39402

Komentar ini diminimalkan oleh moderator di situs

Tidak ada hubungan langsung?
Contoh: A e C

Situasi ini adalah rangkaian penerapan yang harus dilakukan untuk A e C ?

"Sub Centang1_Klik privada()
[C:D].EntireColumn.Hidden = Tidak ada Kotak Centang1
Akhiri Sub"

membalas

kristal Welington Mesquita

sekitar 5 bulan yang lalu

#39446

Komentar ini diminimalkan oleh moderator di situs

Hai,
Kode VBA berikut dapat membantu Anda. Ayo cobalah.

Private Sub CheckBox1_Click()
'Updated by Extendoffice 20220810
    [C:C, A:A].EntireColumn.Hidden = Not CheckBox1
End Sub

membalas

Laporan

Mawar

sekitar 2 bulan yang lalu

#41159

Komentar ini diminimalkan oleh moderator di situs

Bei mir werden die Zellen nicht ausgeblendet, wenn das Controllkästchen wieder in aktiv ist.

Mein Ziel adalah salah satu dari fitur Kontrol Kontrol Zeile 7 yang digabungkan dan ketika Haken digunakan untuk membedakan Zeile 47 dengan campuran yang lebih baik.
Hilfe....

membalas

kristal Mawar

sekitar 2 bulan yang lalu

#41471

Komentar ini diminimalkan oleh moderator di situs

Hai Rose,
Kode VBA berikut dapat membantu.

Private Sub CheckBox1_Click()
[47:47].EntireRow.Hidden = Not CheckBox1
End Sub

membalas

Laporan

Belum ada komentar yang diposting di sini

Tinggalkan komentar anda

Posting sebagai Tamu

Nama (Wajib)

Email (Diperlukan)

Beri peringkat pos ini:

ulang

0 Karakter

Saya setuju dengan syarat dan ketentuan