پرسش درخواست راهنمایی برای ثبت چک باکس در اکسل و آپشن باتن

[علیرضا بخشی]

دوستان واساتید محترم
باسلام
کمک میخواستم بنده یک یوزر فرم طراحی کردم که میخواستم در این یوزر فرم از چک باکس استفاده کنم بدین منظور که وقتی چک باکس رو تیک کردم در لیست دیتابیس من در شیت مورد نظر عدد یک رو ثبت کنه ممنون میشم راهنماییم کنین
باتشکر

[rasools13]

سلام
روی چک باس دابل کلیک کنید و از کد ذیل استفاده کنید

Private Sub CheckBox1_Click()
    If Me.CheckBox1.Value = True Then
          Sheet1.Range("A1") = 1
    Else
          Sheet1.Range("A1").Range("A1") = 0
     End If
End Sub