vba编程简化excel操作两个实例

《vba编程简化excel操作两个实例》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA编程简化Excel操作的两个实例说起用VBA编程，很多人都认为是很困难的事情，是编程高手们的游戏。当然，这样的说法也不无道理，因为VBA编程需要有面向对象程序设计的基础，要求编程的人要懂得对象、事件、属性的概念和熟悉VB程序设计的表达方式，这些都会使人望而生畏。　　Excel的“录制宏”功能，是VBA编辑应用的良好载体。结合在DOS里学过的一点点BASIC语言基础，就能编写VBA程序，解决我们工作中的一些具体问题。　　例1、制作简易工资条　　工资条打印是实现在工资表中每个员工工资数据前加一行表头，工资数据后加一个空行，其步骤如下:　

2、　1、录制新宏。　　在Excel工资表中，选择菜单上的“工具”、“宏”、“录制新宏”命令，在弹出的“录制新宏”对话框中“宏名(M)”处填上“工资条”、“保存在(I)”处选择“当前工作簿”后，点“确定”见图1。图1　　2、插入表头和空行　　右击工资表的第一行，即表头，选快捷菜单的“复制”命令，再右击工资表的第三行，选快捷菜单的“插入复制单元格”命令，在第二个人的工资数据前插入表头;再右击第三行，选快捷菜单的“插入”命令，插入一个空行。　　3、停止录制　　点菜单的“工具”、“宏”、“停止录制”命令，停止宏的寻制。　　4、查看录制的宏程序　　点

3、菜单的“工具”、“宏”、“宏”命令或直接用快捷键“Alt+F8”打开“宏”对话框，在“宏名”处选择“工资条”，点“编辑”打开录制的宏程序代码见图2。图2　　5、在录制的宏程序中添加循环语句　　假如工资表中有200人。只需添加一个循环语句:　　ForI=1To200　　Next　　并将Rows("3:3").Select这条固定的语句，更改为随循环变量I变化的语句:　　Rows(I*3).Select就行了，见图3。图3　　现在再来执行“工资条”这个宏，200人的工资条在瞬间就制作出来了，很有成就感吧，不觉得编程也是很有趣的事吗?例2、取消

4、单元格中的超级链接　　有时把网页上的表格复制到电子表格中后，网页中的超级链接也复制过来了，如图4中的A列，稍不注意，鼠标一点上，就会打开相应的链接，很烦人，要取消这些单元格中的超链接，一个一个的取消很麻烦，我们就请VBA来帮忙。　　1、录制新宏　　同例1，宏名为“取消超链接”　　2、取消一个单元格中的超链接　　在图4所示的工作表中右击A2单元格，选快捷菜单中的“超级链接”、“取消超级链接”命令。图4　　3、停止录制　　同例1。　　4、查看录制的宏程序　　同例1，如图5。图5　　5、在录制的宏程序中添加循环语句　　①用DoWhile…Loo

5、p语句检测数据表的列数　　i=1　　DoWhileCells(1,i)<>""　　　’检测表格的列数　　i=i+1　　　’i为表格的列数　　Loop　　②用DoWhile…Loop语句检测数据表的行数　　j=1　　DoWhileCells(j,1)<>""　　’检测表格的行数　　j=j+1　　’j为表格的行数　　Loop　　③添加双重循环for…next语句遍历所有单元格。　　④修改选择语句Range(“A2”).Select为Cells(m,n).Select让其随循环变量变化。见图6图6　　执行“取消超链接”这个宏，表格中所有单元格的

6、超链接都被取消了。当然，要取消表格中的超链接，也可以通过另存为文本文件的方式来实现，但通过这个例子，我们掌握了检测数据表中的行、列数的一个通用方法。　　通过以上两例，我们体会到:　　①通过“录制新宏”功能得到核心语句;　　②运用BASIC语言的循环语句实现自动处理;　　③对其中的选择语句稍加改变，使之随循环变量变化。就能解决许多电子表格中的操作问题，　　只要经常对录制宏得到的核心语句进行分析，遇到其中不理解的语句就借助Office的帮助来学习，相信你的编程能力会有很大的长进。　　以上代码在Office2000、Office2002中测试通

7、过。　　附:两个例子的源程序　　　　1、工资条打印源程序：　　Sub工资条()　　’　　’工资条打印宏Macro　　’记录的宏2005-5-12　　’　　　　’　　k=2　　Fori=1To54　　j=i+k　　Rows("1:1").Select　　Selection.Copy　　Rows(j).Select　　Selection.InsertShift:=xlDown　　k=k+1　　Next　　　　EndSub   2、取消超链接源程序：　　SubDelete_Hyperlinks()’取消链接的宏　　i=1　　DoWhileCel

8、ls(1,i)<>""’检测表格的列数　　i=i+1　　Loop　　j=1　　DoWhileCells(j,1)<>""’检测表格的行数　　j=j+1　　Loop　　Form=1Toj-1