菜鸟也懂VBA-excle2007VBA入门教程(3)

2、 其它方法 也可以把宏指定给其它对象，如“自选图形”里的圆，艺术字

A、 打开比方，指定给艺术字的方法 把光标定位到你要指定的艺术字——>>右击——>>指定宏——>>弹出“指定宏”对话框——>>选中“输入”——>>确定

3、 修改“按钮”的名字 方法 把光标定位到按钮上——>>右击——>>编辑文字——>>修改为“输入” 四、运行宏

1、 方法一 我们先删除A1单元格里的内容——>>单击一下“输入”按钮

2、 方法二 “开发工具”选项卡——>>代码组——>>单击一下“宏”按钮——>>选中“输入”——>>单击一

下“执行”

3、 其它方法 我们在上一节课讲过，在VBE编辑器里，把光标定位到你“输入”的宏过程任何一行代码里，

运行F5，逐步运行F8

五、修改宏

1、 选中A1:D9单元格区域，录制一个给它添加边框的宏，录制的代码如下 Sub 添加边框() '

' 添加边框 Macro ' '

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

第 5 页 共 52 页

Excel 2007 VBA 教程

Selection.Borders(xlDiagonalUp).LineStyle = xlNone With Selection.Borders(xlEdgeLeft) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With

With Selection.Borders(xlEdgeTop) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With

With Selection.Borders(xlEdgeBottom) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With

With Selection.Borders(xlEdgeRight) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With

With Selection.Borders(xlInsideVertical) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With

With Selection.Borders(xlInsideHorizontal) .LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With End Sub

2、 修改后的代码 Sub 添加边框()

With Selection.Borders

.LineStyle = xlContinuous .ColorIndex = xlAutomatic .TintAndShade = 0 .Weight = xlThin End With

第 6 页 共 52 页

Excel 2007 VBA 教程

End Sub

从上面的代码可以看出，录制宏会录制出许多多余的代码出来。因此要把它们去掉，绿色是注释也把删除，它是对上边框，下边框，左边框，右边框 ，中间横线，中间的竖线一个一个处理，因此用With Selection.Borders对所有的边框 六、保存宏

1、 保存带有宏的工作簿（xlsm）如图10

A、 当我们保存带有宏的工作簿时，会弹出一个这样的提示对话框如图9往往没有接触过宏的朋友会吓一跳的，其实我们把下面这个图里的字读一次，就明白了，原来要保存为“启用宏工作簿”这个是2003版有区别的，微软公司的目的就是让用户在未打开之前提醒用户这个是带有宏的工作簿

图 9

图 10

七、保存为加载宏（xlam）如图11

1、 选择“Excel加载宏（*xlam）就会自动打开这个文件夹C:\\Documents and

Settings\\Administrator\\Application Data\\Microsoft\\AddIns，然后输入你的加载宏名

图 11

2、 加载宏的特点

A、 隐藏的

B、 一打Excel程序就会打开 3、 加载“加载宏”

A、 Office按钮——>>Excel选项——>>加载项——>>转到——>>加载项对话框——>>钩起“加载项名”前面的钩——>>确定 4、 删除加载宏

A、 2007删除加载宏比较麻烦，2010版的就改良这个，2010版直接在开始工具选项卡，有一个“加载项按钮”，那么2007怎么删除它呢？Office按钮——>>Excel选项——>>加载项——>>转到——>>加载项对话框——>>去掉“加载项名”前面的钩——>>确定

八、保存为个人宏工作簿：在我们录制宏时，有时我们可以选中“保存为个人宏工作簿”，便可以在所有的工作簿

中用，不过有个缺点，会打开个人宏工作簿，所以建议大家用“加载宏”，保存“个人宏工作簿”是对VBA新手打造的。

第 7 页 共 52 页