Bagaimana cara membuat satu kotak centang untuk dipilih dalam sekelompok kotak centang di Excel?
Seperti gambar di bawah ini yang ditunjukkan, untuk sekelompok kotak centang yang terdaftar di baris 2, ketika memilih atau hanya mencentang satu kotak centang, kotak centang lainnya akan dinonaktifkan. Bagaimana cara mencapainya? Kode VBA dalam artikel ini dapat membantu Anda.
Hanya buat satu kotak centang untuk dipilih dengan kode VBA
Hanya buat satu kotak centang untuk dipilih dengan kode VBA
Anda dapat menjalankan kode VBA di bawah ini untuk hanya memilih satu kotak centang di grup kotak centang per waktu. Silakan lakukan sebagai berikut.
1. Pertama, harap masukkan kotak centang yang Anda butuhkan. Di sini, Anda harus memasukkan Kotak centang Kontrol ActiveX seperti gambar berikut yang ditampilkan:
2. Kemudian tekan lain + Tombol F11 secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
3. Dalam pembukaan Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul Kelas.
4. Ubah nama kelas menjadi ClSchk dalam (Nama) kotak Properties panel, lalu salin dan tempel kode VBA di bawah ini ke file Kode jendela. Lihat tangkapan layar:
Kode VBA 1: Hanya pilih satu kotak centang setiap kali
Option Explicit
Public WithEvents Chk As MSForms.CheckBox
Private Sub Chk_Click()
Call SelOneCheckBox(Chk)
End Sub
Sub SelOneCheckBox(Target As Object)
Dim xObj As Object
Dim I As String
Dim n As Integer
If Target.Object.Value = True Then
I = Right(Target.Name, Len(Target.Name) - 8)
For n = 1 To ActiveSheet.OLEObjects.Count
If n <> Int(I) Then
Set xObj = ActiveSheet.OLEObjects.Item(n)
xObj.Object.Value = False
xObj.Object.Enabled = False
End If
Next
Else
I = Right(Target.Name, Len(Target.Name) - 8)
For n = 1 To ActiveSheet.OLEObjects.Count
If n <> Int(I) Then
Set xObj = ActiveSheet.OLEObjects.Item(n)
xObj.Object.Enabled = True
End If
Next
End If
End Sub
5. Sekarang klik Menyisipkan > Modul, lalu salin dan tempel kode VBA di bawah ini ke file Modul jendela.
Kode VBA 2: Hanya pilih satu kotak centang setiap kali
Dim xCollection As New Collection
Public Sub ClsChk_Init()
Dim xSht As Worksheet
Dim xObj As Object
Dim xChk As ClsChk
Set xSht = ActiveSheet
Set xCollection = Nothing
For Each xObj In xSht.OLEObjects
If xObj.Name Like "CheckBox**" Then
Set xChk = New ClsChk
Set xChk.Chk = CallByName(xSht, xObj.Name, VbGet)
xCollection.Add xChk
End If
Next
Set xChk = Nothing
End Sub
6. tekan F5 kunci untuk menjalankan kode.
Mulai sekarang, saat mencentang salah satu kotak centang di lembar kerja, kotak centang lainnya akan dinonaktifkan secara otomatis, dan Anda dapat menghapus centang untuk mengaktifkan kembali semua kotak centang.
Note: Jika kotak centang baru ditambahkan ke grup kotak centang, jalankan kembali kode VBA untuk mengaktifkan semua kotak centang lagi. Menghapus kotak centang dari grup kotak centang perlu menjalankan kembali kode juga.
Rartikel gembira:
- Bagaimana cara memfilter data berdasarkan kotak centang di Excel?
- Bagaimana cara menyembunyikan kotak centang saat baris disembunyikan di Excel?
- Bagaimana cara menyorot sel atau baris dengan kotak centang di Excel?
- Bagaimana cara membuat daftar drop-down dengan beberapa kotak centang di Excel?
- Bagaimana cara memasukkan cap tanggal ke dalam sel jika mencentang kotak centang di 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!