您的位置: 首页 > EXCEL技巧 > ExcelVBA >

VBA编程简化Excel操作的两个实例

时间:2013-08-16 整理:docExcel.net

天极软件专题专区精选   到天极软件“读编交换区”知无不言

 QQ挂机 相识Web2.0

未经天极网许可,请勿擅自转载此原创文章

  说起用VBA编程,许多人都认为是很坚苦的工作,是编程好手们的游戏。虽然,,这样的说法也不无原理,因为VBA编程需要有面向工具措施设计的基本,要求编程的人要分明工具、事件、属性的观念和熟悉VB措施设计的表达,这些城市使人望而生畏。

  Excel的“录制宏”成果,是VBA编辑应用的精采载体。团结在DOS里学过的一点点BASIC语言基本,就能编写VBA措施,办理我们事情中的一些详细问题。

  例1、建造浅易人为条

  人为条打印是实此刻人为表中每个员工人为数据前加一行表头,人为数据后加一个空行,其步调如下:

  1、录制新宏。

  在Excel人为表中,选择菜单上的“东西”、“宏”、“录制新宏”呼吁,在弹出的“录制新宏”对话框中“宏名(M)”处填上“人为条”、“生存在( I )”处选择“当前事情簿”后,点“确定”见图1。

VBA编程简化Excel操纵的两个实例

  2、表头和空行

  右击人为表的第一行,即表头,选快捷菜单的“复制”呼吁,再右击人为表的第三行,选快捷菜单的“复制单位格”呼吁,在第二小我私家的人为数据前表头;再右击第三行,选快捷菜单的“”呼吁,一个空行。

  3、遏制录制

  点菜单的“东西”、“宏”、“遏制录制”呼吁,遏制宏的寻制。

  4、查察录制的宏措施

  点菜单的“东西”、“宏”、“宏”呼吁或直接用快捷键“Alt + F8”打开“宏”对话框,在“宏名”处选择“人为条”,点“编辑”打开录制的宏措施代码见图2。

VBA编程简化Excel操纵的两个实例

  5、在录制的宏措施中添加轮回语句

  如果人为表中有200人。只需添加一个轮回语句:

  For I=1 To 200
  Next

  并将Rows("3:3").Select 这条牢靠的语句,变动为随轮回变量I变革的语句:

  Rows( I * 3 ).Select就行了,见图3。

VBA编程简化Excel操纵的两个实例

  此刻再来执行 “人为条”这个宏,200人的人为条在瞬间就建造出来了,很有成绩感吧,不以为编程也是很有趣的事吗?

 

  例2、打消单位格中的超等链接

  有时把网页上的表格复制到电子表格中后,网页中的超等链接也复制过来了,如图4中的A列,稍不留意,鼠标一点上,就会打开相应的链接,很烦人,要打消这些单位格中的超链接,一个一个的打消很贫苦,我们就请VBA来资助。

  1、录制新宏

  同例1,宏名为“打消超链接”

  2、打消一个单位格中的超链接

  在图4所示的事情表中右击A2单位格,选快捷菜单中的“超等链接”、“打消超等链接”呼吁。

VBA编程简化Excel操纵的两个实例

  3、遏制录制

  同例1。

  4、查察录制的宏措施

  同例1,如图5。

VBA编程简化Excel操纵的两个实例

  5、在录制的宏措施中添加轮回语句

  ①用Do While …Loop语句检测数据表的列数

  i = 1
  Do While Cells(1, i) <> ""
    ’ 检测表格的列数
   i = i + 1
    ’ i 为表格的列数
   Loop

  ②用Do While …Loop语句检测数据表的行数

  j = 1
  Do While Cells(j, 1) <> ""
   ’ 检测表格的行数
   j = j + 1
   ’j 为表格的行数
   Loop

  ③添加双重轮回for … next 语句遍历所有单位格。

  ④修改选择语句 Range(“A2”).Select 为 Cells(m, n).Select 让其随轮回变量变革。见图6

VBA编程简化Excel操纵的两个实例

  执行 “打消超链接”这个宏,表格中所有单位格的超链接都被打消了。虽然,要打消表格中的超链接,也可以通过另存为文本文件的来实现,但通过这个例子,我们了检测数据表中的行、列数的一个通用。

  通过以上两例,我们体会到:

  ①通过“录制新宏”成果焦点语句;

  ②运用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
   For m = 1 To j - 1
   For n = 1 To i - 1
   Cells(m, n).Select
   Selection.Hyperlinks.Delete
   Next n
   Next m
   End Sub


  阅读关于 的全部文章

VBA编程简化Excel操作的两个实例2 问题:VBA编程简化Excel操作的两个实例2
回答: 文/巫德贵 例2、打消单位格中的超等链接 有时把网页上的表格复制到电子表格中后,网页中的超等链接也复制过来了,如图4中的A列,稍不留意,鼠标一点上,,就会打开相应的链接,很烦人,要打消这些单位格中的超链接...
Excel2013函数系列教程构建辅助列简化过程 问题:Excel2013函数系列教程构建辅助列简化过程
回答:...助列是什么目的,为何要建立?建立辅助列的目的是为了简化函数公式,不至于在单元格输入很复杂的公式,下面,我通过一则实例来讲一下建立辅助列的意义。 ①在原始数据中有一些时间,我们需要对其进行求和,计算出总...
PPT动画实例整月按日来处理待办事项 问题:PPT动画实例整月按日来处理待办事项
回答:...介绍一款日历类的待办事项演示文稿。 实例演示 1.为了简化步骤,我事先准备好了素材,我们启动PowerPoint,选中下方圆圈里面的18号,单击菜单栏---动画--自定义动画,弹出右侧的自定义窗格,单击添加效果--强调--更改填充颜...
Excel按条件筛选和保存数据的两个实例 问题:Excel按条件筛选和保存数据的两个实例
回答:...筛选”和“高级筛选”来实现。 下面我们具体先容两个实例。文章末端提供原文件供各人下载参考。 图1 实例一、将“语文”和“数学”后果都不合格的学生数据生存到Sheet2事情表中 1、启动excel,打开相应的后果表,选...
您应该了解Office2010简化版的7件事情 问题:您应该了解Office2010简化版的7件事情
回答:...开始,几乎所有新购买的电脑,都将预加载微软Office2010简化版,而Office2010面向个人领域的盒装产品,也在同一天正式开始发售,相信会掀起一波更新Office的高潮,微软也将在北京举行盛大发布会,还有神秘嘉宾莅临,请关注和...
EXCEL中实现跨表关联查询的应用实例 问题:EXCEL中实现跨表关联查询的应用实例
回答:...成果,并且操纵简朴易行,甚至不需要添加宏呼吁,大大简化了事情流程。 以某企业销售轮回中的发票数据与条约数据关联为例,作以先容。 首先,收罗某企业销售数据,选取需要查对区间内的销售发票与销售条约电子数据,...
相关推荐: