' 计算复选框的位置和大小
chkBoxTop = topLeftCell.Top + (rng.Height / 2) - (topLeftCell.RowHeight / 2)
chkBoxLeft = topLeftCell.Left + (rng.Width / 2) - (topLeftCell.Width / 2)
chkBoxWidth = rng.Width / 2
chkBoxHeight = rng.Height / 2
' 检查rng的值是否为"TRUE"
If rng.Value = True Then
With Sheet1.CheckBoxes.Add(Top:=chkBoxTop, Left:=chkBoxLeft, Width:=chkBoxWidth, Height:=chkBoxHeigh)
.Value = xlOn
.Caption = ""
rng.Value = Null
End With
With Sheet1.CheckBoxes.Add(Top:=chkBoxTop, Left:=chkBoxLeft, Width:=chkBoxWidth, Height:=chkBoxHeight)
.Value = xlOff
.Caption = ""
rng.Value = Null
End With
End If
Next rng
Application.ScreenUpdating = True
End Sub
执行成功后的效果如下：
目前存在问题：复选框的位置不够居中。
内容提要：文章介绍
excel
添加
复选框
的方法，通过控件命令和VBA实现
批量
添加
复选框
。对
Excel
感兴趣的朋友可加
Excel
学习交流群：284029260（www.itblw.com）
excel
添加
复选框
，然后就可以在
复选框
上单击进行打勾或者取消打勾。本文总结两种
excel
添加
复选框
的方法。
excel
添加
复选框
方法一：使用
excel
内置的控件来
添加
复选框
方法是单击“开发工具”选
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
excel
如何实现下拉框复选？
EXCEL
选择下拉框实现复选第一步：新建一个
excel
且设置数据有效性【选中X列--数据--有效性】第二步：开发工具--查看
代码
--把
代码
复制进去保存就OK了
代码
如下：Private Sub Worksheet_Change(ByVal Target As Range)' Developed by Contextures Inc.' www.contextures.c...
我用的
excel
是2013版的，其他版的应该都一样。
方法一：使用
Excel
开发工具
添加
选择文件--->选项--->自定义功能区--->选择开发工具，这时
excel
菜单栏会出现“开发工具”。
选择插入即可。
方法二：使用VBA
代码
批量
添加
复选框
按下ALT+F11组合键，打开VBE编辑器，复制以下
代码
：
Sub
excel
添加
复选框
()
Application.Scree
实现原理：
复选框
可以通过手工逐个插入，并关联相应单元格，但若要
批量
插入好几百，再逐一插入，这样的工作效率会非常低。
其实
excel
软件提供了宏功能，你可以编写一段宏然后执行，即可
批量
执行插入
复选框
的动作。
操作步骤：
1、插入模块，写入以下
代码
：开发工具选项卡—Visual Basic—插入模块
Sub
添加
复选框
()
On Error Resume Next
'注释：关闭屏幕刷新，加快运行速度。
Application.ScreenUpdating = False
Dim 单
选择’‘文件→选项’‘菜单。弹出’‘
Excel
选项’‘对话框，点击’‘快速访问工具栏→从下列位置选择命令→’‘开发工具’‘选项卡’'项。
'‘开发工具’‘选项卡列表框选择’‘控件’‘项，单击’‘
添加
’‘按钮。如图所示，设置完成点击’‘确定’'按钮。
选中单元格，如图所示。选择界面上侧快速访问工具栏，点击’‘控件→插入→表单控件→
复选框
’'图标，选取区域，右击
复选框
可以编辑文字
Word中有个非常强大的功能，那就是【查找和替换】功能。如果大家能灵活运用它80%的功能，那这些年的Word就没白学。今天，我们一起来看看它较常用的3个实用技巧，希望对你有帮助。1. 删除数字中的小数部分在制作一些特殊表格时，若表格中数据的小数部分没有实际意义，有时可以直接把表格数字中的小数部分全部删除掉，如何一次性快速删除呢？我们可以利用“查找和替换功能”快速实现。操作方法：（1）选择数字区域，...
