资源描述
一、 开发工具菜单
插入复选框
1.点击Excel左上角的图标(如图一),在弹出的窗体内点击“Excel选项”会弹出“Excel选项”窗体。
图一
2.在窗体内的“常用”选择项卡下,将“在功能区显示“开发工具”选项卡”选项勾中。点击“确定”按钮
图二
3.在Excel菜单栏处会显示出“开发工具”菜单
点击“开发工具——插入”会弹出一个控件选择框。
图三
在控件框内选择要插入控件,在Excel表内画出即可。
4.修改ActiveX控件属性,在Excel内选中ActiveX控件 ,点击菜单内的“属性”会弹出相应控件的“属性窗体”,在窗体内可对控件的属性进行调整。
二、 VBA的使用
录制宏
1. 新建sheet1,录入工资信息
2. 在word选项内添加开发工具菜单。
3. 选中标题列A1,点击 开发工具——录制宏
4. 在弹出的录制新宏内 维护宏名称、执行快捷键操作
注意,快捷键只能是 Ctrl + 英文字母
5. 录制新宏维护好,确定保存后。
6. 在执行操作前,要先点击 开发工具—— 使用相对引用。显示如下图所示的选中 浅黄色背景
7. 选中 A1行复制,再选中A3行,执行 复制单元格操作
选中A3单元格,点击 开发工具——停步录制 完成录制宏操作。
8. 点击 开发工具——宏,打开宏查看页面,可以查看到刚录制完成的宏“宏4)”
9. 选中录制的宏,点击 执行,在下面列自动添加1行标题栏
10. 批量录制宏操作
11. 打开宏查看页面,选中宏,点击编辑打开 VBA代码页面
12. 在VBA代码编辑页面录入批量复制代码保存(下面代码红色标识)
Sub 宏4()
Dim i
For i = 1 To 15
'15 是表示执行15次复制操作(要根据sheet表内容进行判断,例如我建了16行数据,去除第1列已有标题剩下15列需要添加标题列所以这里写15表明要执行15次)
' 宏4 宏
'
'
ActiveCell.Rows("1:1").EntireRow.Select
Selection.Copy
ActiveCell.Offset(2, 0).Rows("1:1").EntireRow.Select
Selection.Insert Shift:=xlDown
ActiveCell.Select
Next
End Sub
13. 保存关闭代码页面。
14. 在sheet内,选中标题列A1(将之前执行的几列删除除,不然会出现重复标题列)
打开宏页面,选中要宏,点击 执行 即可一次批量完成操作
展开阅读全文