对每一个横向的复选框（如CheckBox1）的单击事件中输入：
Private Sub CheckBox1_Click()
If CheckBox1.Value = False Then
Sheet1.Range("e1") = Sheet1.Range("e1") - 1
Else
Sheet1.Range("e1") = Sheet1.Range("e1") + 1
End If
End Sub
对每一个纵向的复选框（如CheckBox6）的单击事件中输入：
Private Sub CheckBox6_Click()
If CheckBox1.Value = False Then
Sheet1.Range("a7") = Sheet1.Range("a7") - 1
Else
Sheet1.Range("a7") = Sheet1.Range("a7") + 1
End If
End Sub
即可实现。试试吧。
晕了,怎么今天一堆人问这个问题?
哪家的作业啊
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024