通信人家园

标题: excel的宏教程免费下载  [查看完整版帖子] [打印本页]

---

时间:  2011-3-20 18:45

作者: y_anxin     标题: excel的宏教程免费下载

　　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("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和 C34，Rows.Count返回2而不是4。
可通过Rows(行号)、Columns(列号)来引用相应的行与列；如Rows(3)、Columns(4)分别对应第三行、D列。
利用Rows、Column可以获得区域中第一块的第一行行号、第一列列号，所得值均以十进制数表示。
三)、处理单元格

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

Dim I 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剖面'!D35)"

4、引用其它工作簿中的单元格
在被引用单元格所在工作表名前加上"[工作簿名]"，即可引用其它工作簿中的单元格。如：
ActiveCell.Formula="=MAX([Book1.xls]Sheet3!R1C:RC[4])"
同样需注意的是：当被引用的工作簿名中含有某些可能引起公式歧义的字符时，需要用中括号"["、"]"及单引号'将工作簿名括起来。如：

Cells(1,2).Formula="=MIN('[1995-2000总结.xls]1995-1996年'! $A$1A$6)"

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

6、添加批注
可按如下方法格给单元格添加批注：
Dim 批注文本 As String
批注文本="批注示例" '准备批注文本
ActiveCell.AddComment '添加批注
ActiveCell.Comment.Text Text:=临时 '写入批注文本
ActiveCell.Comment.Visible=False '隐藏批注[dvnews_page]

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

Range("D10").Insert Shift:=xlToRight '在D10单元格处添加一新单元格，原D10格右移
Range("C2").Insert Shift:=xlDown '在C2单元格处添加一新单元格，原C2格下移
Rows(2).EntireRow.Insert '在第2行前添加一空白行，原第2行下移
Columns(3).EntireColumn.Insert '在C列前添加一空白列，原C列右移
Columns("A").Delete Shift:=xlToLeft '删除A列至D列，其右侧列左移
Rows("3:5").Delete Shift:=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.Add after:=Worksheets("Sheet1") '在"Sheet1"工作表之后添加新图表工作表
ActiveChart.ChartType=xlXYScatterSmooth '图表类型为XY平滑线散点图
ActiveChart.SetSourceData Source:=Sheets("结点坐标").Range("A1:B69"), PlotBy:= _
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 = "x" 'x轴标题"x"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y" 'y轴标题"y"
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("A2:B2"), PlotBy:=xlRows '设置图表数据来源

With 嵌入表.Chart
.HasTitle = False '无图表标题
.Axes(xlCategory, xlPrimary).HasTitle = False '无x轴标题
.Axes(xlValue, xlPrimary).HasTitle = False '无y轴标题

End With[dvnews_page]

五)、工作表

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

---

时间:  2011-5-11 21:41

作者: sllnnu

ding:)

---

时间:  2011-5-15 10:54

作者: suiwq

下载学习

---

时间:  2011-5-28 09:09

作者: teagee

太好了，感谢，谢谢谢谢

---

时间:  2011-6-7 14:57

作者: backyalu     标题: 谢谢

顶，感谢

---

时间:  2011-6-7 15:06

作者: xxdata

xiexie ding

---

时间:  2011-6-14 13:58

作者: likaiyang     标题: 感谢

感谢

---

时间:  2011-6-16 14:36

作者: doroamon

这个初级了点

---

时间:  2011-6-22 10:17

作者: rainforsun

这个应该很适合我

---

时间:  2011-6-22 10:30

作者: winson966

免费下载，很不错哦

---

时间:  2011-6-26 10:15

作者: adoosir

非常感谢！！！

---

时间:  2011-6-27 21:00

作者: wcfay     标题: 回复

支持！！

---

时间:  2011-6-28 16:35

作者: aiy_     标题: 谢谢共享

---

时间:  2011-7-2 22:35

作者: shanshuide

非常感谢

---

时间:  2011-7-3 21:27

作者: xxxyyyzzz123

谢谢分享，

---

时间:  2011-7-8 16:02

作者: sandy_b

非常感谢

---

时间:  2011-7-9 09:52

作者: handoff

支持 太棒了

---

时间:  2011-7-11 08:28

作者: saidw

非常感谢~~~

---

时间:  2011-7-12 16:00

作者: hyy927

顶

---

时间:  2011-7-13 10:38

作者: kenzmj

顶一个个！下载了看看好用不！

---

时间:  2011-7-15 22:00

作者: mingmingmingm

下载学习

---

时间:  2011-7-20 00:35

作者: 曹会标     标题: 自学成才

自己学会了编辑个概预算软件

---

时间:  2011-7-20 11:48

作者: sandwinter

D

---

时间:  2011-7-24 12:47

作者: s157246080

正在找这个，学习一下，谢谢！

---

时间:  2011-7-25 15:18

作者: liuyuexueyu

看看  下了

---

时间:  2011-7-26 09:22

作者: show110

载一下哦

---

时间:  2011-7-26 10:38

作者: jansener

感谢楼主分享，需要此资料。

---

时间:  2011-7-28 11:56

作者: ppengbbo     标题: 谢谢

非常感谢

---

时间:  2011-8-1 09:23

作者: yc8562

感谢分享

---

时间:  2011-8-2 14:28

作者: narcissuss90

谢谢

---

时间:  2011-8-3 16:32

作者: refinement

很不错

---

时间:  2011-8-9 08:59

作者: wwwwupengcom     标题: 回复 1# 的帖子

订

---

时间:  2011-8-12 10:49

作者: ncepugb     标题: 顶一个

顶一个

---

时间:  2011-8-18 12:26

作者: 254027983     标题: 订

我是

---

时间:  2011-8-22 18:49

作者: hhxxbb     标题: 太好了 感谢

太感谢楼主了

---

时间:  2011-8-26 15:32

作者: h5531465

谢谢！！！

---

时间:  2011-8-31 15:12

作者: staruis

DING!

---

时间:  2011-9-14 10:34

作者: Rabbit_Zhao

非常感谢，学习

---

时间:  2011-9-22 08:21

作者: zhanghelin

非常感谢

---

时间:  2011-9-22 18:46

作者: panlanpl

谢谢分享！！！！！！！！

---

时间:  2011-9-26 13:54

作者: JAMESSONGYANG

正在学习。。下载看看哪。

---

时间:  2011-9-29 10:29

作者: qqqqqq1234

谢谢！

---

时间:  2011-10-18 15:34

作者: wydyt     标题: ding

ding顶起来顶起来

---

时间:  2011-10-19 17:05

作者: likeqjly

楼主  非常的实用
丁！

---

时间:  2011-11-1 00:57

作者: johncen

fgfdggggggggggggggggg

---

时间:  2011-11-3 09:50

作者: chenqingxue

谢谢楼主

---

时间:  2011-11-3 10:31

作者: 一M月光

顶了再说，随不能下载。

---

时间:  2011-11-25 15:30

作者: yijianzhuifeng

谢谢

---

时间:  2011-11-30 14:05

作者: 简化运算

谢谢

---

时间:  2011-12-21 13:55

作者: ycjdixon

下载下来学习用的。

---

时间:  2011-12-26 11:01

作者: 大睡魔

下载下来看看

---

时间:  2011-12-29 16:33

作者: libaide     标题: 谢谢！！！

感谢提供！

---

时间:  2012-1-6 21:50

作者: icejiao

想学习下宏。。

---

时间:  2012-1-7 22:06

作者: 江北鱼痴

好资料。我想下载学习！

---

时间:  2012-1-7 22:58

作者: colasu

zhegewoxihuan

---

时间:  2012-1-10 16:23

作者: ami-2000

谢谢分享

---

时间:  2012-2-6 20:35

作者: yoyosam

你好，我需要一个宏的公式，就是将一张表里每行的数据生成表，一行生成一张表

---

时间:  2012-3-12 14:16

作者: sang3176

先帝保佑你,太给力了

---

时间:  2012-6-17 13:29

作者: sure001007

---

时间:  2012-7-31 12:52

作者: lvqingzeng

下来学习学习

---

时间:  2012-8-4 04:38

作者: mwc8341

很希望能下到我需要的文件

---

时间:  2012-9-19 09:59

作者: jouzian

感谢分享

---

时间:  2012-9-20 10:02

作者: cyluoluo

学习下

---

时间:  2012-9-20 10:34

作者: syhmilyws

初学,据说很有用

---

时间:  2012-9-21 08:51

作者: kaze923

:)从基础学起

---

时间:  2014-4-2 16:18

作者: huanghome

资料不错

---

时间:  2015-10-4 11:16

作者: lucheng16694

感谢分享

---

通信人家园 (https://www.txrjy.com/)

Powered by C114