EXCEL宏编程简明教程版.docx
《EXCEL宏编程简明教程版.docx》由会员分享，可在线阅读，更多相关《EXCEL宏编程简明教程版.docx（40页珍藏版）》请在冰豆网上搜索。
EXCEL宏编程简明教程版
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单元格:
DimIAs
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"
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警示提示的方法免得其自动弹出提示框。
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"
'申明PrivateInteger常数。
PrivateConstMyIntAsInteger=5
'在同一行里申明多个常数。
ConstMyStr="Hello",MyDoubleAsDouble=3.4567
在EXCEL97中,有一个十分好的功能,他就是把鼠标搁置在一个有效数据单元格中,履行该段代码,你就能够将连在一同的一片数据所有选中。
只需将该段代码加入到你的模块中。
SubMy_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之下加一段代码onerrorresumenext
注意以下代码都不再增添sub“代码名称”和endsub请自己增添!
给目前单元格赋值:
ActiveCell.Value="你好!
!
!
"
给特定单元格加入一段代码:
比如:
在A1单元格中插入"HELLO"
Range（"a1"）.value="hello"
又如:
你此刻的工作簿在sheet1上,你要往sheet2的A1单元格中插入"HE
LLO"
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都打印预览,请使用该段代码,它将
在你现有的工作簿中循环,直到最后一个工作簿结束循环预览。
DimmyAsWorksheet
ForEachmyInWorksheets
my.PrintPreview
Nextmy
获取目前单元格的地点
msgboxActiveCell.Address
获取目前日期实时间
msgboxdate&chr（13）&time
保护工作簿
ActiveSheet.Protect
撤消保护工作簿
ActiveSheet.Unprotect
给目前工作簿更名为"liu"
ActiveSheet.Name="liu"
翻开一个应用程序
AppActivate（Shell（"C:
\WI
升级会员 