
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Range("BL10").Value = 1
If CheckBox1.Value = False Then Range("BL10").Value = ""
End Sub
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then Range("BL10").Value = 2
If CheckBox2.Value = False Then Range("BL10").Value = ""
End Sub
Private Sub CheckBox3_Click()
If CheckBox3.Value = True Then Range("BL10").Value = 3
If CheckBox3.Value = False Then Range("BL10").Value = ""
End Sub |
For n = 1 To ActiveSheet.OLEObjects.Count
If InStr(1, ActiveSheet.OLEObjects(n).Name, "checkbox", vbTextCompare) > 0 Then
ActiveSheet.OLEObjects(n).Object.Value = False
End If
Next
|
