Excel VBA
在excel工作表中添加复选框
2017-12-18 17:11:29

在excel中,可以插入一些表单控件,比如我们常用的复选框,即可以选择是否打勾小框框。可以在复选框上单击进行打勾或者取消打勾

这里介绍两个方法在excel工作表添加复选框。内置控件法和代码批量添加法:

1、使用excel内置的控件来添加复选框

方法是单击“开发工具”选项卡=》插入=》表单控件和ActiveX控件下面的“复选框”均可以实现添加复选框。

  

这样,我们就能添加一个复选框了。如果需要批量添加大量的复选框,这种操作显然不科学的。

2、使用VBA代码添加复选框

在模块下,添加如下代码:

Sub 添加复选框()     Application.ScreenUpdating = False     Dim rng As Range     For Each rng In Selection         With rng             With Sheet27.CheckBoxes.Add(.Left, .Top, .Width, .Height) '.Select                 .Value = xlOff             End With         End With     Next     Application.ScreenUpdating = True End Sub

然后工作表“sheet27”中,先选中需要添加复选框的单元格区域,然后运行代码,就可以批量添加复选框。

注意:代码会在选中的区域中循环添加复选框。