返回目录:excel表格制作
Ctrl+G定位,定位条件,对象,Delete.
如果是控件中的复选框,可选进入控件编辑状态,然后再定位,删除。
其实复选框的勾选状态是可以来用公式来设置的
比如某个复选框的链接单元格自是H1,可以在H1单元格中设置一个公式=IF(E1=0,TRUE,FALSE)来决定复选框的状态。
由于楼主的描述不太详细zhidao,只能回答这些了。
我跟你说一下,你看看能不能看懂,如果看不懂你再追问。
首先选中你做的第一个复选框(checkbox1),右键菜单——查看代码,在打开的vbe编辑窗口中把里面的东西都清空,然后把下面的代码粘贴进去:
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2 = True: CheckBox3 = True: CheckBox4 = True: CheckBox5 = True
CheckBox6 = True: CheckBox7 = True: CheckBox8 = True: CheckBox9 = True
CheckBox10 = True: CheckBox11 = True: CheckBox12 = True: CheckBox13 = True
CheckBox14 = True: CheckBox15 = True: CheckBox16 = True: CheckBox17 = True
CheckBox18 = True: CheckBox19 = True: CheckBox20 = True: CheckBox21 = True
CheckBox22 = True: CheckBox23 = True: CheckBox24 = True: CheckBox25 = True
CheckBox26 = True
Else
CheckBox2 = False
CheckBox3 = False: CheckBox4 = False: CheckBox5 = False: CheckBox6 = False
CheckBox7 = False: CheckBox8 = False: CheckBox9 = False: CheckBox10 = False
CheckBox11 = False: CheckBox12 = False: CheckBox13 = False: CheckBox14 = False
CheckBox15 = False: CheckBox16 = False: CheckBox17 = False: CheckBox18 = False
CheckBox19 = False: CheckBox20 = False: CheckBox21 = False: CheckBox22 = False
CheckBox23 = False: CheckBox24 = False: CheckBox25 = False: CheckBox26 = False
End If
End Sub
现在看一下这段vb代码,不难看出else上下的两段字符,等号左边的都一样,只是等号右边一个为true,一个为false。在这段代码里一共有26个复选框,你一看就明白了吧?如果你的复选框没有这么多,那么你可以直接用这段代码就可以了,反之,你的复选框比代码里面的多,那你继续在代码里面加上你剩余的复选框名字(按照代码的e799bee5baa6e997aee7ad94e59b9ee7ad94335规律添加即可)。最后将工作簿保存为启用宏的工作簿就好了。如果你的excel没有用过宏的话,在你的excel中宏是禁用的,你得到excel选项下——新人中心——信任中心设置——宏设置——勾选启用所有宏选项。这样你需要的效果就能实现了:(如图),不在知道是不是你想要的,也不知道对你有没有用,希望能对你有所帮助,我也是新手!代码是我试过的,能用,有啥问题再追吧,一起学习! 如果你还是觉得有问题,把你的文件发给我,我帮你做好发给你,我的邮箱: