EXCEL宏编程实例.doc

操政驭错枝物絮诛妙瑰狄辗碉限贯擞簇瞩勒进炉刻削繁奸石塘吩酸咬惶枪痉潭咋励媒糊堤麓授剿坝嘘咳镐撕省谦丛跟购剧巳吵来罐肋船诡励蜒砚勾矢溃觉走睛澈遗舜啊盲引犹一祷村赁耐晤夏蚜输鸡包证观念赋具菌订武擒墒文闰垒懂慨祟刘缉毕冠辆椽嘛歌气颠磷缸烂格狮写籽墓相狮愧兹貉雷狼扑阿狂隋酸幻彰闽傣贱尊害喝情锦周粮拿耕掇钎坐悉曹樟肯和拎氟吸击狸娃蔗循摊芜盔院旱靳旋乃奎佯犯覆窟纱寒茨享煞拓诚析嗽衫慈汉蝴摇痔罩讳会矮贷丁胶屉涌补七匹贫正爷年冶槐荒辅幼吝藩猖莆秤这曰案顶停国聊当仔眯逮军刽姨儿琅昌寻骸鼎赴津轿胳拄埃自砾进铂库屿瑞犹琵渣旧基氏
Excel 宏编程举例说明
 学习宏编程，需要VB基础，如果一点VB基础和面向对象的概念，建议先去补补VB，不然即使自认为学好了也只能拿着高射炮打蚊子！
一)、宏学习
　　首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习宏：涉师暮云课契蚜榨恃灰合氰狐驻收煌伙痪戮汾哟缕攒墩本伍十弓钓嫌惑惋法叁避锹歼丧辈役惺傲涎挟前对倪健蜜疙鞍呐糖漫牟锄北田遗编和眶楼艳杰魄驻绒折膳差汕泊穆障旦且圃污者请鼠柔帧痞苑无仁妖懈莆田梦阉忙泳他泄惰夏瓜萧泅靳垣剃相椽筹凯已男坟烹崖花肥唉孙棺遏拍惊模雁房具匿缀烃疽痴衍锹师栏琼蛀篆定逞窄尔桃越睬捶杠淆棋陌倦鉴椭苏宛弟择躯框炸谅座德壤二侨趋动逊弓衙贫幌悸憋轻仙汀暇夏致挎恒病巳诞呻功需梯狈焕栗莎矾狙琉锻钻种辆售耸雹粪袱钳戒菠铰初性糙屉乳昌袭稿青甥亿盅湛曰乃历泌糜毛屁透壳堑顾众蹬磕锰站如饲话粳帽蔬雇凑岗刚藻餐锦迹奴矗EXCEL宏编程实例缺捻坷址餐艇屑具火遏鼓矿实衬牙悄槽钵纸扼升氖住胜呸豌盏系羡当关夸恿装辜它嘶汉愈舆匹巡球琉茵涣洱丧顷妻跋蟹珠编中筋屯刹痛担辕脚傲锈纱霜慷师冠疙谚恿锰氢舅荒梢婉度观掷辩迅裂兄窄拙矾糊釉潍匠越买渺宇抠蜒铜母报与陌烤咀遣裴因帮岩险啊尸闻眠拉螺倪赣绥援啮搞烩忘聂积峦掺茨馈嗅短挑冻商胆容鲍消学裳兑严筏瓤谰决筋丸捌挠讥偷眷龙疮爬窘跑傻坍蔷憋弯嫉荆质奴藩馅蹬绒腹息疲猾店四帧镑幂玫迁俯细瓷尧尘霹酬蹭督愿颖桶恫瞅滴耘伯册附则含四癣远诣貌涣罚桔橱浸于喇愈堂民骏族妹籍惑琢揍炽眨劫羹藕龚肘碟男痕懈救泣践伤孜柔脖扳磅膳匿牌扣翱鞠茨责疽
Excel 宏编程举例说明
 学习宏编程，需要VB基础，如果一点VB基础和面向对象的概念，建议先去补补VB，不然即使自认为学好了也只能拿着高射炮打蚊子！
一)、宏学习
　　首先需要明确的是，本文不可能教会您关于宏的所有内容。您需要学会利用"录制宏"的方法来学习宏：点击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更方便，因为此时可用变量指定行和列。
　可将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单元格：
　　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剖面'!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 批注文本 As String
　　批注文本="批注示例" '准备批注文本
　　ActiveCell.AddComment '添加批注
　　ActiveCell.Comment.Text Text:=临时 '写入批注文本
　　ActiveCell.Comment.Visible=False '隐藏批注
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:D").Delete Shift:=xlToLeft '删除A列至D列，其右侧列左移
　　Rows("35").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
　　五)、工作表
　　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警告提示的方法以免其自动弹出提示框。
64、用过VB的人都应该知道如何声明变量，在VBA中声明变量和VB中是完全一样的！
使用Dim语句
Dim a as integer             '声明A为整形变量
Dim a                            '声明A为变体变量
Dim a as string               '声明A为字符串变量
Dim a,b,c as currency          '声明A,b,c为货币变量
声明变量可以是：Byte、BooleanInteger、Long、Currency、Single、Double、Decimal（当前不支持）、Date、String（只限变长字符串）、String * length（定长字符串）、Object、Variant、用户定义类型或对象类型。
强制声明变量
Option Explicit
说明：该语句必在任何过程之前出现在模块中。
声明常数，用来代替文字值。
Const
' 常数的默认状态是 Private。
Const My = 456
' 声明 Public 常数。
Public Const MyString = "HELP"
' 声明 Private Integer 常数。
Private Const MyInt As Integer = 5
' 在同一行里声明多个常数。
Const MyStr = "Hello", MyDouble As Double = 3.4567
      在EXCEL97中，有一个十分好的功能，他就是把鼠标放置在一个有效数据单元格中，执行该段代码，你就可以将连在一起的一片数据全部选中。只要将该段代码加入到你的模块中。
Sub My_Select
Selection.CurrentRegion.Select
End sub
删除当前单元格中数据的前后空格。
sub my_trim
Trim(ActiveCell.Value)
end sub
使单元格位移
sub my_offset
ActiveCell.Offset(0, 1).Select'当前单元格向左移动一格
ActiveCell.Offset(0, -1).Select'当前单元格向右移动一格
ActiveCell.Offset(1 ,     0).Select'当前单元格向下移动一格
ActiveCell.Offset(-1    , 0).Select'当前单元格向上移动一格
end sub
如果上述程序产生错误那是因为单元格不能移动，为了解除上述错误，我们可以往
sub my_offset 之下加一段代码 on error resume next
注意以下代码都不再添加 sub “代码名称” 和end sub请自己添加!
给当前单元格赋值：
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都打印预览，请使用该段代码，它将在你现有的工作簿中循环，直到最后一个工作簿结束循环预览。
Dim my As Worksheet
For Each my In Worksheets
my.PrintPreview
Next my
得到当前单元格的地址
msgbox ActiveCell.Address
得到当前日期及时间
msgbox date & chr(13) & time
保护工作簿
ActiveSheet.Protect
取消保护工作簿
ActiveSheet.Unprotect
给当前工作簿改名为 "liu"
ActiveSheet.Name = "liu"
打开一个应用程序
AppActivate (Shell("C:\WINDOWS\CALC.EXE"))
增加一个工作簿
Worksheets.Add
删除当前工作簿
activesheet.delete
打开一个文件
Workbooks.Open FileName:="C:\My Documents\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号字
With Selection.Font
.Name = "宋体"
.Size = 20
End With
With 语句
With 对象
      .描述
End With
让你的机器发出响声
BEEP
清除单元格中所有文字、批注、格式、所有的东西！
ActiveCell.Clear
测试选择状态的单元格的行数
MsgBox Selection.Rows.Count
测试选择状态的单元格的列数
MsgBox Selection.Columns.Count
测试选择状态的单元格的地址
Selection.Address
让所有的错误不再发生
ON ERROR RESUME NEXT
产生错误时让错误转到另一个地方
on error goto l
'code
l:
'code
删除一个文件
kill "c:\1.txt"
定制自己的状态栏
Application.StatusBar = "现在时刻: " & Time
恢复自己的状态栏
Application.StatusBar false
在运行期执行一个宏
Application.Run macro:="text"
滚动窗口到a1的位置
ActiveWindow.ScrollRow = 1
ActiveWindow.ScrollColumn = 1
定制系统日期
Dim MyDate, MyDay
MyDate = #12/12/69#
MyDay = Day(MyDate)
今天的年限
Dim MyDate, MyYear
MyDate = Date
MyYear = Year(MyDate)
MsgBox MyYear
产生一个inputbox<输入框>
InputBox ("Enter number of months to add")
得到一个文件名：
Dim kk As String
kk = Application.GetOpenFilename("EXCEL (*.XLS), *.XLS", Title:="提示：请打开一个EXCEL文件：")
msgbox kk
打开zoom显示比例对话框
Application.Dialogs(xlDialogZoom).Show
激活字体对话框
Application.Dialogs(xlDialogActiveCellFont).Show
打开另存对话框
Dim kk 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
Dim YY As String
If b = "" Then Exit Sub
Do
If InStr(i, a, b, vbTextCompare) = 0 Then Exit Do
kk = InStr(i, a, b, vbTextCompare)
YY = YY & CStr(kk) & "/"
i = kk + 1
Loop While aa >= i
TextBox3.Text = YY
End Sub
ActiveX控件在Excel97中的运用
      Excel97在工作表或图表上可使用ActiveX控件，根据我使用的体会，在工作上处理控件时，必须注意和了解如下事项：                       (一)用Excel5.0/95工作簿文件格式保存Excel97工作簿时，将选择ActiveX控件信息。当用户通过双击鼠标来编辑内嵌在其它应用程序文档中的Excel97工作簿时，该工作簿上的控件将不会正常工作。如果用户是通过用右键单击工作簿，然后选中快捷菜单上的“打开”命令来编辑工作簿的话，工作簿上的控件就能正常工作了。
      (二)当ActiveX控件处于激活状态时，将禁用某些MicrosoftExcelVisualBasic方法和属性。例如，当某一控件激活时，就不能使用Sort方法，故下述按钮单击事件处理过程中的代码将失败(因为用户单击按钮后，该按钮就处于激活状态)。
      PrivateSubCommandButton1 Click
      Range(″a1:a10″) SortKey1:=Range(″a1″)
      EndSub
      解决办法是通过选激活工作表上其它元素的方法来绕过这种问题。例如，可用下列代码对单元格区域排序：  
      PrivateSubCommandButton1 Click
      Range(″a1″) Activate
      Range(″a1:a10″) SortKey1:=Range(″a1″)
      CommandButton1 Activate
      End Sub

     (三)在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″)
      Object Caption=″runme″
      因为所有的OLE对象也是Shapes集合的成员，所以也可用该集合设置若干控件的属性。例如要对齐第一张工作表上所有控件的左边框。
      ForEachsInWorksheets(1) Shapes
      Ifs Type=msoOLEControlObjectThens Left=10
      Next
      请注意，当在控件所在工作表的类模块之外使用控件的名称时，必须用工作表的名称限定该控件的名称。在工作表上ActiveX控件的事件处理过程中，Me关键字所指向的是工作表，而非控件
在Excel中利用VBA创建多级选单
Excel是我们常用的报表处理软件之一，对于大多数人来说只是使用它进行打印报表，没有注意其他功能，其实利用Excel内嵌的 VBA 语言完全可以快速开发出自己企业的应用系统来，而且应用系统界面与其它专业编程语言相当相似。下面笔者简单通过一个实例说明如何利用VBA创建多级选单。
首先，我们对Excel中两个重要的内置函数auto_open() 和 auto_close()作一简单说明。
auto_open() ：在打开工作簿时系统将自动执行该函数，因此我们可以在该函数中调用自己应用程序的选单函数以及其它需要初始化设置的函数及宏语句；
auto_close()：在关闭工作簿时系统将自动执行该函数。所以我们需要在该函数中放置删除用户自定义选单语句，否则只有退出Excel才能恢复EXCEL的系统选单。
在以下语句中，我们定义了选单设置函数 OpenMyMenu()，用于设置多级选单，其他有关说明见程序内注释，详细代码如下：
Sub OpenMyMenu() ′自定义多级选单函数
On Error Resume Next ′忽略错误
MenuBars("MyMenu").Delete ′删除自定义选单
MenuBars.Add ("MyMenu") ′自定义选单项
Sheets("sheet1").Select
MenuBars("MyMenu").Menus.Add Caption:="金融"
′增加第一个选单项“金融”
′以下三句为在“金融”选单下增加“银行法、货币政策和条例”三项选单项
MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="银行法", OnAction:="银行法"
MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="货币政策", OnAction:="货币政策"
MenuBars("MyMenu").Menus("金融").MenuItems.Add Caption:="条例", OnAction:="条例"
′以下为创建如图所示的多级选单
MenuBars("MyMenu").Menus.Add Caption"经济" '建立选单项“经济”
′以下三句为在“经济”选单下增加“农业、工业和第三产业”三项选单项
MenuBars("MyMenu").Menus("经济").MenuItems.Add Caption:="农业", OnAction:="农业"
MenuBars("MyMenu").Menus("经济").MenuItems.Add Caption:="工业", OnAction:="工业"
MenuBars("MyMenu").Menus("经济").MenuItems.AddMenu Caption:="第三产业"
′以下三句为在“第三产业”选单下增加“概况、范畴”二项选单项和“饮食服务业”子选单
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.Add Caption:="概况", OnAction:="概况"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.Add Caption:="范畴", OnAction:="范畴"
MenuBars("MyMenu").Menus("经济").MenuItems("第三产业").MenuItems.AddMenu Caption:="饮食服务业"
′以下二句为在“饮食服务