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

2024-12-04 12:48:52

推荐回答（2个）

回答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
即可实现。试试吧。

回答2：

你的复选框是窗体控件还是vba控件工具箱里的控件?
2者的处理方法是不同的.