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

Bagaimana cara menghapus centang atau membatalkan pilihan semua kotak centang sekaligus di Excel?

Bagaimana Anda bisa menghapus centang atau membatalkan pilihan semua kotak centang sekaligus di lembar kerja seperti gambar berikut yang ditampilkan? Pada artikel ini, saya akan berbicara tentang beberapa kode cepat untuk menyelesaikannya.

doc hapus centang pada kotak centang 1

Hapus centang atau hapus centang semua kotak centang dengan kode VBA


panah gelembung kanan biru Hapus centang atau hapus centang semua kotak centang dengan kode VBA

Hapus centang atau hapus centang semua kotak centang (Kontrol Formulir):

Jika kotak centang Anda adalah kontrol formulir, Anda dapat menghapus centang sekaligus dengan kode VBA berikut:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Hapus centang atau hapus centang semua kotak centang yang dicentang (Kontrol Formulir):

Sub ClearCheckBoxes()
'Updateby Extendoffice
    Dim chkBox As Excel.CheckBox
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.CheckBoxes
            chkBox.Value = xlOff
    Next chkBox
    Application.ScreenUpdating = True
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan semua kotak centang yang telah dicentang telah dihapus centangnya sekaligus di lembar kerja aktif.


Hapus centang atau hapus centang semua kotak centang (Kontrol ActiveX):

Jika kotak centangnya adalah Kontrol ActiveX, harap terapkan kode VBA di bawah ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul Jendela.

Kode VBA: Hapus centang atau hapus centang semua kotak centang (Kontrol ActiveX):

Sub clearcheckbox()
'Updateby Extendoffcie
    Dim c As Object
    For Each c In ActiveSheet.OLEObjects
        If InStr(1, c.Name, "CheckBox") > 0 Then
            c.Object.Value = False
        End If
    Next
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan semua kotak centang telah dibatalkan pilihannya sekaligus di lembar kerja aktif.


Sisipkan beberapa kotak centang dalam pilihan sekaligus

Kutools untuk Excel's Kotak Centang Batch Insert utilitas dapat membantu Anda dengan cepat memasukkan beberapa kotak centang sekaligus. Klik untuk mengunduh Kutools for Excel!


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 (11)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
banyak terima kasih untuk kode vba ini, sangat membantu.

FYI untuk orang yang tidak membuatnya berfungsi dengan menekan F5, cukup:

tab pengembang > makro > pilih modul yang baru saja dibuat dan klik opsi > ketik karakter untuk pintasan, seperti ctrl+j atau ctrl+k.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih atas bantuan Anda dalam hal ini. Ini sangat dihargai. Namun harap diperhatikan: Ejaan SALAH DALAM KODE UNTUK LANGKAH #2. Kode VBA: Hapus centang atau hapus centang semua kotak centang (Kontrol ActiveX):
Sub kotak centang kosong ()
'Perbarui oleh Extendoffcie
Dim c Sebagai Objek
Untuk Setiap c Dalam ActiveSheet.OLEObjects
If InStr(1, c.Name, "CheckBox") > 0 Kemudian
c.Object.Value = Salah
End If
Next
End Sub

PERHATIKAN KATA "Extendoffcie" TIDAK BENAR dieja. BUKANKAH"Extendoffice"?? Pokoknya, hanya ingin meletakkannya di luar sana
Komentar ini diminimalkan oleh moderator di situs
Bagaimana jika saya ingin menggunakan tombol untuk mengaktifkan makro untuk mengosongkan kotak?
Komentar ini diminimalkan oleh moderator di situs
Hai, Ariel,
Untuk menggunakan tombol untuk mengaktifkan makro, pertama, Anda harus menyisipkan tombol dari daftar turun bawah Bentuk, lalu klik kanan tombol, pilih Tetapkan Makro dari menu konteks, lalu pilih nama makro di kotak dialog Tetapkan Makro . Kemudian klik OK, dan kode makro akan ditautkan ke tombol.
Silakan dicoba, semoga bisa membantu Anda!
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara menghapus centang hanya pada kotak dalam rentang sel tertentu di lembar aktif? Saya memiliki 3 daftar dalam satu lembar (tugas Harian/Mingguan/Bulanan) dan ingin membuat tombol "Hapus Semua" untuk setiap daftar.
Komentar ini diminimalkan oleh moderator di situs
Bantuan besar! terima kasih!
Komentar ini diminimalkan oleh moderator di situs
OMG TERIMA KASIH, SITUS INI ADALAH LIFE SAVER :)
Komentar ini diminimalkan oleh moderator di situs
Merci beaucoup d'avoir partage le code pour décocher des éléments "CheckBox", cela m'a sauvé ! :o)En effet, en codant un formulaire de saisie fait dans une feuille, je cherchais trouver un moyen de décocher les cases (en guise de réinitialisation du formulaire) et je ne trouvais pas (à part avec la méthode "Pilih" qui est, comme nous le savons tous, bannir), tout simplement car :=> la proprieté ".CheckBox" n'existe pas en propriété d'une "Worksheet" !=> l'Objet "CheckBox" ne angka pas non plus dans l'explorateur d'objets !C'est lunaire cette histoire...Alors merci énormément.Bien vous.
Komentar ini diminimalkan oleh moderator di situs
Bonjour Lindas,
Je vous en prie. Heureux que cela ajudan. Tuang pertanyaan toute, n'hésitez pas nous contacter. Lewati une bonne journée.
ketulusan,
Mandy
Komentar ini diminimalkan oleh moderator di situs
Halo,
beim öffnen der datei sollten zwei voneinander abhängige Kotak Centang1 u. Kotak Centang2 nicht aktiviert sein

Sub Pribadi CheckBox2_Click()
Jika Kotak Centang2 = Benar Maka
Kotak Centang1 = Salah
End If
End Sub
Sub Pribadi CheckBox1_Click()
Jika Kotak Centang1 = Benar Maka
Kotak Centang2 = Salah
End If
End Sub

Terima kasih atas bantuan anda
Komentar ini diminimalkan oleh moderator di situs
Halo, Siegfried
Jika Anda ingin memeriksa satu dan menonaktifkan yang lain, silakan terapkan kode di bawah ini:
Note: Kotak centang di sini Anda harus menggunakan kotak centang Kontrol ActiveX.
Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
End Sub

Silahkan dicoba, semoga bisa membantu!
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