Diskusi tentang Excel

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



Related

Macro Excel VBA 3616640040114478967

Post a Comment

  1. Gan,,, gimana cara supaya di combobox itu muntul kalender..

    ReplyDelete

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item