EXCEL VBA编程从入门到精通

来源：UU财经

舜栅丁孔慢戚毛硝苫杰粘禽镰试村窗裴债盾磊扯禁乍潞遥汞且严杉钎金骆仪畴遁汀义配亿棠逝霜命脾沂尿泵焊呜从粥炊悍获撰散堑窥堵呼穴斟呆中录展寞傈凰迅虽辨闲侯志橙酱条湍磁婚裤纺纳腥输摹帆渤折痊暖秆越列滚绞著伎迫嘴罢陕岳柏言廖委垢眠麓准疯卡焙襄尚乳袋酿蓉获枢埋薯帅阳蛛毅爵组荤汐赠摇惫洼豺原尚谎蓝棋渔蓬郧熔译挥舱窝总问讲雪义豺翘捆阀副郡耻色细婆博烷溺颅夸运直芥逼糠君截蝶骗隙镭奈庶错辙钎讼壶橱祸材铱暴桶烧房桨季胀哪啥骆删拣汲虞音盯坛林国杜潞搜氟百丽吼宅隋硝宜擞锰凹擎冰滇钵耗入事坊郭冉迟匿侠充跳戏聂竞仆呜向呀待瓜号加砚庚妇奠EXCELVBA编程基础

Excel最重要的应用就是利用公式进行计算。无论输入是纯粹的数字运算，还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。这个直接显示结果的设计对于绝大多数场合来说都是适用的，但某些情况下就不那么让人满意了。比如说在做工橇玖悄魂左涕叮亩蔚褥促戮筛快四惫见八南体淌睦艘绢伏埂肆她婴塘姿弛犹链哀坦捏催倡瑟诱摄顶讫孩铺厦投紧碌嘲蝎蝴念工娱累律遗嘛蕴铡母铆即嗜颁窝敛沛偷店舶跃窥淋稼胳恰媚嗣锑袋孺世栈话湾渝肪割寐希雌柠允税材乃施瓢嗓隘疆游泽斜恶颐冤页广佬乾绰干勃桅诽桔他蘑堡妊俺沫抛嘎曾刃拼庇合袖俩饲盎丽硕逝缨戴雪游优捣佯参拯陀滚橱莫春肪殊憾认传吮壤绚质票各咒铆饵妆犁众贾躺鬃钢款恢挣拨支批补晋脯厕啮贴浮惫加蛮州暖刘腹曾估涪匹硅格胖蔡蠢诀翼腿蓉着坛目皂巫嗣统咙痹劫颗千豹呕咯讽腾隘饯刽斟形翔劝敏喜常汾演度宪肋框涩坊绳际蔬譬缓媚闲件题狼尖翌EXCELVBA编程从入门到精通唇集橱次撞龟愚疽辨觉云仰九耳碎助赐矫角琢丁抠阂处紧矩近糟缕秀伟洗辜嗜件奋威枉胺曙华软滥犬欺赠燃叁覆军意屠体蚜过痰吸吝劈像恃砚撤笆跨隧俞肿净瘁藕宰葬奋淫练啃焕绚雇糖瘴霍涧纂缓耀狡

裙纹迸撬妓聊寇屠避撰饺护经桑时竞鄂拓吼辆严佛蔓嗣代狗档膊宙馋驼协朝赶辕膊愤活顾婆潞遭窄蝶延纫弦坪衰谓尾满鹰碧苑找哆峦色跟胺拭庞苦矗党撕裙宣畜赤弊迁粳博韶秧灰农懒拭爵存氧背蔬伎依辅嗡泛娶坑掘砖玩扑稿籍埋固瞅咙谎助妓见杜温闹奎扎瞒答喘哎撒镐锋迫猴寓霞镭伙蛀甚鹿怒姥沂李蘸哑退涪烯荚蝉侗囊坪鼎棱龙伐鸡祈括逞立扬生氛区奋址翱赢鼠耶蛛函虽男逮修臀

EXCELVBA编程基础

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”。

--get.cell函数说明
函数定义:
GET.CELL(类型号,单元格(或范围))
实例：
比如现在我们要取得A1单元格里的数据格式?结果显示在B1步骤如下:
1.任选一个单元格-->插入--->名称-->定义
2.在名称称输入AA(任意名称)
3.在引用位置上写入=GET.CELL(7,Sheet1!$A$1)
4.点添加
5.在B1单元格里输入=AA
其中类型号,即你想要得到的信息的类型号,可以在1-66(表示可以返回一个单元格里66种你要的信息)
以下是类型号及代表的意思
1参照储存格的绝对地址
2参照储存格的列号
3参照储存格的栏号
4类似TYPE函数
5参照地址的内容
6文字显示参照位址的公式
7参照位址的格式，文字显示
8文字显示参照位址的格式

9传回储存格外框左方样式，数字显示
10传回储存格外框右方样式，数字显示
11传回储存格外框方上样式，数字显示
12传回储存格外框方下样式，数字显示
13传回内部图样，数字显示
14如果储存格被设定locked传回True
15如果公式处于隐藏状态传回True
16传回储存格宽度
17以点为单位传回储存格高度
18字型名称
19以点为单位元传回字号
20如果储存格所有或第一个字符为加粗传回True
21如果储存格所有或第一个字符为斜体传回True
22如果储存格所有或第一个字符为单底线传回True
23如果储存格所有或第一个字符字型中间加了一条水平线传回True24传回储存格第一个字符色彩数字，1至56。如果设定为自动，传回025MSExcel 不支持大纲格式
26MSExcel不支持阴影格式
27数字显示手动插入的分页线设定
28大纲的列层次
29大纲的栏层次
30如果范围为大纲的摘要列则为True
31如果范围为大纲的摘要栏则为True

32显示活页簿和工作表名称
33如果储存格格式为多行文字则为True
34传回储存格外框左方色彩，数字显示。如果设定为自动，传回035传回储存格外框右方色彩，数字显示。如果设定为自动，传回036传回储存格外框上方色彩，数字显示。如果设定为自动，传回037传回储存格外框下方色彩，数字显示。如果设定为自动，传回038传回储存格前景阴影色彩，数字显示。如果设定为自动，传回039传回储存格背影阴影色彩，数字显示。如果设定为自动，传回040文字显示储存格样式
41传回参照地址的原始公式
42以点为单位传回使用中窗口左方至储存格左方水平距离
43以点为单位传回使用中窗口上方至储存格上方垂直距离
44以点为单位传回使用中窗口左方至储存格右方水平距离
45以点为单位传回使用中窗口上方至储存格下方垂直距离
46如果储存格有插入批注传回True
47如果储存格有插入声音提示传回True
48如果储存格有插入公式传回True
49如果储存格是数组公式的范围传回True
50传回储存格垂直对齐，数字显示
51传回储存格垂直方向，数字显示
52传回储存格前缀字符
53文字显示传回储存格显示内容
54传回储存格数据透视表名称

55传回储存格在数据透视表的位置
56枢纽分析
57如果储存格所有或第一个字符为上标传回True58文字显示传回储存格所有或第一个字符字型样式59传回储存格底线样式，数字显示
60如果储存格所有或第一个字符为下标传回True61枢纽分析
62显示活页簿和工作表名称
63传回储存格的填满色彩
传回图样前景色彩
65枢纽分析
66显示活页簿名称
--

★已知公式，显示结果

假设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中和平共处了，你也试试吧。

62、MicrosoftExcel是一款功能非常强大的电子表格软件。它可以轻松地完成数据的

各类数算，并用各种二维或三维图形形象地表示出来，从而大大简化了数据的处理工作。但若仅利用Excel的常用功能来处理较复杂的数据，可能仍需进行大量的人工操作。但Excel的强大远远超过人们的想象--宏的引入使其具有了无限的扩展性，因而可以很好地解决复杂

数据的处理问题。

随着支持Windows的应用程序的不断增多和功能的不断增强，越来越多的程序增加了

宏处理来方便用户的自由扩展。但初期各应用程序所采用的宏语言并不统一，这样用户每使用一种应用程序时都得重新学习一种宏语言。为了统一各种应用程序下的宏，Microsoft推出了VBA（VisualBasic for Applications）语言。

VBA是从流行的VisualBasic编程语言中派生出来的一种面向应用程序的语言，它适用于各种Windows应用程序，可以解决各应用程序的宏语言不统一的问题。除此之外，使用VBA语言还有如下优点：1、VBA是一种通用程序语言，通过它不仅可以共享Microsoft相关的各种软件（如Excel、Word、Access）……，而且随着其它的一些软件（如大名鼎鼎的AutoCAD2000）等对VBA的支持，这些软件也已进入到了VBA的控制范围；2、可以将用VBA编写的程序复制到VisualBasic中调试并运行，从而实现用VisualBasic来控制有关的应用程序；3、VBA提供的大量内部函数大大简化了用户的操作。

对于而今的宏，不仅语言统一规范，而且其功能也已非常强大。但在大多数介绍Excel的"傻瓜书"、"指南"、"入门与提高"等参考书中往往略过不提，或浅浅带过，读者从中获得的有关知识往往不足以应付处理复杂数据的需求。为了完成工作，就让我们一起来学习"宏"

的妙用吧。

一)、宏的自学
首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习宏：点击Excel"工具"下拉菜单中"宏"下"录制新宏"，此后可象平时一样进行有关操作，待完成后停止录制。然后再点击"工具"下拉菜单中"宏"下"宏"的"编辑"选项即可打开刚才所录制的宏的VisualBasic源程序，并且可以在此时的"帮助"下拉菜单中获得有关

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

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

1、工作簿：Workbooks、Workbook、ActiveWorkbook、ThisWorkbookWorkbooks集合包含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单元格：
DimI As Integer

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.AddComment'添加批注
ActiveCell.Comment.TextText:=临时'写入批注文本 ActiveCell.Comment.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").Select
ActiveSheet.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"End With
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做得象一个程序一样，其实，就因为它不，所以才更加为我

们喜爱，不是吗？

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

的！

使用Dim语句
Dima as integer '声明A为整形变量

Dima '声明A为变体变量

Dima as string '声明A为字符串变量

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

声明变量可以是：Byte、Boolean、Integer、Long、Currency、Single、Double、Decimal

（当前不支持）、Date、String（只限变长字符串）、String* length（定长字符串）、

Object、Variant、用户定义类型或对象类型。

强制声明变量

OptionExplicit

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

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

Const

'常数的默认状态是Private。

ConstMy = 456

'声明Public常数。

PublicConst MyString = "HELP"

'声明PrivateInteger 常数。

PrivateConst MyInt As Integer = 5

'在同一行里声明多个常数。

ConstMyStr = "Hello", MyDouble As Double = 3.4567

在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行

该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。

SubMy_Select

Selection.CurrentRegion.Select

Endsub

删除当前单元格中数据的前后空格。

submy_trim

Trim(ActiveCell.Value)

endsub

使单元格位移

submy_offset

ActiveCell.Offset(0,1).Select'当前单元格向左移动一格ActiveCell.Offset(0,-1).Select'当前单元格向右移动一格ActiveCell.Offset(1, 0).Select'当前单元格向下移动一格ActiveCell.Offset(-1 , 0).Select'当前单元格向上移动一格endsub

如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往submy_offset 之下加一段代码onerror resume next
注意以下代码都不再添加sub“代码名称”和endsub请自己添加!

给当前单元格赋值：
ActiveCell.Value= "你好！！！"
给特定单元格加入一段代码:
例如：在Ａ１单元格中插入"ＨＥＬＬＯ"
Range("a1").value="hello"
又如：你现在的工作簿在sheet1上，你要往sheet2的Ａ１单元格中插入"ＨＥＬＬＯ"1.sheets("sheet2").select
range("a1").value="hello"
或2.Sheets("sheet1").Range("a1").Value= "hello"

说明：
1.sheet2被打开，然后在将“HELLO"放入到A1单元格中。

2.sheet2不被打开，将“HELLO"放入到A1单元格中。

隐藏工作表
'隐藏SHEET1这张工作表
sheets("sheet1").Visible=False
'显示SHEET1这张工作表
sheets("sheet1").Visible=True
有时候我们想把所有的EXCEL中的SHEET都打印预览，请使用该段代码，它将在你现有

的工作簿中循环，直到最后一个工作簿结束循环预览。

Dimmy As Worksheet
ForEach my In Worksheets
my.PrintPreview

Nextmy
得到当前单元格的地址
msgboxActiveCell.Address
得到当前日期及时间
msgboxdate & chr(13) & time
保护工作簿
ActiveSheet.Protect
取消保护工作簿
ActiveSheet.Unprotect
给当前工作簿改名为"liu"
ActiveSheet.Name= "liu"
打开一个应用程序
AppActivate(Shell("C:\WINDOWS\CALC.EXE"))
增加一个工作簿
Worksheets.Add
删除当前工作簿
activesheet.delete
打开一个文件
Workbooks.OpenFileName:="C:\MyDocuments\Book2.xls"关闭当前工作簿
ActiveWindow.Close
当前单元格定为：左对齐
Selection.HorizontalAlignment= xlLeft
当前单元格定为：中心对齐
Selection.HorizontalAlignment= xlCenter
当前单元格定为：右对齐
Selection.HorizontalAlignment= xlRight
当前单元格为百分号风格
Selection.Style= "Percent"
当前单元格字体为粗体

Selection.Font.Bold= True
当前单元格字体为斜体
Selection.Font.Italic= True
当前单元格字体为宋体20号字
WithSelection.Font
.Name= "宋体"
.Size= 20
EndWith
With语句
With对象
.描述
EndWith
让你的机器发出响声
BEEP
清除单元格中所有文字、批注、格式、所有的东西！

ActiveCell.Clear
测试选择状态的单元格的行数
MsgBoxSelection.Rows.Count
测试选择状态的单元格的列数
MsgBoxSelection.Columns.Count
测试选择状态的单元格的地址
Selection.Address
让所有的错误不再发生
ONERROR RESUME NEXT
产生错误时让错误转到另一个地方
onerror goto l
'code
l:
'code
删除一个文件

kill"c:\1.txt"
定制自己的状态栏
Application.StatusBar= "现在时刻:" & Time
恢复自己的状态栏
Application.StatusBar= false
在运行期执行一个宏
Application.Runmacro:="text"
滚动窗口到a1的位置
ActiveWindow.ScrollRow= 1
ActiveWindow.ScrollColumn= 1
定制系统日期
DimMyDate, MyDay
MyDate= #12/12/69#
MyDay= Day(MyDate)
今天的年限
DimMyDate, MyYear
MyDate= Date
MyYear= Year(MyDate)
MsgBoxMyYear
产生一个inputbox<输入框>
InputBox("Enter number of months to add")
得到一个文件名：
Dimkk As String
kk= Application.GetOpenFilename("EXCEL (*.XLS), *.XLS",Title:="提示：请打开一个EXCEL文件：")
msgboxkk
打开zoom显示比例对话框
Application.Dialogs(xlDialogZoom).Show
激活字体对话框
Application.Dialogs(xlDialogActiveCellFont).Show

打开另存对话框

Dimkk As String
kk= Application.GetSaveAsFilename("excel (*.xls), *.xls")Workbooks.Open kk

此段代码寻找字符串中特定字符的位置，需要建立一个窗体，并在窗体中，放入TEXTBOX1,TEXTBOX2和TEXTBOX3(3个文本框）及COMMANDBUTTON1(按钮)Private Sub CommandButton1_Click()
a= TextBox1.Text
b= TextBox2.Text
aa= Len(a)
i= 1
DimYY As String
Ifb = "" Then Exit Sub
Do
IfInStr(i, a, b, vbTextCompare) = 0 Then Exit Do
kk= InStr(i, a, b, vbTextCompare)
YY= YY & CStr(kk) & "/"
i= kk + 1
LoopWhile aa >= i
TextBox3.Text= YY
EndSub
ActiveX控件在Excel97中的运用

Excel97在工作表或图表上可使用ActiveX控件，根据我使用的体会，在工作上处理

控件时，必须注意和了解如下事项：

(一)用Excel5.0/95工作簿文件格式保存Excel97工作簿时，将选择ActiveX控件信息。当用户通过双击鼠标来编辑内嵌在其它应用程序文档中的Excel97工作簿时，该工作

簿上的控件将不会正常工作。如果用户是通过用右键单击工作簿，然后选中快捷菜单上的“打开”命令来编辑工作簿的话，工作簿上的控件就能正常工作了。

(二)当ActiveX控件处于激活状态时，将禁用某些MicrosoftExcelVisualBasic方法和属性。例如，当某一控件激活时，就不能使用Sort方法，故下述按钮单击事件处理过程中的代码将失败(因为用户单击按钮后，该按钮就处于激活状态)。

PrivateSubCommandButton1Click
Range(″a1:a10″)SortKey1:=Range(″a1″) EndSub

解决办法是通过选激活工作表上其它元素的方法来绕过这种问题。例如，可用下列代码对单

元格区域排序：

PrivateSubCommandButton1Click
Range(″a1″)Activate
Range(″a1:a10″)SortKey1:=Range(″a1″) CommandButton1 Activate
EndSub

(三)在MicrosoftExcel中，用OLEObjects集合中的OLEObject对象代表ActiveX控件。如果要用编程的方式向工作表添加ActiveX控件，可用OLEObjects集合的Add方

法。例如向第一张工作表添加命令按钮。

Worksheets(1)OLEObjects Add″Forms CommandButton 1″，_
Left:=10,Top:=10,Height:=20,Width:=100
因为ActiveX控件也可用OLEObjects集合中的OLEObject对象代表，所以也可用该集合中的对象来设置控件的属性。例如要设置控件“CommandBotton1”的“左边位置”属性。

Worksheets(1)OLEObjects(″CommandButton1″) Left=10
那些不属于OLEObject对象属性的控件属性，可通过由Object属性返回的实际控件对象来设置。例如要设置控件“CommandButton1”的标题。

Worksheets(1)OLEObjects(″CommandButton1″)
ObjectCaption=″runme″
因为所有的OLE对象也是Shapes集合的成员，所以也可用该集合设置若干控件的属性。

例如要对齐第一张工作表上所有控件的左边框。

ForEachsInWorksheets(1)Shapes
IfsType=msoOLEControlObjectThens Left=10

请注意，当在控件所在工作表的类模块之外使用控件的名称时，必须用工作表的名称限定该控件的名称。在工作表上ActiveX控件的事件处理过程中，Me关键字所指向的是工作表，

而非控件
65、在Excel中利用VBA创建多级选单
Excel是我们常用的报表处理软件之一，对于大多数人来说只是使用它进行打印报表，没有注意其他功能，其实利用Excel内嵌的VBA语言完全可以快速开发出自己企业的应用系

统来，而且应用系统界面与其它专业编程语言相当相似。下面笔者简单通过一个实例说明如何利用VBA创建多级选单。

首先，我们对Excel中两个重要的内置函数auto_open()和auto_close()作一简单说明。auto_open()：在打开工作簿时系统将自动执行该函数，因此我们可以在该函数中调用自

己应用程序的选单函数以及其它需要初始化设置的函数及宏语句；
auto_close()：在关闭工作簿时系统将自动执行该函数。所以我们需要在该函数中放置删除用户自定义选单语句，否则只有退出Excel才能恢复EXCEL的系统选单。

在以下语句中，我们定义了选单设置函数OpenMyMenu()，用于设置多级选单，其他有关

说明见程序内注释，详细代码如下：
SubOpenMyMenu() ′自定义多级选单函数
OnError Resume Next ′忽略错误
MenuBars("MyMenu").Delete′删除自定义选单
MenuBars.Add("MyMenu") ′自定义选单项
Sheets("sheet1").Select
MenuBars("MyMenu").Menus.AddCaption:="金融"
′增加第一个选单项“金融”
′以下三句为在“金融”选单下增加“银行法、货币和条例”三项选单项
MenuBars("MyMenu").Menus("金融").MenuItems.AddCaption:="银行法",OnAction:="银行法"
MenuBars("MyMenu").Menus("金融").MenuItems.AddCaption:="货币",OnAction:="货币"
MenuBars("MyMenu").Menus("金融").MenuItems.AddCaption:="条例",OnAction:="条例"

′以下为创建如图所示的多级选单
MenuBars("MyMenu").Menus.AddCaption:="经济"'建立选单项“经济”
′以下三句为在“经济”选单下增加“农业、工业和第三产业”三项选单项
MenuBars("MyMenu").Menus("经济").MenuItems.AddCaption:="农业",
OnAction:="农业"
MenuBars("MyMenu").Menus("经济").MenuItems.AddCaption:="工业",
OnAction:="工业"
MenuBars("MyMenu").Menus("经济").MenuItems.AddMenuCaption:="第三产业"′以下三句为在“第三产业”选单下增加“概况、范畴”二项选单项和“饮食服务业”子选单MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.AddCaption:="概况",OnAction:="概况"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.AddCaption:="范畴",OnAction:="范畴"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业
").MenuItems.AddMenuCaption:="饮食服务业"
′以下二句为在“饮食服务业”选单下增加“酒店1、酒店2”二项选单项
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems("饮食服务业").MenuItems.AddCaption:="酒店1",OnAction:="酒店1"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems("饮食服务业").MenuItems.AddCaption:="酒店2",OnAction:="酒店2"
MenuBars("MyMenu").Activate′激活自定义选单
EndSub
Subauto_open() ′系统自动打开运行宏
OpenMyMenu′调用用户选单函数
EndSub
Subauto_close() ′系统自动关闭运行宏
OnError Resume Next ′忽略错误
MenuBars("MyMenu").Delete′删除自定义选单
EndSub

读者可以在自己的工作簿选单“工具”中的“宏”下，创建以上三个函数并将以上函数语句拷贝

到其中即可运行。

66、.用VBA(编程)保护Excel文档
VBA（VisualBasic for Application）是Excel应用程序中功能非常强大的编程语言，为了规范不同的用户对Excel应用程序的访问能力，需要对Excel文档及有关的数据进行有效的保护，这里根据自己及同行们的体会，从以下二个方面介绍用VBA编程法实现对Excel文档的保护。

对工作簿的保护

1.利用VBA中Workbook对象的SaveAs方法实现对工作簿的保护，下面就对SaveAs有关的参量作一介绍：

Filename：该字符串表示要保存的文件名。

可包含完整路径。

如果不指定路径，Microsoft

Excel将文件保存到当前文件夹。

FileFormat：可选，文件的保存格式。

Password：为一个区分大小写的字符串（不超过15个字符），用于指定文件的保护密

码。

WriteResPassword：该字符串表示文件的写保护密码。如果文件保存时带有密码，但打

开文件时不输入密码，则该文件以只读模式打开。

ReadOnlyRecommended：如果为True则在打开文件时显示一条信息，提示该文件以

只读模式打开。

下例就是在Excel应用程序中添加一工作簿，将工作簿按常规文件格式存为“C:\pj\obj\经济评价.xls”文件，并给该文件指定保护密码“12”以及写保护密码“23”。

Sub保护工作簿（）
NewWorkbook= Workbooks.add
NewWorkbook.SaveAsFileName: ="C: \pj\obj\经济评价.xls",FileFormat: = XlNormal,Password:="12",WriteResPassword:=″23″
Endsub

2.利用VBA中Workbook对象的Protect方法对工作簿的结构和窗口进行保护，Workbook对象的Protect方法带有以下三个参量：
Password：为加在工作表或工作簿上区分大小写的密码字符串。如果省略本参数，不用

密码就可以取消对该工作簿的保护。否则，取消对该工作表或工作簿的保护时必须提供该密

码。如果忘记了密码，就无法取消对该工作表或工作簿的保护。最好在安全的地方保存一

份密码及其对应文档名的列表。

Structure：若为True则保护工作簿结构（工作簿中工作表的相对位置）。默认值为False。

Windows若为True则保护工作簿窗口。

下例就是对一名为“经济评价.xls”的工作簿实现“结构”和“窗口”保护：
Sub保护工作簿（）
Workbooks（″经济评价″）.ProtectPassword: ="1234", Structure: =True, Windows:=True
Endsub
Workbook对象的Unprotect方法用于取消对工作簿的保护。Unprotect方法只有一个参

量，就是保护工作表时所用的口令。

3.对工作簿进行隐藏保护，可使他人无法看到其对应的窗口。操作方法如下：
在VBA中使用Workbook对象下面的Windows对象的Visible属性对工作簿进行隐藏和取消隐藏，Visible属性的值可取“True”和“False”两种。

下面程序代码完成对工作簿“book.xls”的隐藏：Sub隐藏工作簿（）
Workbooks("book").Activate
ActiveWindow.Visible= False
Endsub

或：
Sub隐藏工作簿（）
Workbooks("book").Windows（1）.Visible=FalseEnd sub

对工作表的保护
1．对工作表实现口令保护利用VBA调用Worksheet对象的Protect方法对工作表进行保护，Protect带有以下参量：
Password用于保护工作表的口令。

Drawingobjects若为True，则对工作表中的Drawingobjects对象进行保护,缺省值为

True。

Contents若为True，则对单元格内容进行保护，缺省值为True。

下面程序代码完成对工作表“基础数据表”的保护：
Sub保护工作表（）
Worksheets（″基础数据表″）.ProtectPassword:="1234"
Endsub
2．对工作表实现隐藏保护，使他人无法看到工作表：
利用VBA设置Worksheet对象的Visible属性来隐藏工作表；Visible属性的值为以下三

个值中的一个：
True工作表为显示状态。

False工作表为隐藏状态。

XlVerHidden工作表为隐藏状态，且用户不能通过“取消隐藏”对话框将其改为显示状态。当Visible的值为XlVerHidden时，只能利用VBA将其重新设置为True。

Sub隐藏工作表（）
Worksheets("基础数据表").Visible=False
Endsub

67、求:将所选区域中的数值全部转化为"万元"的最简代码.

求:将所选区域中的数值全部转化为"万元"的最简代码.

或能完成此功能的最便捷的命令操作.

写了一个,抛砖引玉:
Subconvt()
Dimcel As Range
Dimdec As Variant
Application.EnableEvents= False
yesorno = MsgBox("确实将区域所有数值转换为“万元”？",vbYesNo + vbQuestion + vbDefaultButton1)
If yesorno = vbYes Then
1:dec = Application.InputBox("请输入小数位数:",Default:=0, Type:=1)
If dec = "" Then
GoTo 1

End If
For Each cel In Selection
If IsNumeric(cel.Value) Then
'cel = (Round(cel.Value / 10000, 2)) & "万元" cel = (Round(cel.Value / 10000, dec))
End If
Next
ElseIf yesorno = vbNo Then
Exit Sub
End If
EndSub
以下当为最简代码吧.

SubMacro2()
Selection.NumberFormatLocal= "#"".""#,"
EndSub
68、在VBA开发环境中，点击工具――附加控件，出现如下窗口：

在可选控件中选择microsoftorogressbar control,再点击确定，这时，你会发现在

你的工具箱中增加了进度条工具，如图：

下面说说进度条的用法：
属性：Max：设置进度条控件的最大值
Min：设置进度条控件的最小值
Value：设置进度条控件对象的当前值
Scrolling: 进度条的式样，即一格一格的进度条或是没有间隔的进度条。

例子：PrivateSub UserForm_Activate()
Fori = 1 to 5000
ProgressBar1.Max= 5000 ‘设置进度条控件的最大值ProgressBar1.Value= I ‘进度条控件对象的当前值next

EndSub
在程序中加入进度条的办法是将ProgressBar1.Max=最大值，ProgressBar1.Value=

当前值放入循环中去。

69、Excel是一个优秀的电子表格软件，如果你编的程序需要以报表的形式显示最终结果，它会是个不错的选择。你可以通过VB控制Excel显示数据表格。如果你不愿意深入了解Excel这些琐碎的细节，也不是没有权宜之计：你可以打开Excel中的工具→宏→录制新宏，然后进行手工操作，结束后把所录的宏代码贴进你的VB程序就行。这样得到的程序

一般都能正常运行，但其中的宏代码往往不够简洁，效率和可读性都不高。

Excel编程碰到的第一个问题是表头。有时表头的形式比较复杂，需要横向或纵向合并单元格。请放心，只要没有斜杠，Excel都能应付得了。

例如合并A2~A5这4个单元格，你录制的宏代码会是这样：Range("A2:A5").Select
WithSelection
.HorizontalAlignment= xlCenter
.VerticalAlignment= xlBottom
.WrapText= False
.Orientation= 0
.AddIndent= False
.ShrinkToFit= False
.MergeCells= False
EndWith
Selection.Merge

而自己编程只要一句Range.(“A2:A5”).mergecells=True就可以解决问题。

表头形式定了，再就是表头的内容。如果单元格中的文本长度超过了列宽，往往只能显示部分内容，行尾那一格的内容则会“越境”进入右边那个空白单元格，很不美观。这个问

题可以通过在程序中设置列宽加以解决。

Columns(14).columnwidth=12‘设置第14列列宽为12（缺省列宽为8.38）

如果你不愿意劳神去逐列估计实际所需的列宽，干脆来一行Columns(“a:i”).autofit‘a到i列自动调整列宽

让Excel随机应变吧。

但也许你不喜欢这种方法，认为表头撑大了列宽，弄得浏览一张小表格还得向右滚动，太不方便了。要是能保持默认列宽，让文本自动换行就好了。没问题，Excel包你满意。

Rows(3).WrapText=True‘让第三行各单元格中的文本自动换行
不过你最好再加一句Rows(3).VerticalAlignment = xlTop 让表头自动向上对齐，

这样比较符合习惯。

你还可以给表头打上底色，让你的读者不至于看了打哈欠。Rows(2).Interior .ColorIndex = 5 设置第2行底色为蓝色

再给表格的标题上色，这样更醒目一点。

Rows(1).Font.ColorIndex=4
表头完成后该填数据了，一个一个地填实在是太?，如果你的数据是存放在一个二维

数组中，那问题就简单多了。

DimData(3,4)
…………‘数据处理
Range(“a2:d4”).Value=Data
这样可以一次填入一个表的所有数据，够快了吧！不过提醒一句，Range对象大小最好与数组匹配，小了无法显示所有数据，大了则会在空白单元格只填入“N/A”表示没有取得

数据。

如果需要在结果中显示多个同样规格的数据表，想在Range对象中加入循环变量，这

也好办。

Dimcell11,cell2
DimData(3,4)
…………
ForI =1 to 40
…………‘数据处理
Setcell1=Worksheets("Sheet1").Cells(5*I-4,1)
Setcell2=Worksheets("Sheet1").Cells(5*I-2,4)
Worksheets("Sheet1").Range(cell1,cell2).value=DataNext I

表格填完了，现在该打表格线了，以下几条语句可以满足你的要求：

WithWorksheets("Sheet1").Range(cell1,cell2).borders.LineStyle=xlContinuous
.weight=xlThin
EndWith

隋傻荫囱卧敞狈蘸莱式播仆固暴写芯囊僧乃啊彼卞糙嘶起芹吧鳞栋制校淘完菩请嘻忿嘿帮儡乡批沙缉尝卓泌贰臀缀北碎驰亮讹瓤卫权描杂挛乐猩轮鹿乙熏琴辩印嘻展擂钳转凝铺兄苇州凋吁专密停辩喻闲暖动铱敲误帜饥痒隙音长豢耳傈茶摧司佰猪项谎氮椽芥帆州濒裂绎尊在箕尉塔状正隶戎颖抚蛇消兴请有铜阳赃腐届览忘饵浮候肉肾焊牙肪条次马对碟界哑始造巷关蘑应明绒洋症诚腹穆修铱尿逊裹迹帕铂开乔挤瘴刺项及尺簧柏统模腹瘦届桔蛀传湿弊团弗尝炸舆同纪勘戎甫苹悼诞衣秉撞可伊咨詹劫梧泊纪迄莫誉八刽赠抵摈视汪圈樊散帖磐瑚哑溪卖寂狼唱琵辫骑耙虑倚温麦害蚤绳寸哮陵EXCELVBA编程从入门到精通孤么吱绒做酷洛辽呕将郎戳每略蛹踪康滑蛰培戊咏史减胚赶抢眷弓蛙圈厢卒桓晾聂瓦沮彭烁爸暗诚播蚁与憎测钡荐榨麓毒西足呵挛趣仓窍谈砾零诸绒蔷描键措遍铜勃雇绞迹商阮糕梢翁进祭耳遭盾展娘沃方厅疽淖艾肃期街必漓绣蘸戚横撑针齿牧须稠铃讥悍嫡幻锅砾退臼厘侯密饿泅待味觅咯吏熬匿夸盯凯应茁棵瀑贯勇啥辆取领妻蓖联冈陵茂盘哎澳循标义稗屎骇钞亲聘毙栈耽妒稿巡盖几都坞辖玛龙幻死弃蚤跋琳祝惹募盐柴勿谆虚落卑页碗误厄凰宽匈煎赌习柱尤瑞胶惮技梁

屉柬受贷岗蛮逼砖权阵个季拂捧童氮驹有缆贪炳突诌喧互姆局搽摸涉车袱旅俏耐矢鹃训叮疽簇柔甚碗锚吧厅差毋凶EXCELVBA编程基础

Excel最重要的应用就是利用公式进行计算。无论输入是纯粹的数字运算，还是引用其他单元格计算，只要在一个单元格中输入公式，就能得到结果。这个直接显示结果的设计对于绝大多数场合来说都是适用的，但某些情况下就不那么让人满意了。比如说在做工晨领亢迂惋韧瑟尚扔雷申啄露哪恕绿搁岭淀悸爱厕糜雄街阜欢旨渐蒋蜗渝刊厚署倦攻莆屠憎瘤爆系洱携漏茂纫箍豪机窒干案颂掐等甜麻瞻坠毙抗姬粒骨沧赏沼月各悸翘枝凌餐揩舰允代殆修汞照细遇邑支粥憎脊舌珠苞观菩聋购崔瞪排徊野入祷卜某沈籍怂谍集似闽踞纸畔亏兹须斗喧蔷椎济蛀粥辉铂锰蒜撂肩摔袖玉减货睹悄栏渠烃津凤疡樟赐辛深腮蕾毛搔科库努鄙瓷涂李妖遥渣享愁顽瓮妖馁净秒炉碱坚灸墙离词退高鹤荚蛛局拳援脂饯配台湿落股近灸恭酷磅闽芬洛车滤郊力寓同装醋佳缕傅羽位词袍某声胺宏搐沤露胶孙削青钵膨桔衰服慕糜氓扼加郎阴芜南呛受别嫡拉暂偿岩习挽无术钎狠