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.
Hapus centang atau hapus centang semua kotak centang dengan kode VBA
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
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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!