Cara Buat Entry Data Checkbox Userform Excel

Ok, setelah beberapa lama tidak posting artikel mengenai Excel terutama VBA kali ini saya akan mencoba bagaimana coding entry data checkbox melalui userform. Caranya cukup mudah sama halnya dengan coding yang lainnya namun disini tentunya di checkbox hanya akan ada dua pilihan yaitu TRUE dan FALSE.
Oke langsung saja ini dia penampakannya




Private Sub CommandButton1_Click()
Dim Baris As Long
Baris = Worksheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Offset(1, 1).Row

With Worksheets("sheet1")
    .Cells(Baris, 2).Value = TextBox1.Value
    .Cells(Baris, 3).Value = TextBox2.Value
    .Cells(Baris, 4).Value = TextBox3.Value
End With

If CheckBox1.Value = True Then
    Cells(Baris, 5).Value = CheckBox1.Caption
End If
If CheckBox2.Value = True Then
    Cells(Baris, 6).Value = CheckBox2.Caption
End If
If CheckBox3.Value = True Then
    Cells(Baris, 7).Value = CheckBox3.Caption
End If
If CheckBox4.Value = True Then
    Cells(Baris, 8).Value = CheckBox4.Caption
End If
Call KOSONGKAN
TextBox1.SetFocus
End Sub

Sub KOSONGKAN()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
End Sub



Posting Komentar

0 Komentar

close
Video Belajar Tutorial Excel