Private Sub CheckBox1_Click()
MsgBox "CheckBox1 үшін мәні" & CheckBox1.Value
End Sub
Private Sub CheckBox2_Click()
MsgBox " CheckBox2 үшін мәні" & CheckBox2.Value End Sub
Private Sub CheckBox3_Click()
MsgBox "CheckBox3үшінмәні" & CheckBox3.Value End Sub
Екінші жалауша үшін TripleState сипатын True деп орнатыңыз.
Үшінші жалауша үшін LinkedCell қасиетіне (байланыстырылған ұяшық) D6 мәнін орнатыңыз.
Төменде жалауша пішін басқару элементін қойып, оған макросты тағайындаңыз:
Sub CheckBox1_Click()
MsgBox "Жалауша жұмыс істейді "
End Sub
Содан кейін біз үш ActiveX CheckBox Option-Button басқару элементтерін орнатамыз.
Әр қосқыш үшін әртүрлі дизайн мәліметтерінің қасиеттерін орнатамыз (BackColor, Shadow және т.б.).
«Күйді біл» батырмасын жасаймыз. Модульдік кодты редакциялау терезесінде:
Достарыңызбен бөлісу: | 
