excel vba变程 checkbox 用法？ excelvba复选框控件
vba如何实现checkbox 的问题
1、EXCEL界面2113创建一个按钮。
2、按钮指定一个宏，如果宏1
3、在VBA界面编辑一个用户界面，里面插入10个checkbox 框
4、如5261果用户界面不打算用确认按钮而是选中直接在A2显示的话4102代码逻辑很困难，你可以要考虑加入一1653个确认按钮。
这样代码大致就是
Private Sub CommandButton1_Click()
xuanxiang=""
if checkbox1=true then
xuanxiang=xuanxiang &"选中了版1" ''''''''''''''''''也可以是 xuanxiang=xuanxiang & checkbox1.caption（即显权示复选框1后面的文字内容）
end if
if checkbox2=true then
xuanxiang=xuanxiang &"选中了2"
end if
,,,,。。。。。。
,,,,,一直到10。。。自己慢慢写。
[A2]=xuanxiang
end sub
vba checkbox运用
展开全部
建立checkbox1数组，然后循环判断
If Check1(0).Value = 1 Then
textbox1.text=checkbox1(0).caption
ElseIf Check1(1).Value = 1 Then
textbox1.text=checkbox1(1).caption
ElseIf Check1(2).Value = 1 Then
textbox1.text=checkbox1(2).caption
ElseIf Check1(3).Value = 1 Then
textbox1.text=checkbox1(3).caption
End If
关于Excel VBA的CheckBox的问题
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Visible = True
CheckBox3.Visible = True
CheckBox4.Visible = True
CheckBox5.Visible = True
CheckBox6.Visible = False
CheckBox7.Visible = False
CheckBox8.Visible = False
Else
CheckBox2.Visible = False
CheckBox3.Visible = False
CheckBox4.Visible = False
CheckBox5.Visible = False
CheckBox6.Visible = True
CheckBox7.Visible = True
CheckBox8.Visible = True
End If
End Sub
VBA中复选框怎么用
选择控件工具栏上的第一个按钮进入编辑模式。
假设三个复选框控件的名称分别为checkbox1，checkbox2和checkbox3。
右键分别点击每个控件，选择“查看代码”，看到类似下面的函数
private sub checkbox1_click()
end sub
把下面这段代码拷贝到中间，有几个控件就做几次这样的动作，然后退出编辑模式即可。
if (checkbox1.value or checkbox2.value or checkbox3.value) = true then
range("f32").interior.color = rgb(255, 255, 255)
else
range("f32").interior.color = rgb(255, 0, 0)
end if