留言与评论(共有 0 条评论) |
发布时间:2020-04-12 08:50:05
checkbox的复选框框的大小是没法改的, 但有别的方法可以尝试, 我的方法是这样子的: 先建一个Label,然后再在上面打个“√”, 接下来就去调字体大小,加粗, 最后再写点程序: Private Sub Label1_Click() If Label1.Caption = "√" Then Label1.Caption = "" Else Label1.Caption = "√" End Sub 这样子就OK了, 这法子有点土,不过管用,可以做得很大很大。
1、首先打开excel,打开一个空白文档。
2、点击菜单栏上的‘开发工具’
3、可以看到在这个工具栏里有‘复选框’控件。
4、点击选中这个控件,然后在文档里需要插入的地方,点击一下。
5、插入后,我们双击这个控件,可以进行编辑状态,可以调整长宽,还可以更改复选框的文本。
6、最后修改完毕,点击一下其他地方,就应用上修改了。我们的复选框就插入完成了。
用 下面这段代码:
Sub howmanychk()
For Each chk In ActiveSheet.CheckBoxes
If chk.Value = 1 Then j = j + 1
Next
MsgBox "共有【" & j & "】个勾选!
留言与评论(共有 0 条评论) |
全站搜索