rjps.net
当前位置:首页 >> ExCEl VBA ChECkBox 多个复选框 >>

ExCEl VBA ChECkBox 多个复选框

这个问题主要是用到VBA 窗体的事件. 单击checkbox事触发修改单元格内容的动作. 具体操作如下:1.在VBA编辑器中打开你的这个窗体,双击具体的一个CheckBox. 然后会进入此窗体的代码页面.系统会自动帮你建立一个checkbox的单击事件.

复选框被选中了后其值为TRUE 用循环判断哪些值是ture 记下这个checkbox的号就可以了啊

以下代码循环当前窗体上的所有控件,如果存在复选框控件,则将控件状态取反.希望对你有帮助Dim nControl as Control For Each nControl In Me.Controls If TypeName(nControl ) = "CheckBox" Then nControl .Value = Not nControl .Value

Private Sub UserForm_Initialize()For a = 1 To 5Me.Controls("ComboBox" & a).List = Array("上班", "加班", "休假")Me.Controls("ComboBox" & a).Style = fmStyleDropDownListNextEnd Sub或者:Private Sub UserForm_Initialize(

为插入的复选框控件CheckBox1添加下面的代码.Private Sub CheckBox1_Click() If CheckBox1.Value Then '如果勾选复选框就执行下一句 Sheets("Sheet1").Range("a1") = 0 'Sheet1工作的A1单元格为0 End If '如果取消勾选则不进行任何操作 End Sub

一般都不用excel作试题的,excel的主要作用是用于数据处理,如果你要做选择题的话,建议你使用asp做成网页,这样更好一点,并且做成网页也可以做成一个在线考试系统的

如果你说的是窗体控件,将这50个控件放在一个框架Frame1中,然后循环对框架中的控件(按序号)进行处理.代码修改后:(注意编号是从0开始的) Private Sub CommandButton4_Click() For i = 0 To 49 Me.Frame1(i).Value = False Next End Sub

可以先用录制宏功能,学习一下vba代码,调试的时候多用msgbox函数和 msdn的官方帮助 google 用EXCEL VBA实现------------------------------------------------------------------------------------ Sub Macro4()'' Macro1 Macro For i = 1 To 2 ActiveSheet.

1 下载附件,点击按钮 2 程序在A列创建复选框,在B列关联,复选框大小根据单元格大小 3 不明白hi我

用代码添加的控件没有事件的

网站首页 | 网站地图
All rights reserved Powered by www.rjps.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com