VBA宏编程操作指南(3)

纬度算距离.xls").Activate Columns("G:G").Select Selection.Copy Windows("TD 扰码规划宏.xls").Activate ActiveSheet.Paste Range("A1").Select Application.CutCopyMode = False ActiveWorkbook.Save Windows("经纬度算距离.xls").Activate Workbooks("经纬度算距离.xls").Close SaveChanges:=False (上面黄色的部分就是“补尾” ) End Sub 又是一个只要复制粘贴就可以补全代码的例子，找准位置，写起来很容易的。

下面再贴几个代码来更好的说明下: 日常数据制作宏是一个很典型的例子，能够很好的表现出来宏代码的初级应 用。 就拿日常数据制作宏(我只取其中 4 个 RNC 作为例子)来说：我们不需要看所 有的代码，只要找到关键部分，然后复制粘贴就可以了。 Sub Macro2() ' ' Macro2 Macro ' Dim str As String str = ThisWorkbook.Path & "\日常数据模板.xls" 16 / 25

VBA宏编程操作指南

Workbooks.Open str str = ThisWorkbook.Path & "\RNC1.xls" Workbooks.Open str str = ThisWorkbook.Path & "\RNC2.xls" Workbooks.Open str str = ThisWorkbook.Path & "\RNC3.xls" Workbooks.Open str str = ThisWorkbook.Path & "\RNC4.xls" Workbooks.Open str (上面标黄色的代码也就是我们一开始就列举的关键代码， 也就是我们宏 所需要的 EXCEL 文件，宏在执行之前需要先打开这些文件，因为在录制宏的时候这 些代码是不能被录制的，所以需要我们手动加上去。 ) '复制 RNC1 的小区参数信息 Windows("RNC1.xls").Activate Sheets("小区归属配置信息表").Select Range("B1", "B2").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Windows("日常数据模板.xls").Activate Sheets("小区参数信息").Select Range("A1").Select ActiveSheet.Paste Windows("RNC1.xls").Activate Sheets("小区归属配置信息表").Select Range("B5").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("日常数据模板.xls").Activate Sheets("小区参数信息").Select i=1 While (Cells(i, 1) <> "") i=i+1 Wend Cells(i, 1).Select ActiveSheet.Paste (上面的黄色代码就是进行空格判断之后，然后再进行粘贴的，就是针对每天 都变化的数据而采用的代码。 ) '复制 RNC2 的小区参数信息 Windows("RNC2.xls").Activate Sheets("小区归属配置信息表").Select Range("B1", "B2").Select 17 / 25

VBA宏编程操作指南

Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Windows("日常数据模板.xls").Activate Sheets("小区参数信息").Select Range("A1").Select ActiveSheet.Paste Windows("RNC2.xls").Activate Sheets("小区归属配置信息表").Select Range("B5").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("日常数据模板.xls").Activate Sheets("小区参数信息").Select i=1 While (Cells(i, 1) <> "") i=i+1 Wend Cells(i, 1).Select ActiveSheet.Paste

'复制 RNC3 的小区参数信息 Windows("RNC3.xls").

Activate Sheets("小区归属配置信息表").Select Range("B1", "B2").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Windows("日常数据模板.xls").Activate Sheets("小区参数信息").Select Range("A1").Select ActiveSheet.Paste Windows("RNC3.xls").Activate Sheets("小区归属配置信息表").Select Range("B5").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("日常数据模板.xls").Activate Sheets("小区参数信息").Select i=1 While (Cells(i, 1) <> "") i=i+1 18 / 25

VBA宏编程操作指南

Wend Cells(i, 1).Select ActiveSheet.Paste

'复制 RNC4 的小区参数信息 Windows("RNC4.xls").Activate Sheets("小区归属配置信息表").Select Range("B1", "B2").Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Windows("日常数据模板.xls").Activate Sheets("小区参数信息").Select Range("A1").Select ActiveSheet.Paste Windows("RNC4.xls").Activate Sheets("小区归属配置信息表").Select Range("B5").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy Windows("日常数据模板.xls").Activate Sheets("小区参数信息").Select i=1 While (Cells(i, 1) <> "") i=i+1 Wend Cells(i, 1).Select ActiveSheet.Paste

Windows("RNC1.xls").Activate Workbooks("RNC1.xls").Close SaveChanges:=False 'Windows("RNC2.xls").Activate 'Workbooks("RNC2.xls").Close SaveChanges:=False 'Windows("RNC3.xls").Activate 'Workbooks("RNC3.xls").Close SaveChanges:=False Windows("RNC4.xls").Activate Workbooks("RNC4.xls").Close SaveChanges:=False (上面标黄色的代码就是我们刚开始说的关闭文件的代码，同样，宏录制 的时候也不能把关闭文件的操作录制下来，也需要我们手动添加。 )

19 / 25

VBA宏编程操作指南

MsgBox "汇总成功！" Exit Sub Err1: MsgBox "汇总失败！" (上面几行就是 MsgBox 函数， 前面已做介绍， 我们知道其基本用法就可以了) End Sub

第四部分：如何确定在哪个位置插入关键代码呢？ 1.4 第四部分：如何确定在哪个位置插入关键代码呢？我们可以在调试的时候采用逐句运行语句，每运行一条语句就看一下实际的效果，找到 需要添加代码的位置，这样就可以根据自己的需要找到关键语句。

第五部分 部分： 1.5 第五部分：如何调试宏上面介绍的程序大多数都很短，所以找错误并不是非常困难。然而，当你编写更长 更复杂的过程时，查找错误源就更缓慢和费时了。幸运的是，VBA 编辑器提供了一套方 便的工具，让你追踪你 VBA 问题的过程更简单，更快捷，有更少的挫折。程序缺陷是 电脑程序中的错误，而调试则是定位和解决这些错误的过程。调试让你找到你的程序为 什么不按预期工作的原因。你可以通过步入程序代码或者检查变量值来达到目的。 使用下述指南进行你的 VBA …… 此处隐藏：2939字，全部文档内容请下载后查看。喜欢就下载吧 ……