Excel怎么用VBA批量插入复选框？_IT百科

表格中的批量复选框

不清楚你要求加复选框的位置是窗体还是表格，这里只给你发个表格里代码：

Dim i As Long

Dim sheetCheckbox1 As CheckBox

' 表格中批量加表格控件

With ActiveSheet

For i = 1 To 10

.Rows(i).RowHeight = 25

.Range("A" &i).Select

Set sheetCheckbox1 = .CheckBoxes.Add(8.4, Selection.top + 2, 100, 18)

sheetCheckbox1.Caption = "表格控件复选框" &i

Next i

' 表格中批量加窗体控件

For i = 1 To 10

.Rows(i).RowHeight = 25

.Range("A" &i).Select

ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _

Link:=False, DisplayAsIcon:=False, _

left:=Selection.left + Selection.Width, _

top:=25 * (i - 1) + 1, _

Width:=108, _

Height:=18).Select

'没找到如何改控件的标题方法

Next i

End With

方法中的参数.CheckBoxes.Add(left, top, width, height)中分别代表控件的位置左、上、尺寸的宽、高；

方法中的参数.OLEObjects.Add(ClassType，Link，DisplayAsIcon，left，rop，width，height）相应也是有位置、宽高的几个参数，用法接近。

在 Excel 中制作调查表是常有的事，在制作调查表的过程中也需要用到复选框这个控件，或许有朋友不知道该如何调出来，如果需要用到的朋友不妨学习一下。下面是由我分享的excel 2003 添加复选框的教程，希望对你有用。

excel 2003 添加复选框的教程

添加复选框步骤1：打开EXCEL表格，点击左上角的office图标---Excel选项。

添加复选框步骤2：勾选在功能区显示”开发工具“选项卡。

excel 2003 添加复选框的教程图1

添加复选框步骤3：之后，点击”开发工具“--插入---复选框。

excel 2003 添加复选框的教程图2

添加复选框步骤4：插入后，在复选框上右键--编辑文字，即可。

excel 2003 添加复选框的教程图3EXCEL中怎样批量地处理按行排序

假定有大量的数据(数值)，需要将每一行按从大到小排序，如何 *** 作?

由于按行排序与按列排序都是只能有一个主关键字,主关键字相同时才能按次关键字排序。所以，这一问题不能用排序来解决。解决方法如下：

1、假定你的数据在A至E列，请在F1单元格输入公式：

=LARGE($A1:$E1,COLUMN(A1))

用填充柄将公式向右向下复制到相应范围。

你原有数据将按行从大到小排序出现在F至J列。如有需要可用“选择性粘贴/数值”复制到其他地方。

注：第1步的公式可根据你的实际情况(数据范围)作相应的修改。如果要从小到大排序,公式改为:=SMALL($A1:$E1,COLUMN(A1))

Excel怎么用VBA批量插入复选框？