下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、传播优秀Word版文档 ,希望对您有帮助,可双击去除!VBA编程简化Excel操作的两个实例说起用VBA编程,很多人都认为是很困难的事情,是编程高手们的游戏。当然,这样的说法也不无道理,因为VBA编程需要有面向对象程序设计的基础,要求编程的人要懂得对象、事件、属性的概念和熟悉VB程序设计的表达方式,这些都会使人望而生畏。Excel的“录制宏”功能,是VBA编辑应用的良好载体。结合在DOS里学过的一点点BASIC语言基础,就能编写VBA程序,解决我们工作中的一些具体问题。例1、制作简易工资条工资条打印是实现在工资表中每个员工工资数据前加一行表头,工资数据后加一个空行,其步骤如下:1、录制新宏。在
2、Excel工资表中,选择菜单上的“工具”、“宏”、“录制新宏”命令,在弹出的“录制新宏”对话框中“宏名(M)”处填上“工资条”、“保存在( I )”处选择“当前工作簿”后,点“确定”见图1。2、插入表头和空行右击工资表的第一行,即表头,选快捷菜单的“复制”命令,再右击工资表的第三行,选快捷菜单的“插入复制单元格”命令,在第二个人的工资数据前插入表头;再右击第三行,选快捷菜单的“插入”命令,插入一个空行。3、停止录制点菜单的“工具”、“宏”、“停止录制”命令,停止宏的寻制。4、查看录制的宏程序点菜单的“工具”、“宏”、“宏”命令或直接用快捷键“Alt + F8”打开“宏”对话框,在“宏名”处选择
3、“工资条”,点“编辑”打开录制的宏程序代码见图2。传播优秀Word版文档 ,希望对您有帮助,可双击去除!5、在录制的宏程序中添加循环语句假如工资表中有200人。只需添加一个循环语句:For I=1 To 200Next 并将Rows(3:3).Select 这条固定的语句,更改为随循环变量I变化的语句:Rows( I * 3 ).Select就行了,见图3。现在再来执行 “工资条”这个宏,200人的工资条在瞬间就制作出来了,很有成就感吧,不觉得编程也是很有趣的事吗?传播优秀Word版文档 ,希望对您有帮助,可双击去除!例2、取消单元格中的超级链接有时把网页上的表格复制到电子表格中后,网页中的超
4、级链接也复制过来了,如图4中的A列,稍不注意,鼠标一点上,就会打开相应的链接,很烦人,要取消这些单元格中的超链接,一个一个的取消很麻烦,我们就请VBA来帮忙。1、录制新宏同例1,宏名为“取消超链接”2、取消一个单元格中的超链接在图4所示的工作表中右击A2单元格,选快捷菜单中的“超级链接”、“取消超级链接”命令。3、停止录制同例1。4、查看录制的宏程序同例1,如图5。5、在录制的宏程序中添加循环语句传播优秀Word版文档 ,希望对您有帮助,可双击去除!用Do While Loop语句检测数据表的列数i = 1Do While Cells(1, i) 检测表格的列数 i = i + 1 i 为表格
5、的列数 Loop用Do While Loop语句检测数据表的行数j = 1Do While Cells(j, 1) 检测表格的行数 j = j + 1 j 为表格的行数 Loop添加双重循环for next 语句遍历所有单元格。修改选择语句 Range(“A2”).Select 为 Cells(m, n).Select 让其随循环变量变化。见图6执行 “取消超链接”这个宏,表格中所有单元格的超链接都被取消了。当然,要取消表格中的超链接,也可以通过另存为文本文件的方式来实现,但通过这个例子,我们掌握了检测数据表中的行、列数的一个通用方法。传播优秀Word版文档 ,希望对您有帮助,可双击去除!通过
6、以上两例,我们体会到:通过“录制新宏”功能得到核心语句;运用BASIC语言的循环语句实现自动处理;对其中的选择语句稍加改变,使之随循环变量变化。就能解决许多电子表格中的操作问题,只要经常对录制宏得到的核心语句进行分析,遇到其中不理解的语句就借助Office的帮助来学习,相信你的编程能力会有很大的长进。以上代码在Office2000、Office2002中测试通过。附:两个例子的源程序 1、工资条打印源程序: Sub 工资条() 工资条打印宏 Macro 记录的宏 2005-5-12 k = 2 For i = 1 To 54 j = i + k Rows(1:1).Select Selection.Copy Rows(j).Select Selection.Insert Shift:=xlDown k = k + 1 Next End Sub 2、取消超链接源程序: Sub Delete_Hyperlinks() 取消链接的宏 i = 1 Do While Cells(1, i) 检测表格的列数 i = i + 1 Loop j = 1 Do While Cells(j, 1) 检测表格的行数 j = j + 1 Loop
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 杜绝校园欺凌共建和谐校园演讲稿范文(3篇)
- 北京市海淀区2024-2025学年高二上学期9月月考 数学试题(含解析)
- DB12-T 1110-2021 企业开办登记规范
- 贡献社会主题班会教案
- 上海市市辖区(2024年-2025年小学五年级语文)统编版小升初模拟((上下)学期)试卷及答案
- 上海市县(2024年-2025年小学五年级语文)统编版专题练习(上学期)试卷及答案
- 浙江省台州市台州十校联考2024-2025学年高一上学期11月期中日语试题含答案
- 人教版九年级语文上册教案全集
- 辽宁省沈阳市沈河区沈阳市第七中学协作体2024-2025学年八年级上学期期中地理试卷(含答案)
- 广东省揭阳市2025届高三上学期第一次月考数学试题(含答案)
- 新余网约车考证
- 中医基础论述题
- 二 《学习工匠事迹 领略工匠风采》(教学设计)-【中职专用】高二语文精讲课堂(高教版2023·职业模块)
- 工程项目建设程序
- 中小学生劳动教育的跨学科融合案例
- 分子结构与化学性质的关系
- 医院内肺炎预防与控制标准操作规程
- 道路(光彩工程)亮化施工投标方案(技术方案)
- 2023年房地产估价师考试完整真题及答案解析
- 第14课 推进绿色发展
- 山东省泰安市新泰市2023-2024学年五年级上学期期中语文试卷
评论
0/150
提交评论