cần giúp đỡ về checkbox (1 người xem)

[kuvi1324]

e tạo một check box trong userform với code
Private Sub CheckBox1_Click()
Worksheets("Data").Cells(8, 17).Value = "Xe mô tô"
End Sub
khi click vào thì ô 8 17 của sheet data sẽ nhận giá trị là xe mô tô
làm sao khi click thêm phát nữa (bỏ chọn check box này) thì ô 8 17 nói trên mất chữ xe mô tô
thank

 

[quocphuoc88]

Private Sub CheckBox1_Click()
if CheckBox1 then
Worksheets("Data").Cells(8, 17).Value = "Xe mô tô"
else
Worksheets("Data").Cells(8, 17).Value = ""
end if
End Sub