VBA收集(3)

元格中有公式结果，则在当前单元格中得到公式内容，即在含公式结果单元格的同行后一列单元格显示公式内容；如果将RC[-1]改为RC[1]，则在公式结果的同行前一列单元格显示公式内容。

4. 如果―引用位置‖中含有―RC[-1]‖，则在含公式结果单元格的同行后一列单元格中输入―=FormulaofResult‖即可得到公式；如果―引用位置‖中含有―RC[1]‖，则在含公式结果单元格的同行前一列单元格中输入―=FormulaofResult‖即可得到公式。 提示：如果想要在含公式结果单元格的同行后数第2列中显示公式内容，则需要把―引用位置‖中的―RC?－1?‖改为―RC?－2?‖。

★已知公式，显示结果

假设C列为输入的没有等号公式（假设C1为―A1+B1‖)，而相邻的D列是你需要存放公式计算结果的地方（即D1显示A1和B1单元格相加的结果）。

1. 选中D1，然后打开―插入‖菜单选择―名称‖命令中的―定义‖子命令，出现―定义名称‖对话框。

2. 在―在当前工作表中的名称‖输入栏中输入定义的名称―ResultofFomula‖，在下方的―引用位置‖编辑栏中输入―=EVALUATE(Sheet1!C1)‖，单击[确认]按钮退出。

3. 在 D1中输入―=ResultofFomula‖，然后选中按住右下角的填充柄向下拉动填充即可。

提示：EVALUATE??是Eexcel 4．0版的宏表函数，Excel 2000和Excel 2002中还支持，但只可用于名称定义中。 4. 填充后要按[F9]进行重算，如果C列的公式有改动，也需要及时按[F9]进行重算。 巧施妙计，就能让公式和结果在Excel中和平共处了，你也试试吧。

62、http://www.yesky.com/20010724/190094_3.shtml Microsoft Excel是一款功能非常强大的电子表格软件。它可以轻松地完成数据的各类数学运算，并用各种二维或三维图形形象地表示出来，从而大大简化了数据的处理工作。但若仅利用Excel的常用功能来处理较复杂的数据，可能仍需进行大量的人工操作。但Excel的强大远远超过人们的想象--宏的引入使其具有了无限的扩展性，因而可以很好地解决复杂数据的处理问题。

随着支持Windows的应用程序的不断增多和功能的不断增强，越来越多的程序增加了宏处理来方便用户的自由扩展。但初期各应用程序所采用的宏语言并不统一，这样用户每使用一种应用程序时都得重新学习一种宏语言。为了统一各种应用程序下的宏，Microsoft推出了VBA（Visual Basic for Applications）语言。

VBA是从流行的Visual Basic编程语言中派生出来的一种面向应用程序的语言，它适用于各种Windows应用程序，可以解决各应用程序的宏语言不统一的问题。除此之外，使用VBA语言还有如下优点：1、VBA是一种通用程序语言，通过它不仅可以共享Microsoft相关的各种软件（如Excel、Word、Access）……，而且随着其它的一些软件（如大名鼎鼎的AutoCAD2000）等对VBA的支持，这些软件也已进入到了VBA的控制范围；2、可以将用VBA编写的程序复制到Visual Basic中调试并运行，从而实现用Visual Basic来控制有关的应用程序；3、VBA提供的大量内部函数大大简化了用户的操作。 对于而今的宏，不仅语言统一规范，而且其功能也已非常强大。但在大多数介绍Excel的\傻瓜书\、\指南\、\入门与提高\等参考书中往往略过不提，或浅浅带过，读者从中获得的有关知识往往不足以应付处理复杂数据的需求。为了完成工作，就让我们一起来学习\宏\的妙用吧。 一)、宏的自学

首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用\录制宏\的方法来学习宏：点击Excel\工具\下拉菜单中\宏\下?quot;录制新宏\，此后可象平时一样进行有关操作，待完成后停止录制。然后再点击\工具\下拉菜单中\宏\下\宏\的\编辑\选项即可打开刚才所录制的宏的Visual Basic源程序，并且可以在此时的\帮助\下拉菜单中获得有关的编程帮助。对录制宏进行修改不仅可以学习宏的使用，还能大大简化宏的编写。 二)、基本概念

为了学习Excel中的宏，我们需要先了解以下一些基本概念。

1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbook

Workbooks集合包含Excel中所有当前打开的Excel工作簿，亦即所有打开的Excel文件；Workbook对应Workbooks中的成员，即其中的Excel文件；ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的Excel文件；ThisWorkbook代表其中有Visual Basic代码正在运行的工作簿。

在具体使用中可用Workbooks(index)来引用Workbook对象，其中index为工作簿名称或编号；如Workbooks(1)、Workbooks(\年度报表.xls\。而编号按照创建或打开工作簿的顺序来确定，第一个打开的工作簿编号为1，第二个打开的工作簿为2……。

2、工作表：Worksheets、Worksheet、ActiveSheet

Worksheets集合包含工作簿中所有的工作表，即一个Excel文件中的所有数据表页；而Worksheet则代表其中的一个工作表；ActiveSheet代表当前处于的活动状态工作表，即当前显示的一个工作表。

可用Worksheets(index)来引用Worksheet对象，其中index为工作表名称或索引号；如Worksheets(1)、Worksheets(\第一季度数据\。工作表索引号表明该工作表在工作表标签中的位置：第一个（最左边的）工作表的索引号为1，最后一个（最右边的）为Worksheets.Count。需要注意的是：在使用过程中Excel会自动重排工作表索引号，保持按照其在工作表标签中的从左至右排列，工作表的索引号递增。因此，由于可能进行的工作表添加或删除，工作表索引号不一定始终保持不变。 3、图表：Chart 、Charts、ChartObject、ChartObjects、ActiveChart

Chart代表工作簿中的图表。该图表既可为嵌入式图表（包含在ChartObject中），也可为一个分开的（单独的）图表工作表。

Charts代表指定工作簿或活动工作簿中所有图表工作表的集合，但不包括嵌入式在工作表或对话框编辑表中的图表。使用Charts(index) 可引用单个Chart图表，其中index是该图表工作表的索引号或名称；如Charts(1)、Charts(\销售图表\。图表工作表的索引号表示图表工作表在工作簿的工作表标签栏上的位置。Charts(1)是工作簿中第一个（最左边的）图表工作表；Charts(Charts.Count)为最后一个（最右边的）图表工作表。

ChartObject代表工作表中的嵌入式图表，其作用是作为Chart对象的容器。利用ChartObject可以控制工作表上嵌入式图表的外观和尺寸。

ChartObjects代表指定的图表工作表、对话框编辑表或工作表上所有嵌入式图表的集合。可由ChartObjects(index)引用单个ChartObject，其中index为嵌入式图表的编号或名称。如Worksheets(\、Worksheets(\分别对应\工作表中的第一个嵌入式图表、以及名为\的嵌入式图表。

ActiveChart可以引用活动状态下的图表，不论该图表是图表工作表，或嵌入式图表。而对于图表工作表为活动工作表时，还可以通过ActiveSheet属性引用之。 4、单元格：Cells、ActiveCell、Range、Areas

Cells(row,column)代表单个单元格，其中row为行号，column为列号。如可以用Cells(1,1)、Cells(10,4)来引用\、\单元格。ActiveCell代表活动工作表的活动单元格，或指定工作表的活动单元格。

Range代表工作表中的某一单元格、某一行、某一列、某一选定区域（该选定区域可包含一个或若干连续单元格区域）或者某一三维区域。

可用Range(arg)来引用单元格或单元格区域，其中arg可为单元格号、单元格号范围、单元格区域名称。如Range(\、Range(\、Range(\。虽然可用Range(\返回单元格A1，但用Cells更方便，因为此时可用变量指定行和列。

可将Range与Cells结合起来使用，如Range(Cells(1,1),Cells(10,10))代表单元格区域\；而expression.Cells(row,column)返回单元格区域中的一部分，其中expression是返回Range的表达式，row和column为相对于该区域的左上角偏移量。如由Range(\引用单元格C5。

Areas为选定区域内的连续单元格块的集合，其成员是Range对象。而其中的每个Range对象代表选定区域内与其它部分相分离的一个连续单元格块。某些操作不能在选定区域内的多个单元格块上同时执行；必须在选定区域内的单元格块数Areas.Count上循环，对每个单独的单元格块分别执行该操作。此时，可用Areas(index)从集合中返回单个Range对象，其中index为单元格块编号；如Areas(1)。

5、 行与列：Rows、Columns、Row、Column

Rows、Columns分别代表活动工作表、单元格区域范围Range、指定工作表中的所有行数、列数。对于一个多选单元格区域范围Range的Rows、Columns，只返回该范围中第一个区域的行数、列数。例如，如果Range对象有两个区域（areas）A1:B2和C3:D4，Rows.Count返回2而不是4。

可通过Rows(行号)、Columns(列号)来引用相应的行与列；如Rows(3)、Columns(4)分别对应第三行、D列。 利用Rows、Column可以获得区域中第一块的第一行行号、第一列列号，所得值均以十进制数表示。 三)、处理单元格 1、直接赋值与引用

将变量、常量值直接赋给单元格、或将单元格的值直接赋给变量、常量，这是在Excel中最简单的单元格赋值及引用方法。如下例将工作表\单元格的值赋给Integer变量I，并将I+1的值赋给当前工作表中的B1单元格：

Dim I As Integer

I=Worksheets(\

Cells(1,2).Select '选定B1单元格，使其成为当前单元格 ActiveCell=I+1 '以I+1为当前单元格赋值 2、用公式赋值

在宏的使用中，可能会更多地用公式来给单元格赋值。如下例将相对于活动单元格左侧第4列、向上第6行至向上第2行的单元格数值之和赋给活动单元格（以本行、本列为第0行、0列）： ActiveCell.Formula=\ 3、引用其它工作表中的单元格

当赋值公式中需要引用其它工作表中的单元格时，在被引用的单元格前加上\工作表名！\即可。如以下即在赋值中引用了\工作表中的A1至A4单元格：

Range(\

但需注意的是：当被引用的工作表名中含有某些可能引起公式歧义的字符时，需要用单引号'将工作表名括起来。如： Worksheets(\剖面'!D3:D5)\ 4、引用其它工作簿中的单元格

在被引用单元格所在工作表名前加上\工作簿名]\，即可引用其它工作簿中的单元格。如： ActiveCell.Formula=\

同样需注意的是：当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号\、\及单引号'将工作簿名括起来。如：

Cells(1,2).Formula=\总结.xls]1995-1996年'! $A$1:$A$6)\ 5、避免循环引用

在上述公式赋值过程中，应避免在公式中引用被赋值的单元格，防止循环引用错误。 6、添加批注

可按如下方法格给单元格添加批注： Dim 批注文本 As String

批注文本=\批注示例\准备批注文本 ActiveCell.AddComment '添加批注

ActiveCell.Comment.Text Text:=临时 '写入批注文本 ActiveCell.Comment.Visible=False '隐藏批注 7、添加、删除、复制、剪切、粘贴单元格

Range(\ToRight '在D10单元格处添加一新单元格，原D10格右移 Range(\在C2单元格处添加一新单元格，原C2格下移 Rows(2).EntireRow.Insert '在第2行前添加一空白行，原第2行下移 Columns(3).EntireColumn.Insert '在C列前添加一空白列，原C列右移 Columns(\ToLeft '删除A列至D列，其右侧列左移 Rows(\删除第3行至第5行，其下方行上移 Range(\删除第2行 Range(\删除C列

Range(\复制B10至C13单元格区域 Cells(1,2).Cut '剪切B1单元格 Range(\

ActiveSheet.Paste '自D10单元格起粘贴剪贴板中的内容 四)、图表 1、工作表图表

以下为一添加工作表图表的实例。

Charts.Add after:=Worksheets(\在\工作表之后添加新图表工作表

ActiveChart.ChartType=xlXYScatterSmooth '图表类型为XY平滑线散点图

ActiveChart.SetSourceData Source:=Sheets(\结点坐标\ xlColumns '图表数据来源于\结点坐标\工作表的A1至B69单元格，且按列绘图。 ActiveChart.Location Where:=xlLocationAsNewSheet With ActiveChart .HasTitle = True

.ChartTitle.Characters.Text = \节点坐标\图表标题\节点坐标\ .Axes(xlCategory, xlPrimary).HasTitle = True

.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = \轴标题\ .Axes(xlValue, xlPrimary).HasTitle = True

.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = \轴标题\ End With

With ActiveChart.Axes(xlCategory)

.HasMajorGridlines = True '显示x轴主网格线，默认情况下为显示 .HasMinorGridlines = True '显示x轴次网格线，默认情况下为不显示 End With

With ActiveChart.Axes(xlValue)

.HasMajorGridlines = True '标出x轴主网格值，默认情况下为标注 .HasMinorGridlines = False '取消x轴次网格值标注，默认情况下为不标注 End With

ActiveChart.Legend.Position = xlRight '图例显示在图表右侧 2、嵌入式图表

嵌入式图表仅在添加方式及引用格式上与工作表图表有所不同，而对图表的设置基本类似。详见下例。

Set嵌入表=ActiveSheet.ChartObjects.Add(0,0,200,300) '在当前工作表(0,0)坐标处添加宽200，高300的嵌入式图表 嵌入表.Chart.ChartType = xlColumnClustered '图表类型为簇状柱形图

嵌入表.Chart.SetSourceData Source:=Sheets(1).Range(\设置图表数据来源 With 嵌入表.Chart

.HasTitle = False '无图表标题

.Axes(xlCategory, xlPrimary).HasTitle = False '无x轴标题 .Axes(xlValue, xlPrimary).HasTitle = False '无y轴标题 End With 五)、工作表 1、添加

Sheets.Add before:=Sheets(1) '在第1工作表前添加新工作表

Sheets.Add after:=Sheets(Sheets.Count) '在最后工作表后添加新工作表 2、移动

ActiveSheet.Move before:=Sheets(2) '将当前工作表移动至第2工作表之前 3、命名

ActiveSheet.Name=\工作表名\将当前工作表命名为\工作表名\ 4、删除

可以用以下语句删除当前工作表。 ActiveSheet.Delete

但在删除前Excel会自动弹出提示框，需在用户确认后方可执行删除。为避免这一干扰，可以先用以下语句关闭Excel的警告提示。

Application.DisplayAlerts = False

在删除完成后，再重新打开Excel的警告提示

Application.DisplayAlerts = True 六)、工作簿

Excel的宏对工作簿的操作主要为保存。 Dim 存盘文件名 As String

ActiveWorkbook.Save '保存当前工作簿 存盘文件名=\工作表名\

ActiveWorkbook.SaveAs Filename:= 存盘文件名 '当前工作簿另存为\工作表名.xls\

在另存时，若指定的存盘文件名不包含路径，则保存在该工作簿的打开目录下。而若此存盘文件已存在，也可用关闭Excel警告提示的方法以免其自动弹出提示框。 63、用VBA的几个误区

1、想通过Excel+vba来编程发财，不管怎么说，目前这种可能性很小。

2、录制宏后的代码不进行简化，这种情况初学者常犯；或者不屑于用录制宏，这种相反。 3、喜欢用.select、.copy、.active等，如果不是迫不得已，还是不要用这些东西好。

4、不喜欢用公式、函数，什么都喜欢用程序；活用公式函数是我们学EXCEL中重要的重点，学会嵌套着用，很多事情都可以解决。譬如表1的A1单元格如果要等于表2的A列中的某个单元格，很多人都是用程序来直接赋值，数量少这也可以，但如果数量很多的话，为何不试用一下offset呢？偏移都指向同一个单元格，就当是一个变量，改一下这个单元格的值，表1用offset的单元格的值就全部改了。

5、设计输入数据的界面竟然用用户窗口+文本框之类的东西，天，我为什么要用EXCEL，原因之一不就是图个方便吗？！直接在工作表中操作就是输入数据最好的方法，如果一些功能你不想给别人用，顶多你屏蔽掉吧。

6、关闭程序的时候很喜欢退出整个EXCEL，这样自我感觉更象一个完整的程序。其实完全有必要考虑其他用户是否也在用EXCEL，所以，必须做好一下判断，不要自作聪明全部退出来，还帮忙把每个工作簿都保存一下。

7、不喜欢用with，总是workbook(\一行行排得挺整齐的，还说都用复制，其实也不麻烦。 8、总想把VBA+EXCEL做得象一个程序一样，其实，就因为它不独立，所以才更加为我们喜爱，不是吗？ 64、用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！ 使用Dim语句

Dim a as integer '声明A为整形变量 Dim a '声明A为变体变量 Dim a as string '声明A为字符串变量 Dim a,b,c as currency '声明A,b,c为货币变量

声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal（当前不支持）、Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。 强制声明变量 Option Explicit

说明：该语句必在任何过程之前出现在模块中。 声明常数，用来代替文字值。 Const

' 常数的默认状态是 Private。 Const My = 456 ' 声明 Public 常数。

Public Const MyString = \' 声明 Private Integer 常数。 Private Const MyInt As Integer = 5 ' 在同一行里声明多个常数。

Const MyStr = \

在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VBA收集(3)在线全文阅读。