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

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.


Artikel terkait:


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 (26)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
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?
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
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?
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.
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
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
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
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.
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.
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!
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
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.
Komentar ini diminimalkan oleh moderator di situs
Hai Mei,
Maaf saya tidak mengerti maksud Anda.
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.
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.
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.
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.
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.
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
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?
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
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.
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"
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
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....
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
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