checkbox复选框 复选框怎么复制
很多朋友对于checkbox复选框和复选框怎么复制不太懂,今天就由小编来为大家分享,希望可以帮助到大家,下面一起来看看吧!
excel复选框怎么设置checkbox复选框使用教程
今日讲解的内容是“VBA之EXCEL应用”的第十五章“ActiveX控件(ActiveX Controls)”的第10节:复选框(Check Box)的实例应用。
第十节复选框(Check Box)1在工作表窗口上添加复选框控件
要在Excel VBA中创建一个复选框,可以执行以下步骤:在“开发工具”选项卡上;单击“插入”;在ActiveX控件组中,单击复选框;
在工作表上拖动鼠标,就可以在工作表上添加一个复选框了。如下:
2修改复选框为自定义属性
为了把复选框在工作表上显示项目修正为我们需要的结果,我们可以在工作表上点击选中这个复选框,右键,点击属性,注意此时要处于“设计模式”。
会弹出下面的属性对话框,我们找到“caption”属性:
修正这个值为“确认”:
这个时候工作表窗口中复选框中显示为“确认”。
3复选框控件的实际应用
把下面代码加到工作表的私有模块中:
Private Sub CheckBox1_Click()
If CheckBox1.Value= True Then Range("D2").Value= 1
If CheckBox1.Value= False Then Range("D2").Value= 0
End Sub
代码截图:
代码讲解:
1) If CheckBox1.Value= True Then Range("D2").Value= 1假如选中了复选框那么在单元格D2中记入1
2)If CheckBox1.Value= False Then Range("D2").Value= 0假如没有选中复选框那么在单元格D2中记入0
实际运行结果(注意要退出设计模式):
今日内容回向:
1)如何在工作表中添加复选框按钮?
2)复选框按钮在工作表中如何实现和工作表单元格值关联?
复选框的效果实现
解决思路:
全选的实现:遍历所有复选框,然后设置各多选项的checked属性为true。反选的实现:遍历所有复选框,获取复选框的checked属性值,是true的话则设置为false,否则设为true,即作当前值的相反设置。
具体步骤:
代码示例:
<script>
function selectit(){
//设置变量form的值为name等于select的表单
var form=document.select
//取得触发事件的按钮的name属性值
var action=event.
for(var i=0;i<form.elements.length;i++){//遍历表单项
//将当前表单项form.elements对象简写为e
var e= form.elements
//如果当前表单项的name属性值为iTo,
//执行下一行代码。限定脚本处理的表单项范围。
if(e.name== iTo)
/*如果单击事件发生在name为selectall的按钮上,就将当前表单项的checked属性设为true(即选中),否则设置为当前设置的相反值(反选)*/
e.checked=(action==selectall)?(form.selectall.checked):(!e.checked)
}
}
</script>
<form name=select>
<INPUT type=checkbox name=selectall onclick=selectit()>全选
<INPUT type=checkbox name=Inverse onclick=selectit()>反选
<INPUT type=checkbox name=iTo value=1>1
<INPUT type=checkbox name=iTo value=2>2
<INPUT type=checkbox name=iTo value=3>3
<INPUT type=checkbox name=iTo value=4>4
<INPUT type=checkbox name=iTo value=5>5
</form>
注意:本例中能被全选或反选的复选框必须设置name为iTo。
技巧:在本例中其实不用遍历表单的每个元素,只需要遍历getElementsByName(iTo)集合就行了。
特别提示
代码运行后,选中”全选”复选框,所有name为iTo的复选框将被选中,效果如图1.4.12所示。
图1.4.12全选复选框
特别说明
本例需要掌握的内容是对表单项的遍历和复选框的选中或不选中状态的设置或获取。
checked设置或获取复选框或单选钮的状态,true为选中,false为不选中。
elements获取以源顺序排列的指定表单中所有控件的集合(不包括图像类型的控件对象)。<html>
<head>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<title>网页特效代码--复选框全选、全不选和反选的效果实现</title>
<SCRIPT LANGUAGE=JavaScript>
<!-- Begin
function checkAll(){
for(var j= 1; j<= 9; j++){
box= eval(document.checkboxform.C+ j);
if(box.checked==false) box.checked=true;
}
}
function uncheckAll(){
for(var j= 1; j<= 9; j++){
box= eval(document.checkboxform.C+ j);
if(box.checked==true) box.checked=false;
}
}
function switchAll(){
for(var j= 1; j<= 9; j++){
box= eval(document.checkboxform.C+ j);
box.checked=!box.checked;
}
}
// End-->
</script>
</head>
<body>
<form name=checkboxform>
<input type=checkbox name=C1 checked>C1<br>
<input type=checkbox name=C2 checked>C2<br>
<input type=checkbox name=C3 checked>C3<br>
<input type=checkbox name=C4 checked>C4<br>
<input type=checkbox name=C5 checked>C5<br>
<input type=checkbox name=C6 checked>C6<br>
<input type=checkbox name=C7 checked>C7<br>
<input type=checkbox name=C8 checked>C8<br>
<input type=checkbox name=C9 checked>C9<br>
<br>
<input type=button value=全部选中 onClick=checkAll()><br>
<input type=button value=全部不选 onClick=uncheckAll()><br>
<input type=button value=选择转换 onClick=switchAll()><br>
</form>
</body>
</html>
excel电子表格加入复选框后后面的checkbox怎么去掉
1、按CTRL+G定位,选择对象为对象。点击确定后全部的复选框就被自动选择,然后按DEL即可删除。
2、有一种情况是用户不是删除复选框本身,而是删除复选框中的默认的“CheckBox1”文字,那这样的操作方法是在复选框上右键,选择复选框对象-编辑然后删除掉里面的文字即可。
END,本文到此结束,如果可以帮助到大家,还望关注本站哦!