excel的宏免费下载.docx

excel的宏免费下载.docx

《excel的宏免费下载.docx》由会员分享，可在线阅读，更多相关《excel的宏免费下载.docx（12页珍藏版）》请在冰豆网上搜索。

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更方便，因为此时可用变量指定行和列。

[dvnews_page]

可将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.AddComment'添加批注

ActiveCell.Comment.TextText:

=临时'写入批注文本

ActiveCell.Comment.Visible=False'隐藏批注[dvnews_page]

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"

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[dvnews_page]

五）、工作表

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警告提示的方法以免其自动弹出提示框。

美文欣赏

1、走过春的田野，趟过夏的激流，来到秋天就是安静祥和的世界。

秋天，虽没有玫瑰的芳香，却有秋菊的淡雅，没有繁花似锦，却有硕果累累。

秋天，没有夏日的激情，却有浪漫的温情，没有春的奔放，却有收获的喜悦。

清风落叶舞秋韵，枝头硕果醉秋容。

秋天是甘美的酒，秋天是壮丽的诗，秋天是动人的歌。

2、人的一生就是一个储蓄的过程，在奋斗的时候储存了希望；在耕耘的时候储存了一粒种子；在旅行的时候储存了风景；在微笑的时候储存了快乐。

聪明的人善于储蓄，在漫长而短暂的人生旅途中，学会储蓄每一个闪光的瞬间，然后用它们酿成一杯美好的回忆，在四季的变幻与交替之间，散发浓香，珍藏一生！

3、春天来了，我要把心灵放回萦绕柔肠的远方。

让心灵长出北归大雁的翅膀，乘着吹动彩云的熏风，捧着湿润江南的霡霂，唱着荡漾晨舟的渔歌，沾着充盈夜窗的芬芳，回到久别的家乡。

我翻开解冻的泥土，挖出埋藏在这里的梦，让她沐浴灿烂的阳光，期待她慢慢长出枝蔓，结下向往已久的真爱的果实。

4、好好享受生活吧，每个人都是幸福的。

人生山一程，水一程，轻握一份懂得，将牵挂折叠，将幸福尽收，带着明媚，温暖前行，只要心是温润的，再遥远的路也会走的安然，回眸处，愿阳光时时明媚，愿生活处处晴好。

5、漂然月色，时光随风远逝，悄然又到雨季，花，依旧美；心，依旧静。

月的柔情，夜懂；心的清澈，雨懂；你的深情，我懂。

人生没有绝美，曾经习惯漂浮的你我，曾几何时，向往一种平实的安定，风雨共度，淡然在心，凡尘远路，彼此守护着心的旅程。

沧桑不是自然，而是经历；幸福不是状态，而是感受。

6、疏疏篱落，酒意消，惆怅多。

阑珊灯火，映照旧阁。

红粉朱唇，腔板欲与谁歌？

画脸粉色，凝眸着世间因果；未央歌舞，轮回着缘起缘落。

舞袖舒广青衣薄，何似院落寂寞。

风起，谁人轻叩我柴扉小门，执我之手，听我戏说？

7、经年，未染流殇漠漠清殇。

流年为祭。

琴瑟曲中倦红妆，霓裳舞中残娇靥。

冗长红尘中，一曲浅吟轻诵描绘半世薄凉寂寞，清殇如水。

寂寞琉璃，荒城繁心。

流逝的痕迹深深印骨。

如烟流年中，一抹曼妙娇羞舞尽半世清冷傲然，花祭唯美。

邂逅的情劫，淡淡刻心。

那些碎时光，用来祭奠流年，可好？

8、缘分不是擦肩而过，而是彼此拥抱。

你踮起脚尖，彼此的心就会贴得更近。

生活总不完美，总有辛酸的泪，总有失足的悔，总有幽深的怨，总有抱憾的恨。

生活亦很完美，总让我们泪中带笑，悔中顿悟，怨中藏喜，恨中生爱。

9、海浪在沙滩上一层一层地漫涌上来，又一层一层地徐徐退去。

我与你一起在海水中尽情的戏嬉，海浪翻滚，碧海蓝天，一同感受海的胸怀，一同去领略海的温情。

这无边的海，就如同我们俩无尽的爱，重重的将我们包裹。

10、寂寞的严冬里，到处是单调的枯黄色。

四处一片萧瑟，连往日明净的小河也失去了光彩，黯然无神地躲在冰面下恹恹欲睡。

有母女俩，在散发着丝丝暖意的阳光下，母亲在为女儿梳头。

她温和的把头发理顺。

又轻柔的一缕缕编织着麻花辫。

她脸上写满笑意，似乎满心的慈爱永远装不下，溢到嘴边。

流到眼角，纺织进长长的。

麻花辫。

阳光亲吻着长发，像散上了金粉，闪着飘忽的光辉。

女儿乖巧地依偎在母亲怀里，不停地说着什么，不时把母亲逗出会心的微笑，甜美的亲情融化了冬的寒冷，使萧索的冬景旋转出春天的美丽。

11、太阳终于伸出纤纤玉指，将青山的柔纱轻轻褪去。

青山那坚实的肌胸，挺拔的脊梁坦露在人们的面前，沉静而坚毅。

不时有云雾从它的怀中涌起，散开，成为最美丽的语言。

那阳光下显得凝重的松柏，那苍茫中显现出的点点殷红，那散落在群山峰顶神秘的吻痕，却又增添了青山另外的神秘。

12、原野里那郁郁葱葱的植物，叫我们丝毫感受不到秋天的萧索，勃勃生机与活力仍在田间高山涌动。

谷子的叶是墨绿的，长而大的谷穗沉甸甸地压弯了昨日挺拔的脊梁；高粱仍旧那么苗条，满头漂亮的红缨挥洒出秋的风韵；那纵横原野的林带，编织着深绿浅黄的锦绣，抒写出比之春夏更加丰富的生命色彩。

13、终于，心痛，心碎，心成灰。

终于选择，在月光下，被遗忘。

百转千回，早已物是人非；欲说还休，终于咫尺天涯；此去经年，你我终成陌路。

爱你，终是一朵花开至荼糜的悲伤，一只娥飞奔扑火的悲哀。

14、世界这么大，能遇见，不容易。

心若向阳，何惧忧伤。

人只要生活在这个世界上，就有很多烦恼，痛苦或是快乐，取决于你的内心。

人不是战胜痛苦的强者，便是屈服于痛苦的弱者。

再重的担子，笑着也是挑，哭着也是挑。

再不顺的生活，微笑着撑过去了，就是胜利。

15、孤独与喧嚣无关，摩肩接踵的人群，演绎着身外的花开花谢，没谁陪你挥别走远的流年。

孤独与忙碌迥异，滚滚红尘湮没了心境，可少了终点的奔波，人生终究一样的苍白。

当一个人成长以后，在他已经了解了世界不是由鲜花和掌声构成之后，还能坚持自己的梦想，多么可贵。

16、生活除却一份过往和爱情外，还是需要几多的遐思。

人生并不是单单的由过往和爱情符号所组成的，过往是人生对所有走过岁月的见证；因为简单，才深悟生命之轻，轻若飞花，轻似落霞，轻如雨丝；因为简单，才洞悉心灵之静，静若夜空，静似幽谷，静如小溪。