Question

excel中多个复选框给单元格赋值问题

复选框横向纵向5个，横向纵向各一个单元格，要求横向的那个单元格等于横向复选框的选择个数，纵向的那个单元格等于纵向复选框的选择个数。
例如：（举例中"?“代表一个复选框），E1单元格里的数值等于横向选中复选框的个数，A7单元格里的数值等于纵向选中复选框的个数。跪求各位大侠帮帮小弟，小弟祝您一生平安幸福快乐，谢谢了！注：我用的复选框是vba里的控件工具箱中的复选框！如果有窗体的解决方法也可以，谢谢！小弟只有20分，当做帮帮小弟吧！
? ? ? ? ? E1
?
?
?
?
A7

若以下回答无法解决问题，邀请你更新回答

Answer 1

对每一个横向的复选框（如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
即可实现。试试吧。

追问

可是单元格如果本身有一个值而我没有选择复选框的话，那单元格的值岂不是与复选框无关？我的意思是单元格的值需要随时根据复选框的选择而变动！

追答

这个问题需要你自己来控制。如增加一个按钮来清除E1或A7的内容；或增加一个文本框和按钮配合来设置E1或A7的初值。
每个复选框中只考虑自己的消息处理最简单。
当然，也可以在复选框中对其他复选框的状态进行统计来设置E1或A7的值。
Private Sub CheckBox1_Click()
i = 0
If CheckBox1.Value = True Then i = i + 1
If CheckBox2.Value = True Then i = i + 1
If CheckBox3.Value = True Then i = i + 1
If CheckBox4.Value = True Then i = i + 1
If CheckBox5.Value = True Then i = i + 1
Sheet1.Range("e1") = i
End Sub
接着，
Private Sub CheckBox2_Click()
i = 0
If CheckBox1.Value = True Then i = i + 1
If CheckBox2.Value = True Then i = i + 1
If CheckBox3.Value = True Then i = i + 1
If CheckBox4.Value = True Then i = i + 1
If CheckBox5.Value = True Then i = i + 1
Sheet1.Range("e1") = i
End Sub
一直到CheckBox5的Click事件处理程序都一样，只是函数名字变为Private Sub CheckBox3_Click()，Private Sub CheckBox4_Click()，Private Sub CheckBox5_Click()。这样，水平复选框就可以了。纵向中形如下：
Private Sub CheckBox6_Click()
i = 0
If CheckBox6.Value = True Then i = i + 1
If CheckBox7.Value = True Then i = i + 1
If CheckBox8.Value = True Then i = i + 1
If CheckBox9.Value = True Then i = i + 1
If CheckBox10.Value = True Then i = i + 1
Sheet1.Range("a7") = i
End Sub
这次应该可以解决你的问题了。

追问

你的回答的确可以解决问题，不过代码有点多！不过非常感谢你，虽然你所说的，我也想到!

追答

那就把
i = 0
If CheckBox1.Value = True Then i = i + 1
If CheckBox2.Value = True Then i = i + 1
If CheckBox3.Value = True Then i = i + 1
If CheckBox4.Value = True Then i = i + 1
If CheckBox5.Value = True Then i = i + 1
Sheet1.Range("e1") = i
写成一个函数，在复选框的事件处理程序调用吧，可以减少代码。

Answer 2

晕了,怎么今天一堆人问这个问题?
哪家的作业啊

追问

大侠，能帮忙解决一下吗？小弟急啊！！！

追答

插入一个类模块,并将其命名为MyCheckBox
然后在其中添加如下代码
Public WithEvents ckb As MSForms.CheckBox

Private Sub ckb_Change()
If ckb Then i = 1 Else i = -1
If Replace(ckb.Name, "CheckBox", "") > "5" Then Set a = Range("e1") Else Set a = Range("a7") '假设checkbox1-5控制e1,6-10控制a7
With a '指定单元格
.Value = .Value + i
End With
End Sub

再在thisworkbook中添加如下代码
Dim co As New Collection
Private Sub Workbook_Open()
Dim myckb As MyCheckBox
For i = 1 To 10
Set myckb = New MyCheckBox
Set myckb.ckb = Sheets("sheet1").OLEObjects("CheckBox" & i).Object '假设要设置的3个checkbox在sheet1.
co.Add myckb
Next
Set myckb = Nothing
End Sub

追问

大侠啊，能不能解释一下主要函数的意义啊？感谢了哈！

追答

看帮助吧.