excel表格宏的编程实例

Excel编程实例（170例）

主要内容和特点

《ExcelVBA编程入门范例》主要是以一些基础而简短的VBA实例来对

ExcelVBA中的常用对象及其属性和方法进行讲解，包括应用程序对象、窗口、工作簿、工作表、单元格和单元格区域、图表、数据透视表、形状、控件、菜单和工具栏、帮助助手、格式化操作、文件操作、以及常用方法和函数及技巧等方面的应用示例。这些例子都比较基础，很容易理解，因而，很容易调试并得以实现，让您通过具体的实例来熟悉ExcelVBA编程。

■ 分16章共14个专题，以具体实例来对大多数常用的ExcelVBA对象进行讲解；

■ 一般而言，每个实例都很简短，用来说明使用VBA实现Excel某一功能的操作；

■ 各章内容主要是实例，即VBA代码，配以简短的说明，有些例子可能配以必要的图片，以便于理解；

■ 您可以对这些实例进行扩充或组合，以实现您想要的功能或更复杂的操作。

VBE编辑器及VBA代码输入和调试的基本知识

在学习这些实例的过程中，最好自已动手将它们输入到VBE编辑器中调试运行，来查看它们的结果。当然，您可以偷赖，将它们复制/粘贴到代码编辑窗口后，进行调试运行。下面，对VBE编辑器界面进行介绍，并对VBA代码输入和调试的基本

用EXCEL宏编程实现一种学生分班算法。

维普资讯

2 8 8月 0年 0

电脑学习

第4 期

用 E C L宏编程完学生分班工作 XE成刘青云摘要：用 E C L宏编程实现一种学生分班算法。 XE 关键词： E C L XE中图分类号： G 3 44

宏学生分班文献标识码： B文章编号： 0 2 2 2 ( o 8) 4 o 3 _ 2 10— 4 2 2 0 0 - o6 o

Dii i g S u e t n o Clse t XCE M a r o r m m i g v dn t d n s i t a ss wih E L c o Pr g a nLi n u u Qi￣ nAb t a t r e p p r o d cs a l se - ii i g ag r h wi h XC c o p o rmmi g sr c: h a e n u t c a s s d vd n lo i m t t e E EL ma r r g a c t h n. Ke wo d EXCE Ma i y r: L cd C a s s d vd n ls— i g e i i

简单的数据统计，可以通过 E—

Excel宏教程

一、 选中单个单元格 Range(“<单元格地址>“).Select

例：Range(\?选中“C9”单元格

二、 选中多个单元格

Range(“<单元格地址>:<单元格地址>[,<单元格地址>……]”).Select

例：Range(“A1:B2”).Select ?选中“A1”、“A2”、“B1”、“B2”四个连续的单元格 Range(“12:12”).Select ?选中第12行 Range(“B:B”).Select ?选中第B列

Range(“A1:A2,B7,2:2”).Select ?选中“A1”、“A2”、“B7”五个不连续的单元格和第二行 Cells.Select ?选中当前SHEET中的所有单元格

Rows(\行地址>:<行地址>\?选中整行 Columns(\列地址>:<列地址>\?选中整列

例：Rows(“2:2”). Select ?选中第2行 Rows(“2:5”). Select ?选中2到5行 Columns(\?选中A列 Columns(\?选中E到B列

三、 设置活动单元格

Range(\单元格地址>\

注：设置活动单元格 与

EXCEL 259个常用宏

宏文件集

打开全部隐藏工作表 Sub 打开全部隐藏工作表() Dim i As Integer For i = 1 To Sheets.Count Sheets(i).Visible = True Next i End Sub 循环宏 Sub 循环() AAA = Range(\

Dim i As Long Dim times As Long times = AAA

'times代表循环次数，执行前把times赋值即可(不可小于1，不可大于2147483647) For i = 1 To times Call 过滤一行

If Range(\完成标志\完成\ '如果名为'完成标志'的命名单元的值等于'

完成',则退出循环,如果一开始就等于'完成',则只执行一次循环就退出

'If Sheets(\传送参数\完成\ '如果某列出

现\完成\内容则退出循环 Next i End Sub 录制宏时调用“停止录制”工具栏 Sub 录制宏时调用停止录制工具栏()

Application.CommandBars(\E

有宏指令的数控铣床编程实例(附：普通指令程序)

1. HU.MPF
2. G54G90G17G64
3. M03S400
4. R1=45
5. MA1: G258RPL=R1
6. L467
7. IF R1==315 GOTOF MA2
8. R1=R1+90
9. GOTOB MA1
10. MA2: G258RPL=R1
11. L568
12. R1=R1-90
13. IF R1<45 GOTOF MA3
14. GOTOB MA2
15. MA3: G0Z100
16. M5
17. G258RPL=0
18. G0Y220
19. M30

L467.SPF
1. G0X43.96Y116.302
2. G0Z5
3. G1Z-8F500
4. G1X43.698Y115.339F100
5. G3X17.138Y83.156CR=23
6.

2011年软考系统集成项目管理工程师考试学习札记

1. HU.MPF

2. G54G90G17G64

3. M03S400

4. R1=45

5. MA1: G258RPL=R1

6. L467

7. IF R1==315 GOTOF MA2

8. R1=R1+90

9. GOTOB MA1

10. MA2: G258RPL=R1

11. L568

12. R1=R1-90

13. IF R1<45 GOTOF MA3

14. GOTOB MA2

15. MA3: G0Z100

16. M5

17. G258RPL=0

18. G0Y220

19. M30

L467.SPF

1. G0X43.96Y116.302

2. G0Z5

3. G1Z-8F500

4. G1X43.698Y115.339F100

5. G3X17.138Y83.156CR=23

6.

2011年软考系统集成项目管理工程师考试学习札记

1. HU.MPF

2. G54G90G17G64

3. M03S400

4. R1=45

5. MA1: G258RPL=R1

6. L467

7. IF R1==315 GOTOF MA2

8. R1=R1+90

9. GOTOB MA1

10. MA2: G258RPL=R1

11. L568

12. R1=R1-90

13. IF R1<45 GOTOF MA3

14. GOTOB MA2

15. MA3: G0Z100

16. M5

17. G258RPL=0

18. G0Y220

19. M30

L467.SPF

1. G0X43.96Y116.302

2. G0Z5

3. G1Z-8F500

4. G1X43.698Y115.339F100

5. G3X17.138Y83.156CR=23

6.

1：打开所有隐藏工作表 2：循环宏

3：录制宏时调用“停止录制”工具栏 4：高级筛选5列不重复数据至指定表 5：双击单元执行宏(工作表代码)

6：双击指定区域单元执行宏(工作表代码) 7：进入单元执行宏(工作表代码)

8：进入指定区域单元执行宏(工作表代码)

9：在多个宏中依次循环执行一个（控件按钮代码）

10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 12：根据A1单元文本隐藏/显示按钮（控件按钮代码） 13：当前单元返回按钮名称（控件按钮代码）

14：当前单元内容返回到按钮名称（控件按钮代码） 15：奇偶页分别打印

16：自动打印多工作表第一页

17：查找A列文本循环插入分页符

18：将A列最后数据行以上的所有B列图片大小调整为所在单元大小 19：返回光标所在行数

20：在A1返回当前选中单元格数量 21：返回当前工作簿中工作表数量 22：返回光标选择区域的行数和列数

1：打开所有隐藏工作表 2：循环宏

3：录制宏时调用“停止录制”工具栏 4：高级筛选5列不重复数据至指定表 5：双击单元执行宏(工作表代码)

6：双击指定区域单元执行宏(工作表代码) 7：进入单元执行宏(工作表代码)

8：进入指定区域单元执行宏(工作表代码)

9：在多个宏中依次循环执行一个（控件按钮代码）

10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 12：根据A1单元文本隐藏/显示按钮（控件按钮代码） 13：当前单元返回按钮名称（控件按钮代码）

14：当前单元内容返回到按钮名称（控件按钮代码） 15：奇偶页分别打印

16：自动打印多工作表第一页

17：查找A列文本循环插入分页符

18：将A列最后数据行以上的所有B列图片大小调整为所在单元大小 19：返回光标所在行数

20：在A1返回当前选中单元格数量 21：返回当前工作簿中工作表数量 22：返回光标选择区域的行数和列数

1：打开所有隐藏工作表 2：循环宏

3：录制宏时调用“停止录制”工具栏 4：高级筛选5列不重复数据至指定表 5：双击单元执行宏(工作表代码)

6：双击指定区域单元执行宏(工作表代码) 7：进入单元执行宏(工作表代码)

8：进入指定区域单元执行宏(工作表代码)

9：在多个宏中依次循环执行一个（控件按钮代码）

10：在两个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 11：在三个宏中依次循环执行一个并相应修改按钮名称（控件按钮代码） 12：根据A1单元文本隐藏/显示按钮（控件按钮代码） 13：当前单元返回按钮名称（控件按钮代码）

14：当前单元内容返回到按钮名称（控件按钮代码） 15：奇偶页分别打印

16：自动打印多工作表第一页

17：查找A列文本循环插入分页符

18：将A列最后数据行以上的所有B列图片大小调整为所在单元大小 19：返回光标所在行数

20：在A1返回当前选中单元格数量 21：返回当前工作簿中工作表数量 22：返回光标选择区域的行数和列数