VB编程在Excel中的应用精编.docx

VB编程在Excel中的应用精编.docx

《VB编程在Excel中的应用精编.docx》由会员分享，可在线阅读，更多相关《VB编程在Excel中的应用精编.docx（30页珍藏版）》请在冰豆网上搜索。

VB编程在Excel中的应用精编

还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。

这个直接显示结果的设计对于绝大多数场合来说都是适用的，但某些情况下就不那么让人满意了。

比方说在做工程施工的预结算编写，使用Excel，既要写出工程量的计算式，也要看到它的结果，于是这样一样的公式在Excel里面要填两次，一次在文本格式的单元格中输入公式，一次是在数据格式的单元格中输入公式让Excel计算结果。

如何既能看到公式又能看到结果呢？

这个问题笔者认为可以从两个方面考虑：

一种方法是所谓“结果，显示公式〞，先在数据格式单元格中输入公式让Excel计算结果，然后在相邻的单元格中看到公式；另一种方法所谓“公式，显示结果〞，就是先在一个文本格式的单元格中输入公式，在相邻的单元格中看到结果。

★结果，显示公式假设C列为通过公式计算得到的结果〔假设C1为“=A1+B1〞，或者直接是数字运算“=2+3〞），而相邻的D列是你需要显示公式的地方〔即D1应该显示为“=A1+B1〞或者“=2+3〞〕。

1.翻开“工具〞菜单项选择择“选项〞命令，出现“选项〞对话框。

2.在“常规〞选项卡中，选中“R1C1引用方式〞选项。

3.定义名称，将“引用位置〞由“=GET.CELL（6,Sheet1!

RC[-1]）〞即可。

这里的RC[-1]含义是如果在当前单元格的同行前一列单元格中有公式结果，那么在当前单元格中得到公式容，即在含公式结果单元格的同行后一列单元格显示公式容；如果将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是Eexcel4．0版的宏表函数，Excel2000和Excel2002中还支持，但只可用于名称定义中。

4.填充后要按[F9]进展重算，如果C列的公式有改动，也需要及时按[F9]进展重算。

巧施妙计，就能让公式和结果在Excel中和平共处了，你也试试吧。

★MicrosoftExcel是一款功能非常强大的电子表格软件。

它可以轻松地完成数据的各类数学运算，并用各种二维或三维图形形象地表示出来，从而大大简化了数据的处理工作。

但假设仅利用Excel的常用功能来处理较复杂的数据，可能仍需进展大量的人工操作。

但Excel的强大远远超过人们的想象--宏的引入使其具有了无限的扩展性，因而可以很好地解决复杂数据的处理问题。

随着支持Windows的应用程序的不断增多和功能的不断增强，越来越多的程序增加了宏处理来方便用户的自由扩展。

但初期各应用程序所采用的宏语言并不统一，这样用户每使用一种应用程序时都得重新学习一种宏语言。

为了统一各种应用程序下的宏，Microsoft推出了VBA〔VisualBasicforApplications〕语言。

VBA是从流行的VisualBasic编程语言中派生出来的一种面向应用程序的语言，它适用于各种Windows应用程序，可以解决各应用程序的宏语言不统一的问题。

除此之外，使用VBA语言还有如下优点：

1、VBA是一种通用程序语言，通过它不仅可以共享Microsoft相关的各种软件〔如Excel、Word、Access〕……，而且随着其它的一些软件〔如大名鼎鼎的AutoCAD2000〕等对VBA的支持，这些软件也已进入到了VBA的控制围；

2、可以将用VBA编写的程序复制到VisualBasic中调试并运行，从而实现用VisualBasic来控制有关的应用程序；

3、VBA提供的大量部函数大大简化了用户的操作。

对于而今的宏，不仅语言统一规，而且其功能也已非常强大。

但在大多数介绍Excel的"傻瓜书"、"指南"、"入门与提高"等参考书中往往略过不提，或浅浅带过，读者从中获得的有关知识往往缺乏以应付处理复杂数据的需求。

为了完成工作，就让我们一起来学习"宏"的妙用吧。

一）、宏的自学首先需要明确的是，本文不可能教会您关于宏的所有容。

您需要学会利用"录制宏"的方法来学习宏：

点击Excel"工具"下拉菜单中"宏"下?

quot;录制新宏"，此后可象平时一样进展有关操作，待完成后停顿录制。

然后再点击"工具"下拉菜单中"宏"下"宏"的"编辑"选项即可翻开刚刚所录制的宏的VisualBasic源程序，并且可以在此时的"帮助"下拉菜单中获得有关的编程帮助。

对录制宏进展修改不仅可以学习宏的使用，还能大大简化宏的编写。

二）、根本概念

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

1、工作簿：

Workbooks、Workbook、ActiveWorkbook、ThisWorkbook

Workbooks集合包含Excel中所有当前翻开的Excel工作簿，亦即所有翻开的Excel文件；

Workbook对应Workbooks中的成员，即其中的Excel文件；

ActiveWorkbook代表当前处于活动状态的工作簿，即当前显示的Excel文件；

ThisWorkbook代表其中有VisualBasic代码正在运行的工作簿。

在具体使用中可用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（"Sheet1"）.ChartObjects

（1）、Worksheets（"sheet1"）.ChartObjects（"chart1"）分别对应"Sheet1"工作表中的第一个嵌入式图表、以及名为"Chart1"的嵌入式图表。

ActiveChart可以引用活动状态下的图表，不管该图表是图表工作表，或嵌入式图表。

而对于图表工作表为活开工作表时，还可以通过ActiveSheet属性引用之。

4、单元格：

Cells、ActiveCell、Range、Areas

Cells（row,column）代表单个单元格，其中row为行号，column为列号。

如可以用Cells（1,1）、Cells（10,4）来引用"A1"、"D10"单元格。

ActiveCell代表活开工作表的活动单元格，或指定工作表的活动单元格。

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

可用Range（arg）来引用单元格或单元格区域，其中arg可为单元格号、单元格号围、单元格区域名称。

如Range（"A5"）、Range（"A1:

H8"）、Range（"Criteria"）。

虽然可用Range（"A1"）返回单元格A1，但用Cells更方便，因为此时可用变量指定行和列。

可将Range与Cells结合起来使用，如Range（Cells（1,1）,Cells（10,10））代表单元格区域"A1:

J10"；而expression.Cells（row,column）返回单元格区域中的一局部，其中expression是返回Range的表达式，row和column为相对于该区域的左上角偏移量。

如由Range（"C5:

C10"）.Cells（1,1）引用单元格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中最简单的单元格赋值及引用方法。

如下例将工作表"Sheet1"A1单元格的值赋给Integer变量I，并将I+1的值赋给当前工作表中的B1单元格：

DimIAsInteger

I=Worksheets（"Sheet1"）.Cells（1,1）

Cells（1,2）.Select'选定B1单元格，使其成为当前单元格

ActiveCell=I+1'以I+1为当前单元格赋值

2、用公式赋值

在宏的使用中，可能会更多地用公式来给单元格赋值。

如下例将相对于活动单元格左侧第4列、向上第6行至向上第2行的单元格数值之和赋给活动单元格〔以本行、本列为第0行、0列〕：

ActiveCell.Formula="=AVERAGE（R[-6]C[-4]:

R[-2]C[-4]）"

3、引用其它工作表中的单元格

当赋值公式中需要引用其它工作表中的单元格时，在被引用的单元格前加上"工作表名！

"即可。

如以下即在赋值中引用了"Sheet1"工作表中的A1至A4单元格：

Range（"E10"）.Formula="=SUM（Sheet1!

R1C1:

R4C1）"

但需注意的是：

当被引用的工作表名中含有某些可能引起公式歧义的字符时，需要用单引号'将工作表名括起来。

如：

Worksheets（"Sheet1"）.ActiveCell.Formula="=Max（'1-1剖面'!

D3:

D5）"

4、引用其它工作簿中的单元格

在被引用单元格所在工作表名前加上"[工作簿名]"，即可引用其它工作簿中的单元格。

如：

ActiveCell.Formula="=MAX（[Book1.xls]Sheet3!

R1C:

RC[4]）"

同样需注意的是：

当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号"["、"]"及单引号'将工作簿名括起来。

如：

Cells（1,2）.Formula="=MIN（'[1995-2000总结.xls]1995-1996年'!

$A$1:

$A$6）"

5、防止循环引用

在上述公式赋值过程中，应防止在公式中引用被赋值的单元格，防止循环引用错误。

6、添加批注

可按如下方法格给单元格添加批注：

Dim批注文本AsString

批注文本="批注例如"'准备批注文本

ActiveCell.Addment'添加批注

ActiveCell.ment.TextText:

=临时'写入批注文本

ActiveCell.ment.Visible=False'隐藏批注

7、添加、删除、复制、剪切、粘贴单元格

Range（"D10"）.InsertShift:

=xlToRight'在D10单元格处添加一新单元格，原D10格右移

Range（"C2"）.InsertShift:

=xlDown'在C2单元格处添加一新单元格，原C2格下移

Rows

（2）.EntireRow.Insert'在第2行前添加一空白行，原第2行下移

Columns（3）.EntireColumn.Insert'在C列前添加一空白列，原C列右移

Columns（"A:

D"）.DeleteShift:

=xlToLeft'删除A列至D列，其右侧列左移

Rows（"3:

5"）.DeleteShift:

=xlUp'删除第3行至第5行，其下方行上移

Range（"B2"）.EntireRow.Delete'删除第2行

Range（"C4"）.EntireColumn.Delete'删除C列

Range（"B10:

C13"）.Copy'复制B10至C13单元格区域

Cells（1,2）.Cut'剪切B1单元格

Range（"D10"）.SelectActiveSheet.Paste'自D10单元格起粘贴剪贴板中的容

四）、图表

1、工作表图表

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

Charts.Addafter:

=Worksheets（"Sheet1"）'在"Sheet1"工作表之后添加新图表工作表

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

ActiveChart.SetSourceDataSource:

=Sheets（"结点坐标"）.Range（"A1:

B69"）,PlotBy:

=_xlColumns'图表数据来源于"结点坐标"工作表的A1至B69单元格，且按列绘图。

ActiveChart.LocationWhere:

=xlLocationAsNewSheet

WithActiveChart

.HasTitle=True

.ChartTitle.Characters.Text="节点坐标"'图表标题"节点坐标"

.Axes（xlCategory,xlPrimary）.HasTitle=True

.Axes（xlCategory,xlPrimary）.AxisTitle.Characters.Text="x"'x轴标题"x"

.Axes（xlValue,xlPrimary）.HasTitle=True

.Axes（xlValue,xlPrimary）.AxisTitle.Characters.Text="y"'y轴标题"y"

EndWith

WithActiveChart.Axes（xlCategory）

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

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

EndWith

WithActiveChart.Axes（xlValue）

.HasMajorGridlines=True'标出x轴主网格值，默认情况下为标注

.HasMinorGridlines=False'取消x轴次网格值标注，默认情况下为不标注

EndWith

ActiveChart.Legend.Position=xlRight'图例显示在图表右侧

2、嵌入式图表

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

详见下例。

Set嵌入表=ActiveSheet.ChartObjects.Add（0,0,200,300）'在当前工作表（0,0）坐标处添加宽200，高300的嵌入式图表

嵌入表.Chart.ChartType=xlColumnClustered'图表类型为簇状柱形图

嵌入表.Chart.SetSourceDataSource:

=Sheets

（1）.Range（"A2:

B2"）,PlotBy:

=xlRows'设置图表数据来源

With嵌入表.Chart

.HasTitle=False'无图表标题

.Axes（xlCategory,xlPrimary）.HasTitle=False'无x轴标题

.Axes（xlValue,xlPrimary）.HasTitle=False'无y轴标题

EndWith

五）、工作表

1、添加

Sheets.Addbefore:

=Sheets

（1）'在第1工作表前添加新工作表

Sheets.Addafter:

=Sheets（Sheets.Count）'在最后工作表后添加新工作表

2、移动

ActiveSheet.Movebefore:

=Sheets

（2）'将当前工作表移动至第2工作表之前

3、命名

ActiveSheet.Name="工作表名"'将当前工作表命名为"工作表名"

4、删除

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

ActiveSheet.Delete

但在删除前Excel会自动弹出提示框，需在用户确认前方可执行删除。

为防止这一干扰，可以先用以下语句关闭Excel的警告提示。

Application.DisplayAlerts=False

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

Application.DisplayAlerts=True

六）、工作簿

Excel的宏对工作簿的操作主要为保存。

Dim存盘文件名AsString

ActiveWorkbook.Save'保存当前工作簿

存盘文件名="工作表名"

ActiveWorkbook.SaveAsFilename:

=存盘文件名'当前工作簿另存为"工作表名.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（""）.worksheet（""）.range（""）.***一行行排得挺整齐的，还说都用复制，其实也不麻烦。

8、总想把VBA+EXCEL做得象一个程序一样，其实，就因为它不独立，所以才更加为我们喜爱，不是吗？

64、用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！

使用Dim语句

Dimaasinteger'声明A为整形变量

Dima'声明A为变体变量

Dimaasstring'声明A为字符串变量

Dima,b,cascurrency'声明A,b,c为货币变量

声明变量可以是：

Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal〔当前不支持〕、Date、String〔只限变长字符串〕、String*length〔定长字符串〕、Object、Variant、用户定义类型或对象类型。

强制声明变量

OptionExplicit

说明：

该语句必在任何过程之前出现在模块中。

声明常数，用来代替文字值。

Const'常数的默认状态是Private。

ConstMy=456'声明Public常数。

PublicConstMyString="HELP"'

声明Private