Mengisi Cell dengan CheckBox pada UserForm

Mengetik pada cell langsung di Ms. Excel hal tersebut sudah biasa dilakukan oleh para pengguna excel namun untuk memasukan data pada cell menggunakan checkbox ini baru hal yang baru tentunya bagi mereka yang baru mengenal lebih lanjut mengenai materi VBA. Oia untuk itu saya sarankan silakan Anda belajar VBA.

Untuk membuat checkbox langkah pertama silakan Anda buat sebuah UserForm dan bagaimana caranya sudah pernah saya bahas juga jika belum paham silakan baca tulisan saya tentang

Cara Membuat UserForm

Jika sudah jelas dan paham mari kita lihat contoh userform yang sudah disisipkan Checkbox berikut ini

Untuk membuat Checkbox gunakan toolbox Checkbox kemudian klik pada UserForm maka Checkbox1 sudah terbuat dan apabila Anda ingin membuat checkbox yang kedua maka Checkbox2 akan terbuat juga begitu seterusnya berurutan.

Ok, langkah berikutnya kita akan membuat prosedur klik pada checkbox maka silakan doublek klik Checkbox1 pada userform tersebut kemudian ketikkan script VBA berikut

Private Sub CheckBox1_Click()
    If CheckBox1.Value Then
        [A1] = "Excel-id.com"
    Else
        [A1] = ""
    End If
End Sub

Penjelasan script tersebut jika checkbox1 di klik maka cell A1 bertuliskan "Excel-id.com" apabila tidak di ceklist maka cell A1 akan dikosongkan dengan kode ""

Langkah berikutnya kita akan membuat prosedure ketika userform aktif untuk userform silakan tuliskan script VBA berikut pada userform

Private Sub UserForm_Activate()
    If [A1] = "Excel-id.com" Then
        Me.CheckBox1 = True
    Else
        Me.CheckBox1 = False
    End If
End Sub

Mari kita jalankan, dan perhatikan hasil dari script yang dibuat tadi dan hasilnya adalah sebagai berikut

Gambar diatas adalah hasil apabila Chekbox1 kita ceklist maka hasilnya di cell A1 bertuliskan Excel-id.com lalu bagaimana jika tidak di klik atau diceklist?

Nah, kalau gambar yang kedua itu checkbox1 tidak di ceklist maka di cell A1 tidak ada tulisan apa-apa.

Demikian, semoga bermanfaat.

Baca Cara Membuat Checkbox Lengkap

Tweet