1、VBA 编程简化 Excel 操作的两个实例说起用 VBA 编程，很多人都认为是很困难的事情，是编程高手们的游戏。当然，这样的说法也不无道理，因为 VBA 编程需要有面向对象程序设计的基础，要求编程的人要懂得对象、事件、属性的概念和熟悉 VB 程序设计的表达方式，这些都会使人望而生畏。Excel 的“录制宏 ”功能，是 VBA 编辑应用的良好载体。结合在 DOS 里学过的一点点BASIC 语言基础，就能编写 VBA 程序，解决我们工作中的一些具体问题。例 1、制作简易工资条工资条打印是实现在工资表中每个员工工资数据前加一行表头，工资数据后加一个空行，其步骤如下:1、录制新宏。在 Excel 工
2、资表中，选择菜单上的“ 工具”、“ 宏”、“录制新宏” 命令，在弹出的“录制新宏”对话框中“宏名(M)”处填上“工资条 ”、“保存在( I )”处选择“ 当前工作簿”后，点“ 确定”见图 1。2、插入表头和空行右击工资表的第一行，即表头，选快捷菜单的“复制”命令，再右击工资表的第三行，选快捷菜单的“插入复制单元格 ”命令，在第二个人的工资数据前插入表头 ;再右击第三行，选快捷菜单的“插入”命令，插入一个空行。3、停止录制点菜单的“工具”、“ 宏”、“停止录制”命令，停止宏的寻制。4、查看录制的宏程序点菜单的“工具”、“ 宏”、“宏”命令或直接用快捷键“Alt + F8”打开“宏” 对话框，在“
3、宏名”处选择“工资条” ，点“ 编辑”打开录制的宏程序代码见图 2。5、在录制的宏程序中添加循环语句假如工资表中有 200 人。只需添加一个循环语句:For I=1 To 200Next 并将 Rows(“3:3“).Select 这条固定的语句，更改为随循环变量 I 变化的语句:Rows( I * 3 ).Select 就行了，见图 3。现在再来执行 “工资条”这个宏，200 人的工资条在瞬间就制作出来了，很有成就感吧，不觉得编程也是很有趣的事吗?例 2、取消单元格中的超级链接有时把网页上的表格复制到电子表格中后，网页中的超级链接也复制过来了，如图 4中的 A 列，稍不注意，鼠标一点上，就会
4、打开相应的链接，很烦人，要取消这些单元格中的超链接，一个一个的取消很麻烦，我们就请 VBA 来帮忙。1、录制新宏同例 1，宏名为“取消超链接”2、取消一个单元格中的超链接在图 4 所示的工作表中右击 A2 单元格，选快捷菜单中的 “超级链接”、“取消超级链接”命令。3、停止录制同例 1。4、查看录制的宏程序同例 1，如图 5。5、在录制的宏程序中添加循环语句用 Do While Loop 语句检测数据表的列数i = 1Do While Cells(1, i) “ 检测表格的行数j = j + 1j 为表格的行数Loop添加双重循环 for next 语句遍历所有单元格。修改选择语句 Range
5、(“A2”).Select 为 Cells(m, n).Select 让其随循环变量变化。见图 6执行 “取消超链接”这个宏，表格中所有单元格的超链接都被取消了。当然，要取消表格中的超链接，也可以通过另存为文本文件的方式来实现，但通过这个例子，我们掌握了检测数据表中的行、列数的一个通用方法。通过以上两例，我们体会到:通过“录制新宏”功能得到核心语句;运用 BASIC 语言的循环语句实现自动处理 ;对其中的选择语句稍加改变，使之随循环变量变化。就能解决许多电子表格中的操作问题，只要经常对录制宏得到的核心语句进行分析，遇到其中不理解的语句就借助 Office 的帮助来学习，相信你的编程能力会有很大
6、的长进。以上代码在 Office2000、Office2002 中测试通过。附:两个例子的源程序1、工资条打印源程序： Sub 工资条() 工资条打印宏 Macro 记录的宏 2005-5-12k = 2For i = 1 To 54j = i + kRows(“1:1“).SelectSelection.Copy Rows(j).Select Selection.Insert Shift:=xlDown k = k + 1 Next End Sub 2、取消超链接源程序：Sub Delete_Hyperlinks() 取消链接的宏i = 1Do While Cells(1, i) “ 检测表格的行数 j = j + 1 Loop For m = 1 To j - 1 For n = 1 To i - 1 Cells(m, n).Select Selection.Hyperlinks.DeleteNext n Next m End Sub
