返回目录:excel表格制作
1:在第一个单元格插入复选框后拖动e69da5e887aa7a686964616f337复制。
2:如果单元格区域不规则可以用下面代码:
Private Sub AddCheckBoxesInRange()
On Error Resume Next
Dim cell As Range
Dim CurrentRange As Range
Set CurrentRange = Selection
CurrentRange.NumberFormatLocal = ";;;"
Application.ScreenUpdating = False
For Each cell In CurrentRange
ActiveSheet.CheckBoxes.Add(cell.Left, cell.Top, cell.Height, cell.Height).Select
With Selection
.Value = xlOff
.LinkedCell = cell.Address
.Display3DShading = False
.Characters.Text = ""
End With
Next
CurrentRange.Select
Application.ScreenUpdating = True
Set cell = Nothing
End Sub
我跟你说一下,你看看能不能看懂,如果看不懂你再追问。
首先选中你做的第一个复选框(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个复选框,你一看就明白了吧?如果你的复选框没有这么多,那么你可以直接用这段代码就可以了,反之,你的复选框比代码里面的多,那你继续在代码里面加上你剩余的复选框名字(按照代码的规律添加即可)。最后将工作簿保存为启用宏的工作簿就好了。如果你的excel没有用过宏的话,在你的excel中宏是禁用的,你得到excel选项下——新人中心——信任中心设置——宏设置——勾选启用所有宏选项。这样你需要的效果就能实现了:(如图),不在知道是不是你想要的,也不知道对你7a64e4b893e5b19e335有没有用,希望能对你有所帮助,我也是新手!代码是我试过的,能用,有啥问题再追吧,一起学习! 如果你还是觉得有问题,把你的文件发给我,我帮你做好发给你,我的邮箱:
发你的文件来,
这种是需要写代码的
其实复选框的勾选状态是可以用公式来设置zd的
比如某个复选框的链接单元格是H1,可以在H1单元格中内设置一个公式=IF(E1=0,TRUE,FALSE)来决定复选框的状态。
由于楼主的描述不太详容细,只能回答这些了。