查看: 30983|回复: 123
个人收集合并的资料，给正在学习或打算学习VBA的人，高手飘过
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴
署名作者: 网络收集
版权声明: 练练手 不申报技术文库
适用版本: 以前版本&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 kevinchengcw 于
20:08 编辑
附件工作簿列数了常用事件和方法，也包含了一些小的例程，供VBA初学者入门使用。
来源为网络收集，本人只是做了些整合的工作，在此感谢原创作者，这个东西对我帮助很大。
Temp.jpg (83.29 KB, 下载次数: 36)
个人收集合并的资料，给正在学习或打算学习VBA的人，高手飘过
20:08 上传
20:07 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
98.51 KB, 下载次数: 1700, 下载积分: 消费券 -5 Ti币
个人收集合并的资料，给正在学习或打算学习VBA的人，高手飘过
魅力值 +63
感谢帮助:)
感谢帮助:)
感谢帮助:)
感谢帮助:)
技法娴熟:)
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 kevinchengcw 于
15:30 编辑
定制模块行为
(1) Option Explicit '强制对模块内所有变量进行声明
Option Private Module '标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示
Option Compare Text '字符串不区分大小写
Option Base 1 '指定数组的第一个下标为1
(2) On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
(3) On Error GoTo ErrorHandler '当错误发生时跳转到过程中的某个位置
(4) On Error GoTo 0 '恢复正常的错误提示
(5) Application.DisplayAlerts=False '在程序执行过程中使出现的警告框不显示
(6) Application.ScreenUpdating=False '关闭屏幕刷新
Application.ScreenUpdating=True '打开屏幕刷新
(7) Application.Enable.CancelKey=xlDisabled '禁用Ctrl+Break中止宏运行的功能
(8) Workbooks.Add() '创建一个新的工作簿
(9) Workbooks(&book1.xls&).Activate '激活名为book1的工作簿
(10) ThisWorkbook.Save '保存工作簿
(11) ThisWorkbook.close '关闭当前工作簿
(12) ActiveWorkbook.Sheets.Count '获取活动工作薄中工作表数
(13) ActiveWorkbook.name '返回活动工作薄的名称
(14) ThisWorkbook.Name '返回当前工作簿名称
ThisWorkbook.FullName '返回当前工作簿路径和名称
(15) ActiveWindow.EnableResize=False '禁止调整活动工作簿的大小
(16) Application.Window.Arrange xlArrangeStyleTiled '将工作簿以平铺方式排列
(17) ActiveWorkbook.WindowState=xlMaximized '将当前工作簿最大化
(18) ActiveSheet.UsedRange.Rows.Count '当前工作表中已使用的行数
(19) Rows.Count '获取工作表的行数(注：考虑向前兼容性)
(20) Sheets(Sheet1).Name= &Sum& '将Sheet1命名为Sum
(21) ThisWorkbook.Sheets.Add Before:=Worksheets(1) '添加一个新工作表在第一工作表前
(22) ActiveSheet.Move After:=ActiveWorkbook. _
Sheets(ActiveWorkbook.Sheets.Count) '将当前工作表移至工作表的最后
(23) Worksheets(Array(&sheet1&,&sheet2&)).Select '同时选择工作表1和工作表2
(24) Sheets(&sheet1&).Delete或 Sheets(1).Delete '删除工作表1
(25) ActiveWorkbook.Sheets(i).Name '获取工作表i的名称
(26) ActiveWindow.DisplayGridlines=Not ActiveWindow.DisplayGridlines '切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮
(27) ActiveWindow.DisplayHeadings=Not ActiveWindow.DisplayHeadings '切换工作表中的行列边框显示
(28) ActiveSheet.UsedRange.FormatConditions.Delete '删除当前工作表中所有的条件格式
(29) Cells.Hyperlinks.Delete '取消当前工作表所有超链接
(30) ActiveSheet.PageSetup.Orientation=xlLandscape
或ActiveSheet.PageSetup.Orientation=2 '将页面设置更改为横向
(31) ActiveSheet.PageSetup.RightFooter=ActiveWorkbook.FullName '在页面设置的表尾中输入文件路径
ActiveSheet.PageSetup.LeftFooter=Application.UserName '将用户名放置在活动工作表的页脚
单元格/单元格区域
shaps(n).topleftcell 判断图片是否在指定单元格上
(32) ActiveCell.CurrentRegion.Select
或Range(ActiveCell.End(xlUp),ActiveCell.End(xlDown)).Select
'选择当前活动单元格所包含的范围，上下左右无空行
(33) Cells.Select '选定当前工作表的所有单元格
(34) Range(&A1&).ClearContents '清除活动工作表上单元格A1中的内容
Selection.ClearContents '清除选定区域内容
Range(&A1:D4&).Clear '彻底清除A1至D4单元格区域的内容，包括格式
(35) Cells.Clear '清除工作表中所有单元格的内容
(36) ActiveCell.Offset(1,0).Select '活动单元格下移一行，同理，可下移一列
(37) Range(&A1&).Offset(ColumnOffset:=1)或Range(&A1&).Offset(,1) '偏移一列
Range(&A1&).Offset(Rowoffset:=-1)或Range(&A1&).Offset(-1) '向上偏移一行
(38) Range(&A1&).Copy Range(&B1&) '复制单元格A1，粘贴到单元格B1中
Range(&A1:D8&).Copy Range(&F1&) '将单元格区域复制到单元格F1开始的区域中
Range(&A1:D8&).Cut Range(&F1&) '剪切单元格区域A1至D8，复制到单元格F1开始的区域中
Range(&A1&).CurrentRegion.Copy Sheets(&Sheet2&).Range(&A1&) '复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中
注：CurrentRegion属性等价于定位命令，由一个矩形单元格块组成，周围是一个或多个空行或列
(39) ActiveWindow.RangeSelection.Value=XX '将值XX输入到所选单元格区域中
(40) ActiveWindow.RangeSelection.Count '活动窗口中选择的单元格数
(41) Selection.Count '当前选中区域的单元格数
(42) GetAddress=Replace(Hyperlinkcell.Hyperlinks(1).Address,mailto:,&&) '返回单元格中超级链接的地址并赋值
(43) TextColor=Range(&A1&).Font.ColorIndex '检查单元格A1的文本颜色并返回颜色索引
Range(&A1&).Interior.ColorIndex '获取单元格A1背景色
(44) cells.count '返回当前工作表的单元格数
(45) Selection.Range(&E4&).Select '激活当前活动单元格下方3行，向右4列的单元格
(46) Cells.Item(5,&C&) '引单元格C5
Cells.Item(5,3) '引单元格C5
(47) Range(&A1&).Offset(RowOffset:=4,ColumnOffset:=5)
或 Range(&A1&).Offset(4,5) '指定单元格F5
(48) Range(&B3&).Resize(RowSize:=11,ColumnSize:=3)
Rnage(&B3&).Resize(11,3) '创建B3：D13区域
(49) Range(&Data&).Resize(,2) '将Data区域扩充2列
(50) Union(Range(&Data1&),Range(&Data2&)) '将Data1和Data2区域连接
(51) Intersect(Range(&Data1&),Range(&Data2&)) '返回Data1和Data2区域的交叉区域
(52) Range(&Data&).Count '单元格区域Data中的单元格数
Range(&Data&). Columns.Count '单元格区域Data中的列数
Range(&Data&). Rows.Count '单元格区域Data中的行数
(53) Selection.Columns.Count '当前选中的单元格区域中的列数
Selection.Rows.Count '当前选中的单元格区域中的行数
(54) Selection.Areas.Count '选中的单元格区域所包含的区域数
(55) ActiveSheet.UsedRange.Row '获取单元格区域中使用的第一行的行号
(56) Rng.Column '获取单元格区域Rng左上角单元格所在列编号
(57) ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) '在活动工作表中返回所有符合条件格式设置的区域
(58) Range(&A1&).AutoFilter Field:=3,VisibleDropDown:=False '关闭由于执行自动筛选命令产生的第3个字段的下拉列表
(59) Range(&A1：C3&).Name=&computer& '命名A1：C3区域为computer
或Range(&D1：E6&).Name=&Sheet1!book& '命名局部变量，即Sheet1上区域D1：E6为book
或 Names(&computer&).Name=&robot& '将区域computer重命名为robot
(60) Names(&book&).Delete '删除名称
(61) Names.Add Name:=&ContentList&，_
RefersTo:=&=OFFSET(Sheet1!A2,0,0,COUNTA(Sheet2!$A:$A))& '动态命名列
(62) Names.Add Name:=&Company&,RefersTo:=&CompanyCar& '命名字符串CompanyCar
(63) Names.Add Name:=&Total&,RefersTo:=123456 '将数字123456命名为Total。注意数字不能加引号，否则就是命名字符串了。
(64) Names.Add Name:=&MyArray&,RefersTo:=ArrayNum '将数组ArrayNum命名为MyArray。
(65) Names.Add Name:=&ProduceNum&,RefersTo:=&=$B$1&,Visible:=False '将名称隐藏
(66) ActiveWorkbook.Names(&Com&).Name '返回名称字符串
公式与函数
(67) Application.WorksheetFunction.IsNumber(&A1&) '使用工作表函数检查A1单元格中的数据是否为数字
(68) Range(&A:A&).Find(Application.WorksheetFunction.Max(Range(&A:A&))).Activate
'激活单元格区域A列中最大值的单元格
(69) Cells(8,8).FormulaArray=&=SUM(R2C[-1]:R[-1]C[-1]*R2C:R[-1]C)& '在单元格中输入数组公式。注意必须使用R1C1样式的表达式
(70) ActiveSheet.ChartObjects.Count '获取当前工作表中图表的个数
(71) ActiveSheet.ChartObjects(&Chart1&).Select '选中当前工作表中图表Chart1
(72) ActiveSheet.ChartObjects(&Chart1&).Activate
ActiveChart.ChartArea.Select '选中当前图表区域
(73) WorkSheets(&Sheet1&).ChartObjects(&Chart2&).Chart. _
ChartArea.Interior.ColorIndex=2 '更改工作表中图表的图表区的颜色
(74) Sheets(&Chart2&).ChartArea.Interior.ColorIndex=2 '更改图表工作表中图表区的颜色
(75) Charts.Add '添加新的图表工作表
(76) ActiveChart.SetSourceData Source:=Sheets(&Sheet1&).Range(&A1:D5&), _
PlotBy:=xlColumns '指定图表数据源并按列排列
(77) ActiveChart.Location Where:=xlLocationAsNewSheet '新图表作为新图表工作表
(78) ActiveChart.PlotArea.Interior.ColorIndex=xlNone '将绘图区颜色变为白色
(79) WorkSheets(&Sheet1&).ChartObjects(1).Chart. _
Export FileName:=&C：MyChart.gif&,FilterName:=&GIF& '将图表1导出到C盘上并命名为MyChart.gif
(80) MsgBox &Hello!& '消息框中显示消息Hello
(81) Ans=MsgBox(&Continue?&,vbYesNo) '在消息框中点击&是&按钮，则Ans值为vbYes；点击&否&按钮，则Ans值为vbNo。
If MsgBox(&Continue?&,vbYesNo)&&vbYes Then Exit Sub '返回值不为&是&，则退出
(82) Config=vbYesNo+vbQuestion+vbDefaultButton2 '使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮
(83) MsgBox &This is the first line.& & vbNewLine & &Second line.& '在消息框中强制换行，可用vbCrLf代替vbNewLine。
(84) MsgBox &the average is :&&Format(Application.WorksheetFunction.Average(Selection),&#,##0.00&),vbInformation, &selection count average& & Chr(13) '应用工作表函数返回所选区域的平均值并按指定格式显示
(85) Userform1.Show '显示用户窗体
(86) Load Userform1 '加载一个用户窗体,但该窗体处于隐藏状态
(87) Userform1.Hide '隐藏用户窗体
(88) Unload Userform1 或 Unload Me '卸载用户窗体
(89) (图像控件).Picture=LoadPicture(&图像路径&) '在用户窗体中显示图形
(90) UserForm1.Show 0 或 UserForm1.Show vbModeless '将窗体设置为无模式状态
(91) Me.Height=Int(0.88*ActiveWindow.Height) '窗体高度为当前活动窗口高度的0.88
Me.Width=Int(0.88*ActiveWindow.Width) '窗体宽度为当前活动窗口高度的0.88
(92) Application.EnableEvents=False '禁用所有事件
Application.EnableEvents=True '启用所有事件
注：不适用于用户窗体控件触发的事件
(93) Set ExcelSheet = CreateObject(&Excel.Sheet&) '创建一个Excel工作表对象
ExcelSheet.Application.Visible = True '设置 Application 对象使 Excel 可见
ExcelSheet.Application.Cells(1, 1).Value = &Data& '在表格的第一个单元中输入文本
ExcelSheet.SaveAs &C:\TEST.XLS& '将该表格保存到C:\test.xls 目录
ExcelSheet.Application.Quit '关闭 Excel
Set ExcelSheet = Nothing '释放该对象变量
(94) '声明并创建一个Excel对象引用
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
Set xlApp = CreateObject(&Excel.Application&)
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)
(95) '创建并传递一个 Excel.Application 对象的引用
Call MySub (CreateObject(&Excel.Application&))
(96) Set d = CreateObject(Scripting.Dictionary) '创建一个 Dictionary 对象变量
(97) d.Add &a&, &Athens& '为对象变量添加关键字和条目
(98) Application.OnKey &^I&,&macro& '设置Ctrl+I键为macro过程的快捷键
(99) Application.CutCopyMode=False '退出剪切/复制模式
(100) Application.Volatile True '无论何时工作表中任意单元格重新计算，都会强制计算该函数
Application.Volatile False '只有在该函数的一个或多个参数发生改变时，才会重新计算该函数
定制模块行为
(101) Err.Clear '清除程序运行过程中所有的错误
*******************************************************
(102) ThisWorkbook.BuiltinDocumentProperties(&Last Save Time&)
或Application.Caller.Parent.Parent.BuiltinDocumentProperties(&Last Save Time&) '返回上次保存工作簿的日期和时间
(103) ThisWorkbook.BuiltinDocumentProperties(&Last Print Date&)
或Application.Caller.Parent.Parent.BuiltinDocumentProperties(&Last Print Date&) '返回上次打印或预览工作簿的日期和时间
(104) Workbooks.Close '关闭所有打开的工作簿
(105) ActiveWorkbook.LinkSources(xlExcelLinks)(1) '返回当前工作簿中的第一条链接
(106) ActiveWorkbook.CodeName
ThisWorkbook.CodeName&&'返回工作簿代码的名称
(107) ActiveWorkbook.FileFormat
ThisWorkbook.FileFormat&&'返回当前工作簿文件格式代码
(108) ThisWorkbook.Path
ActiveWorkbook.Path '返回当前工作簿的路径(注:若工作簿未保存,则为空)
(109) ThisWorkbook.ReadOnly
& &ActiveWorkbook.ReadOnly '返回当前工作簿的读/写值(为False)
(110) ThisWorkbook.Saved
ActiveWorkbook.Saved '返回工作簿的存储值(若已保存则为False)
(111) Application.Visible = False '隐藏工作簿
& &Application.Visible = True '显示工作簿
& &注:可与用户窗体配合使用,即在打开工作簿时将工作簿隐藏,只显示用户窗体.可设置控制按钮控制工作簿可见
*******************************************************
(112) ActiveSheet.Columns(&B&).Insert '在A列右侧插入列，即插入B列
ActiveSheet.Columns(&E&).Cut
&&ActiveSheet.Columns(&B&).Insert&&'以上两句将E列数据移至B列，原B列及以后的数据相应后移
ActiveSheet.Columns(&B&).Cut
&&ActiveSheet.Columns(&E&).Insert '以上两句将B列数据移至D列，原C列和D列数据相应左移一列
(113) ActiveSheet.Calculate '计算当前工作表
(114) ThisWorkbook.Worksheets(&sheet1&).Visible=xlSheetHidden '正常隐藏工作表，同在Excel菜单中选择&格式——工作表——隐藏&操作一样
ThisWorkbook.Worksheets(&sheet1&).Visible=xlSheetVeryHidden '隐藏工作表，不能通过在Excel菜单中选择&格式——工作表——取消隐藏&来重新显示工作表
ThisWorkbook.Worksheets(&sheet1&).Visible=xlSheetVisible '显示被隐藏的工作表
(115) ThisWorkbook.Sheets(1).ProtectContents '检查工作表是否受到保护
(116) ThisWorkbook.Worksheets.Add Count:=2, _
Before:=ThisWorkbook.Worksheets(2)
或 ThisWorkbook.Workshees.Add ThisWorkbook.Worksheets(2), , 2&&'在第二个工作表之前添加两个新的工作表
(117) ThisWorkbook.Worksheets(3).Copy '复制一个工作表到新的工作簿
(118) ThisWorkbook.Worksheets(3).Copy ThisWorkbook.Worksheets(2) '复制第三个工作表到第二个工作表之前
(119) ThisWorkbook.ActiveSheet.Columns.ColumnWidth = 20 '改变工作表的列宽为20
&&ThisWorkbook.ActiveSheet.Columns.ColumnWidth = _
ThisWorkbook.ActiveSheet.StandardWidth '将工作表的列宽恢复为标准值
ThisWorkbook.ActiveSheet.Columns(1).ColumnWidth = 20 '改变工作表列1的宽度为20
(120) ThisWorkbook.ActiveSheet.Rows.RowHeight = 10 '改变工作表的行高为10
&&ThisWorkbook.ActiveSheet.Rows.RowHeight = _
ThisWorkbook.ActiveSheet.StandardHeight '将工作表的行高恢复为标准值
ThisWorkbook.ActiveSheet.Rows(1).RowHeight = 10 '改变工作表的行1的高度值设置为10
(121) ThisWorkbook.Worksheets(1).Activate '当前工作簿中的第一个工作表被激活
(122) ThisWorkbook.Worksheets(&Sheet1&).Rows(1).Font.Bold = True '设置工作表Sheet1中的行1数据为粗体
(123) ThisWorkbook.Worksheets(&Sheet1&).Rows(1).Hidden = True '将工作表Sheet1中的行1隐藏
ActiveCell.EntireRow.Hidden = True '将当前工作表中活动单元格所在的行隐藏
注：同样可用于列。
(124) ActiveSheet.Range(&A:A&).EntireColumn.AutoFit '自动调整当前工作表A列列宽
(125) ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlTextValues) '选中当前工作表中常量和文本单元格
ActiveSheet.Cells.SpecialCells(xlCellTypeConstants,xlErrors+xlTextValues) '选中当前工作表中常量和文本及错误值单元格
*******************************************************
公式与函数
(126) Application.MacroOptions Macro:=&SumPro&,Category:=4 '将自定义的SumPro函数指定给Excel中的&统计函数&类别
(127) Application.MacroOptions Macro:=&SumPro&, _
Description:=&First Sum,then Product& '为自定义函数SumPro进行了功能说明
(128) Application.WorksheetFunction.CountA(Range(&A:A&))+1 '获取A列的下一个空单元格
(129) WorksheetFunction.CountA(Cell.EntireColumn) '返回该单元格所在列非空单元格的数量
WorksheetFunction.CountA(Cell.EntireRow) '返回该单元格所在行非空单元格的数量
(130) WorksheetFunction.CountA(Cells) '返回工作表中非空单元格数量
(131) ActiveSheet.Range(&A20:D20&).Formula=&=Sum(R[-19]C:R[-1]C&’对A列至D列前19个数值求和
*******************************************************
(132) ActiveWindow.Visible=False
或 ActiveChart.Deselect '使图表处于非活动状态
(133) TypeName(Selection)=&Chart& '若选中的为图表，则该语句为真，否则为假
(134) ActiveSheet.ChartObjects.Delete '删除工作表上所有的ChartObject对象
&&ActiveWorkbook.Charts.Delete '删除当前工作簿中所有的图表工作表
*******************************************************
窗体和控件
(135) UserForms.Add(MyForm).Show '添加用户窗体MyForm并显示
(136)TextName.SetFocus '设置文本框获取输入焦点
(137) SpinButton1.Value=0 '将数值调节钮控件的值改为0
(138) TextBox1.Text=SpinButton1.Value '将数值调节钮控件的值赋值给文本框控件
& &SpinButton1.Value=Val(TextBox1.Text) '将文本框控件值赋给数值调节钮控件
& &CStr(SpinButton1.Value)=TextBox1.Text '数值调节钮控件和文本框控件相比较
(139) UserForm1.Controls.Count '显示窗体UserForm1上的控件数目
(140) ListBox1.AddItem &Command1& '在列表框中添加Command1
(141) ListBox1.ListIndex '返回列表框中条目的值，若为-1，则表明未选中任何列表框中的条目
(142) RefEdit1.Text '返回代表单元格区域地址的文本字符串
& &RefEdit1.Text=ActiveWindow.RangeSelection.Address '初始化RefEdit控件显示当前所选单元格区域
& &Set FirstCell=Range(RefEdit1.Text).Range(&A1&) '设置某单元格区域左上角单元格
(143) Application.OnTime Now + TimeValue(&00:00:15&), &myProcedure& '等待15秒后运行myProcedure过程
(144) ActiveWindow.ScrollColumn=ScrollBarColumns.Value '将滚动条控件的值赋值给ActiveWindow对象的ScrollColumn属性
ActiveWindow.ScrollRow=ScrollBarRows.Value '将滚动条控件的值赋值给ActiveWindow对象的ScrollRow属性
(145) UserForm1.ListBox1.AddItem Sheets(&Sheet1&).Cells(1,1) '将单元格A1中的数据添加到列表框中
ListBox1.List=Product '将一个名为Product数组的值添加到ListBox1中
ListBox1.RowSource=&Sheet2!SumP& '使用工作表Sheet2中的SumP区域的值填充列表框
(146) ListBox1.Selected(0) '选中列表框中的第一个条目(注：当列表框允许一次选中多个条目时，必须使用Selected属性)
(147) ListBox1.RemoveItem ListBox1.ListIndex '移除列表框中选中的条目
(147-1)TextBox1.Text = VBA.UCase$(TextBox1.Text)’将TEXTBOX里的字母自动变成大写
*******************************************************
Application对象
(148) Application.UserName '返回应用程序的用户名
(149) Application.Caller '返回代表调用函数的单元格
(150) Application.Caller.Parent.Parent '返回调用函数的工作簿名称
(151) Application.StatusBar=&请等待……& '将文本写到状态栏
&&Application.StatusBar=&请等待……& & Percent & &% Completed& '更新状态栏文本，以变量Percent代表完成的百分比
&&Application.StatusBar=False '将状态栏重新设置成正常状态
(152) Application.Goto Reference:=Range(&A1:D4&) '指定单元格区域A1至D4，等同于选择&编辑——定位&，指定单元格区域为A1至D4，不会出现&定位&对话框
(153) Application.Dialogs(xlDialogFormulaGoto).Show '显示&定位&对话框，但定位条件按钮无效
(154) Application.Dialogs(xlDialogSelectSpecial).Show '显示&定位条件&对话框
(155) Application.Dialogs(xlDialogFormatNumber).show '显示&单元格格式&中的&数字&选项卡
&&Application.Dialogs(xlDialogAlignment).show '显示&单元格格式&中的&对齐&选项卡
Application.Dialogs(xlDialogFontProperties).show '显示&单元格格式&中的&字体&选项卡
Application.Dialogs(xlDialogBorder).show '显示&单元格格式&中的&边框&选项卡
Application.Dialogs(xlDialogPatterns).show '显示&单元格格式&中的&图案&选项卡
Application.Dialogs(xlDialogCellProtection).show '显示&单元格格式&中的&保护&选项卡
注：无法一次显示带选项卡的&单元格格式&对话框，只能一次显示一个选项卡。
(156) Application.Dialogs(xlDialogFormulaGoto).show Range(&b2&), True '显示&引用位置&的默认单元格区域并显示引用使其出现在窗口左上角(注：内置对话框参数的使用)
(157) Application.CommandBars(1).Controls(2).Controls(16).Execute '执行&定位&话框，相当于选择菜单&编辑——定位&命令
(158) Application.Transpose(Array(&Sun&,&Mon&,&Tur&,&Wed&,&Thu&,&Fri&,&Sat&)) '返回一个垂直的数组
(159) Application.Version '返回使用的Excel版本号
(160) Application.Cursor = xlNorthwestArrow '设置光标形状为北西向箭头
Application.Cursor = xlIBeam '设置光标形状为Ⅰ字形
Application.Cursor = xlWait '设置光标形状为沙漏(等待)形
Application.Cursor = xlDefault '恢复光标的默认设置
(161) Application.WindowState '返回窗口当前的状态
& &Application.WindowState = xlMinimized '窗口最小化
Application.WindowState = xlMaximized '窗口最大化
Application.WindowState = xlNormal '窗口正常状态
(162) Application.UsableHeight '获取当前窗口的高度
Application.UsableWidth '获取当前窗口的宽度
(163) Application.ActiveCell.Address '返回活动单元格的地址(注:返回的是绝对地址)
(164) Application.ActivePrinter '返回当前打印机的名称
(165) Application.ActiveSheet.Name '返回活动工作表的名称
(166) Application.ActiveWindow.Caption '返回活动窗口的标题
(167) Application.ActiveWorkbook.Name '返回活动工作簿的名称
(168) Application.Selection.Address '返回所选区域的地址
(169) Application.ThisWorkbook.Name '返回当前工作簿的名称
(170) Application.CalculationVersion '返回Excel计算引擎版本(右边四位数字)及Excel版本(左边两位数字)
(171) Application.MemoryFree '以字节为单位返回Excel允许使用的内存数(不包括已经使用的内存)
(172) Application.MemoryUsed '以字节为单位返回Excel当前使用的内存数
(173) Application.MemoryTotal '以字节为单位返回Excel可以使用的内存数(包括已使用的内存,是MemoryFree和MemoryUsed的总和)
(174) Application.OperatingSystem '返回所使用的操作系统的名称和版本
(175) Application.OrganizationName '返回Excel产品登记使用的组织机构的名称
(176) Application.FindFormat '查找的格式种类
& &Application.ReplaceFormat '替换查找到的内容的格式种类
ActiveSheet.Cells.Replace What:=& &, _
Replacement:=& &,SearchFormat:=True,ReplaceFormat:=True '替换查找到的格式
(177) Application.Interactive=False '忽略键盘或鼠标的输入
(178) Application.Evaluate(&Rate&) '若在工作表中定义了常量0.06的名称为&Rate&,则本语句将返回值0.06
(179) Application.OnUndo &Undo Option&,&Undo Procedure& '选择UndoOption后，将执行Undo Procedure过程
*******************************************************
(180) Range(A1:A10).Value=Application.WorksheetFunction.Transpose(MyArray) '将一个含有10个元素的数组转置成垂直方向的工作表单元格区域(A1至A10)
注：因为当把一维数组的内容传递给某个单元格区域时，该单元格区域中的单元格必须是水平方向的，即含有多列的一行。若必须使用垂直方向的单元格区域，则必须先将数组进行转置，成为垂直的。
(181) Range(&A65536&).End(xlUp).Row+1 '返回A列最后一行的下一行
(182) rng.Range(&A1&) '返回区域左上角的单元格
(183) cell.Parent.Parent.Worksheets '访问当前单元格所在的工作簿
(184) Selection.Font.Bold=Not Selection.Font.Bold '切换所选单元格是否加粗
(185) ActiveSheet.Range(&A:B&).Sort Key1:=Columns(&B&), Key2:=Columns(&A&), _
Header:=xlYes '两个关键字排序，相邻两列，B列为主关键字，A列为次关键字，升序排列
(186) cell.Range(&A1&).NumberFormat '显示单元格或单元格区域中的第一个单元格的数字格式
(187) cell.Range(&A1&).HasFormula '检查单元格或单元格区域中的第一个单元格是否含有公式
或cell.HasFormula '工作表中单元格是否含有公式
(188) Cell.EntireColumn '单元格所在的整列
& &Cell.EntireRow '单元格所在的整行
(189) rng.Name.Name '显示rng区域的名称
(190) rng.Address '返回rng区域的地址
(191) cell.Range(&A1&).Formula '返回包含在rng区域中左上角单元格中的公式。
注：若在一个由多个单元格组成的范围内使用Formula属性，会得到错误；若单元格中没有公式，会得到一个字符串，在公式栏中显示该单元格的值。
(192) Range(&D5:D10&).Cells(1,1) '返回单元格区域D5:D10中左上角单元格
(193) ActiveCell.Row '活动单元格所在的行数
& &ActiveCell.Column '活动单元格所在的列数
(194) Range(&A1:B1&).HorizontalAlignment = xlLeft '当前工作表中的单元格区域数据设置为左对齐
(195) ActiveSheet.Range(&A2:A10&).NumberFormat=&#,##0& '设置单元格区域A2至A10中数值格式
(196) rng.Replace & &,&0&&&'用0替换单元格区域中的空单元格
*******************************************************
Collection与object
(197) Dim colMySheets As New Collection
Public colMySheets As New Collection&&'声明新的集合变量
(198) Set MyRange=Range(&A1:A5&) '创建一个名为MyRange的对象变量
(199) &object&.Add Cell.Value CStr(Cell.Value) '向集合中添加惟一的条目(即将重复的条目忽略)
*******************************************************
Windows API
(200) Declare Function GetWindowsDirectoryA Lib &kernel32& _
(ByVal lpBuffer As String,ByVal nSize As Long) As Long 'API函数声明。返回安装Windows所在的目录名称，调用该函数后，安装Windows的目录名称将在第一个参数lpBuffer中，该目录名称的字符串长度包含在第二个参数nSize中
(201) Set objExcel = CreateObject(&Excel.Application&)
objExcel.Workbooks.Add '创建Excel工作簿
(202) Application.ActivateMicrosoftApp xlMicrosoftWord '开启Word应用程序
(203) Application.TemplatesPath '获取工作簿模板的位置
(204) Application.Calculation = xlCalculationManual '设置工作簿手动计算
Application.Calculation = xlCalculationAutomatic '工作簿自动计算
(205) Worksheets(1).EnableCalculation = False '不对第一张工作表自动进行重算
(206) Application.CalculateFull '重新计算所有打开的工作簿中的数据
(207) Application.RecentFiles.Maximum = 5 '将最近使用的文档列表数设为5
(208) Application.RecentFiles(4).Open '打开最近打开的文档中的第4个文档
(209) Application.OnTime DateSerial()+Timue(&16:16:16&),&BaoPo& '在日的16:16:16开始运行BaoPo过程
(210) Application.Speech.Speak (&Hello& & Application.UserName) '播放声音，并使用用户的姓名问候用户
(211) MsgBox Application.PathSeparator '获取&\&号
(212) MsgBox Application.International(xlCountrySetting) '返回应用程序当前所在国家的设置信息
(213) Application.AutoCorrect.AddReplacement &葛洲坝&, &三峡& '自动将在工作表中进行输入的&葛洲坝&更正为&三峡&
(214) Beep '让计算机发出声音
(215) Err.Number '返回错误代码
(216) MsgBox IMEStatus '获取输入法状态
(217) Date = #6/6/2006#
Time = #6:16:16 AM# '将系统时间更改为日上午6时16分16秒
(218) Application.RollZoom = Not Application.RollZoom '切换是否能利用鼠标中间的滑轮放大/缩小工作表
(219) Application.ShowWindowsInTaskba = True '显示任务栏中的窗口,即各工作簿占用各自的窗口
(220) Application.DisplayScrollBars = True '显示窗口上的滚动条
(221) Application.DisplayFormulaBar = Not Application.DisplayFormulaBar '切换是否显示编辑栏
(222) Application.Dialogs(xlDialogPrint).Show '显示打印内容对话框
(223) Application.MoveAfterReturnDirection = xlToRight '设置按Enter键后单元格的移动方向向右
(224) Application.FindFile '显示打开对话框
(225) ThisWorkbook.FollowHyperlink
'打开超链接文档
(226) ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly '将当前工作簿设置为只读
(227) ActiveWorkbook.AddToFavorites '将当前工作簿添加到收藏夹文件夹中
(228) ActiveSheet.CheckSpelling '在当前工作表中执行&拼写检查&
(229) ActiveSheet.Protect userinte**ceonly:=True '保护当前工作表
(230) ActiveSheet.PageSetup.LeftHeader = ThisWorkbook.FullName '在当前工作表的左侧页眉处打印出工作簿的完整路径和文件名
(231) Worksheets(&Sheet1&).Range(&A1:G37&).Locked = False
Worksheets(&Sheet1&).Protect
'解除对工作表Sheet1中A1:G37区域单元格的锁定
'以便当该工作表受保护时也可对这些单元格进行修改
(232) Worksheets(&Sheet1&).PrintPreview '显示工作表sheet1的打印预览窗口
(233) ActiveSheet.PrintPreview Enablechanges:=False '禁用显示在Excel的&打印预览&窗口中的&设置&和&页边距&按钮
(234) ActiveSheet.PageSetup.PrintGridlines = True '在打印预览中显示网格线
ActiveSheet.PageSetup.PrintHeadings = True '在打印预览中显示行列编号
(235) ActiveSheet.ShowDataForm '开启数据记录单
(236) Worksheets(&Sheet1&).Columns(&A&).Replace _
What:=&SIN&, Replacement:=&COS&, _
SearchOrder:=xlByColumns, MatchCase:=True '将工作表sheet1中A列的SIN替换为COS
(237) Rows(2).Delete '删除当前工作表中的第2行
Columns(2).Delete '删除当前工作表中的第2列
(238) ActiveWindow.SelectedSheets.VPageBreaks.Add before:=ActiveCell '在当前单元格左侧插入一条垂直分页符
ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell '在当前单元格上方插入一条垂直分页符
(239) ActiveWindow.ScrollRow = 14 '将当前工作表窗口滚动到第14行
ActiveWindow.ScrollColumn = 13 '将当前工作表窗口滚动到第13列
(240) ActiveWindow.Close '关闭当前窗口
(241) ActiveWindow.Panes.Count '获取当前窗口中的窗格数
(242) Worksheets(&sheet1&).Range(&A1:D2&).CreateNames Top:=True '将A2至D2的单元格名称设定为A1到D1单元格的内容
(243) Application.AddCustomList listarray:=Range(&A1:A8&) '自定义当前工作表中单元格A1至A8中的内容为自动填充序列
(244) Worksheets(&sheet1&).Range(&A1:B2&).CopyPicture xlScreen, xlBitmap '将单元格A1至B2的内容复制成屏幕快照
(245) Selection.Hyperlinks.Delete '删除所选区域的所有链接
Columns(1).Hyperlinks.Delete '删除第1列中所有的链接
Rows(1).Hyperlinks.Delete '删除第1行中所有的链接
Range(&A1:Z30&).Hyperlinks.Delete '删除指定范围所有的链接
(246) ActiveCell.Hyperlinks.Add Anchor:=ActiveCell, _
Address:=&C:\Windows\System32\Calc.exe&, ScreenTip:=&按下我，就会开启Windows计算器&, TextToDisplay:=&Windows计算器& '在活动单元格中设置开启Windows计算器链接
(247) ActiveCell.Value = Shell(&C:\Windows\System32\Calc.exe&, vbNormalFocus) '开启Windows计算器
(248) ActiveSheet.Rows(1).AutoFilter '打开自动筛选。若再运行一次，则关闭自动筛选
(249) Selection.Autofilter '开启/关闭所选区域的自动筛选
(250) ActiveSheet.ShowAllData '关闭自动筛选
(251) ActiveSheet.AutoFilterMode '检查自动筛选是否开启，若开启则该语句返回True
(252) ActiveSheet.Columns(&A&).ColumnDifferences(Compari son:=ActiveSheet. _
Range(&A2&)).Delete '在A列中找出与单元格A2内容不同的单元格并删除
(253) ActiveSheet.Range(&A6&).ClearNotes '删除单元格A6中的批注，包括声音批注和文字批注
(254) ActiveSheet.Range(&B8&).ClearComments '删除单元格B8中的批注文字
(255) ActiveSheet.Range(&A1:D10&).ClearFormats '清除单元格区域A1至D10中的格式
(256) ActiveSheet.Range(&B2:D2&).BorderAround ColorIndex:=5, _
Weight:=xlMedium, LineStyle:=xlDouble '将单元格B2至D2区域设置为蓝色双线
(257) Range(&A1:B2&).Item(2, 3)或Range(&A1:B2&)(2, 3) '引用单元格C2的数据
Range(&A1:B2&)(3) '引用单元格A2
(258) ActiveSheet.Cells(1, 1).Font.Bold = TRUE '设置字体加粗
ActiveSheet.Cells(1, 1).Font.Size = 24 '设置字体大小为24磅
ActiveSheet.Cells(1, 1).Font.ColorIndex = 3 '设置字体颜色为红色
ActiveSheet.Cells(1, 1).Font.Italic = TRUE '设置字体为斜体
ActiveSheet.Cells(1, 1).Font.Name = &Times New Roman& '设置字体类型
ActiveSheet.Cells(1, 1).Interior.ColorIndex = 3 '将单元格的背景色设置为红色
(259) ActiveSheet.Range(&C2:E6&).AutoFormat Format:=xlRangeAutoFormatColor3 '将当前工作表中单元格区域C2至E6格式自动调整为彩色3格式
(260) Cells.SpecialCells(xlCellTypeLastCell) '选中当前工作表中的最后一个单元格
(261) ActiveCell.CurrentArray.Select '选定包含活动单元格的整个数组单元格区域.假定该单元格在数据单元格区域中
(262) ActiveCell.NumberFormatLocal = &0.000; [红色] 0.000& '将当前单元格数字格式设置为带3位小数,若为负数则显示为红色
(263) IsEmpty (ActiveCell.Value) '判断活动单元格中是否有值
(264) ActiveCell.Value = LTrim(ActiveCell.Value) '删除字符串前面的空白字符
(265) Len(ActiveCell.Value) '获取活动单元格中字符串的个数
(266) ActiveCell.Value = UCase(ActiveCell.Value) '将当前单元格中的字符转换成大写
(267) ActiveCell.Value = StrConv(ActiveCell.Value, vbLowerCase) '将活动单元格中的字符串转换成小写
(268) ActiveSheet.Range(&C1&).AddComment '在当前工作表的单元格C1中添加批注
(269) Weekday(Date) '获取今天的星期,以数值表示,1-7分别对应星期日至星期六
(270) ActiveSheet.Range(&A1&).AutoFill Range(Cells(1, 1), Cells(10, 1)) '将单元格A1的数值填充到单元格A1至A10区域中
(271) DatePart(&y&, Date) '获取今天在全年中的天数
(272) ActiveCell.Value = DateAdd(&yyyy&, 2, Date) '获取两年后的今天的日期
(273) MsgBox WeekdayName(Weekday(Date)) '获取今天的星期数
(274) ActiveCell.Value = Year(Date) '在当前单元格中输入今年的年份数
ActiveCell.Value = Month(Date) '在当前单元格中输入今天所在的月份数
ActiveCell.Value = Day(Date) '在当前单元格中输入今天的日期数
(275) ActiveCell.Value = MonthName(1) '在当前单元格中显示月份的名称,本句为显示&一月&
(276) ActiveCell.Value = Hour(Time) '在当前单元格中显示现在时间的小时数
ActiveCell.Value = Minute(Time) '在当前单元格中显示现在时间的分钟数
ActiveCell.Value = Second(Time) '在当前单元格中显示现在时间的秒数
(277) ActiveSheet.Shapes(1).Delete '删除当前工作表中的第一个形状
(278) ActiveSheet.Shapes.Count '获取当前工作表中形状的数量
(279) ActiveSheet.Shapes(1).TextEffect.ToggleVerticalTex t '改变当前工作表中第一个艺术字的方向
(280) ActiveSheet.Shapes(1).TextEffect.FontItalic = True '将当前工作表中第一个艺术字的字体设置为斜体
(281) ActiveSheet.Shapes.AddTextEffect(msoTextEffect21, &三峡&, _
&Arial Black&, 22#, msoFalse, msoFalse, 66#, 80).Select '在当前工作表中创建一个名为&三峡&的艺术字并对其进行格式设置和选中
(282) ActiveSheet.Shapes.AddLine(BeginX:=10, BeginY:=10, EndX:=250, _
EndY:=100).Select '在当前工作表中以(10,10)为起点(250,100)为终点画一条直线并选中
(283) ActiveSheet.Shapes.AddShape(Type:=msoShapeRightTri angle, _
Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个左上角在(70,40),宽为130高为72的三角形并选中
(284) ActiveSheet.Shapes.AddShape(Type:=msoShapeRectangl e, _
Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个以点(70,40)为起点,宽130高72的矩形并选中
(285) ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _
Left:=70, Top:=40, Width:=130, Height:=72).Select '在当前工作表中画一个左上角在(70,40),宽为130高为72的椭圆
(286) ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(0, 0, 255) '将当前工作表中第一个形状的线条颜色变为蓝色
(287) ActiveSheet.Shapes(2).Fill.ForeColor.RGB = RGB(255, 0, 0) '将当前工作表中第2个形状的前景色设置为红色
(288) ActiveSheet.Shapes(1).Rotation = 20 '将当前工作表中的第1个形状旋转20度
(289) Selection.ShapeRange.Flip msoFlipHorizontal '将当前选中的形状水平翻转
Selection.ShapeRange.Flip msoFlipVertical '将当前选中的形状垂直翻转
(290) Selection.ShapeRange.ThreeD.SetThreeDFormat msoThreeD1 '将所选取的形状设置为第1种立体样式
(291) ActiveSheet.Shapes(1).ThreeD.Depth = 20 '将当前工作表中第一个立体形状的深度设置为20
(292) ActiveSheet.Shapes(1).ThreeD.ExtrusionColor.RGB = RGB(0, 0, 255) '将当前工作表中第1个立体形状的进深部分的颜色设为蓝色
(293) ActiveSheet.Shapes(1).ThreeD.RotationX = 60 '将当前工作表中的第1个立体形状沿X轴旋转60度
ActiveSheet.Shapes(1).ThreeD.RotationY = 60 '将当前工作表中的第1个立体形状沿Y轴旋转60度
(294) Selection.ShapeRange.ThreeD.Visible = msoFalse '将所选择的立体形状转换为平面形状
(295) Selection.ShapeRange.ConnectorFormat.BeginDisconne ct '在形状中让指定的连接符起点脱离原来所连接的形状
(296) ActiveSheet.Shapes(1).PickUp '复制当前工作表中形状1的格式
(297) ActiveSheet.Shapes.AddTextbox(msoTextOrientationHo rizontal, 260, 160, 180, 30). TextFrame.Characters.Text = &www.exceltip.net& '在工作簿中新建一个文本框并输入内容
(298) ActiveSheet.Shapes.AddLabel(msoTextOrientationHori zontal, 20, 80, 100, 200). TextFrame.Characters.Text = &www.exceltip.net& '在当前工作表中建立一个水平文本框并输入内容
(299) ActiveSheet.Shapes.AddPicture &d:\sx.jpg&, True, True, 60, 20, 400, 300 '在当前工作表中插入一张d盘中名为sx的图片
(300) ActiveChart.ApplyCustomType xl3DArea '将当前图表类型改为三维面积图
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 kevinchengcw 于
20:25 编辑
来两个手册型的
VBA常用技巧文件过大,采用分卷压缩的,如果想下单个文件也可到下面地址去下载(我的网盘):
再加上个基础的
VBA语法基础
- – - – - – - – - – - – - – - – - -
“数据类型”是指如何将数据存储在内存中。
(1)Boolean
表示逻辑数据，可以是True或False中的任一个值。占用2字节的存储空间，取值范围为True或False，缺省值为False。
只能表示正数。占用1字节的存储空间，取值范围为0-255，缺省值为0。
(3)Currency
一种保存货币值数据的特殊数字格式。占用8字节的存储空间，取值范围为-477.7，缺省值为0。
一种用于表示日期或时间的专用格式。占用8字节的存储空间，取值范围为100年1月1日——日，缺省值为00：00：00。(有关在VBA中使用日期和时间的详细介绍请见后面的一系列文章。)
(5)Decimal
一种包含以10的幂为刻度的十进制数的变体子类型，只能通过CDec转换函数创建，不是一种独立的数据类型。占用14字节的存储空间，取值范围为±50335(不带小数点)或±7.0335(带28位小数点)，缺省值为0。
(Decimal数据类型是在Excel 2000中引入的，在以前的版本中不能使用这种数据类型。该数据类型非常特殊，因为不能实际声明它，它是Variant的子类型，必须使用CDec函数将一个变量转换为Decimal数据类型)
存储双精度浮点数，占用8字节的存储空间，取值范围为负值：-1.32E308——4.47E-324，正值：1.32E308——4.47E-324，缺省值为0。
(7)Integer
表示从-之间的整数，其中一位表示符号，占用2字节的存储空间，缺省值为0。
表示存储为4个字节空间的带符号的数，其中一位表示符号，取值范围为--，缺省值为0。
包含对某个对象的引用(地址)，占用4字节的存储空间，可对任何对象引用，缺省值为Nothing。
(10)Single
表示分数、带小数位或指数的数值等单精度数，占用4字节的存储空间，取值范围为负值：-3.——1.，正值：1.——3.，缺省值为0。
(11)String
可声明定长和变长的String数据类型。其中，定长的String数据类型占用的存储空间为字符串的长度，取值范围为1——65400个字符，缺省值等于该字符串长度的空格数。变长的String数据类型能动态地加长或缩短以存储要求的字符串数，占用的存储空间为10字节加上字符串的长度，取值范围为0——20亿个字符，缺省值为零长字符串(“”)。(有关String数据类型及处理和操作字符串数据的VBA内置函数的详细介绍请见后面的一系列文章。)
(12)Variant
Variant字符串类型的存储空间为22字节加上字符串的长度，其取值范围与变长字符串数据类型的取值范围相同，缺省值为Empty。
Variant数字型的存储空间为16字节，其取值范围与Double数据类型的取值范围相同，缺省值为Empty。
(有关Variant数据类型的进一步介绍见后面的一系列文章。)
(13)用户自定义类型
允许用户创建一种特殊的数据类型，这种数据类型由VBA的内部数据类型、数组、对象或其他用户定义类型组成，其存储空间为各个组成部分的存储空间的总和，取值范围与各个组成部分的数据类型的取值范围一致，缺省值为各个组成部分的缺省值。(有关用户自定义类型的进一步介绍请见后面的一系列文章。)
各数据类型之间也可以相互转换。(有关数据类型转换的详细介绍请见后面的一系列文章)
(有关数字数据类型(Byte、Integer、Long、Single、Double、Currency、Decimal、Variant)及相应的VBA内置函数的详细介绍请见后面的一系列文章。)
- – - – - – - – - – - – - – - – - -
常量即在程序执行过程中不发生改变的值或字符串。
使用Const语句声明常量。如：
Const Rate=0.25
Const NumMonths As Integer=12
Public Const myName As String=”BabyPig”
而最后一个语句声明了一个公共常量，应放在模块中所有过程之前声明。
VBA自身包含有许多内置常数，它们的值都是VBA预先定义好的，使用内部常数时无需定义这些常数的值。
■ 几个特殊的常数
由于有好几种不相同的“无效值”常数，VBA语言提供了好几种方法，以检验某个变量是否为empty或null值，或者设置某个变量为empty或null值。
(1) vbNull
和VarType函数一起使用，用于确定变量是否包含null。
(2) vbNullChar
赋值或检测null字符，null字符的值为Chr(0)，即vbNullChar常数相当于将变量赋值为Chr(0)，可用于检测变量，确定它的值是否是一个null字符。
(3) vbNullString
赋值或检测零长(空)字符串。
(4) Null关键字
将null值赋给variant变量后，可以通过调用IsNull函数来检测变量是否是Null值。
(5) vbEmpty
检测某个variant变量是否初始化。
(6) Nothing关键字
只能和对象变量一起使用，以确定变量是否具有有效的对象引用，此外，Nothing关键字还可以用于销毁当前的对象引用。
(关于常量的介绍还可见《ExcelVBA编程系列之数据类型(1)：常量》)
- – - – - – - – - – - – - – - – - -
变量的主要作用是存取数据、提供了数据存放信息的容器。根据变量的作用域不同，可分为局部变量、全局变量，见后面的变量(常量)作用域和生存期介绍。
变量命名要注意以下几点：
1、有效性。变量以字母开头，中间可以出现数字和一些标点符号，除下划线( _ )作为连字符外，变量名称不能有空格、加号(+)、减号(-)、逗号(，)、句点(.)等符号。
2、VBA不区分大小写。但在变量命名时，最好体现该变量的作用
3、不能使用VBA中的关键字作为变量。
4、变量名称中不能有特殊类型的声明字符(#、$、%、&或!)。
5、变量名称最多可以包含254个字符。
(有关VBA的命名规则的详细介绍请见后面的一系列文章)
- – - – - – - – - – - – - – - – - -
其语法为：
Dim &变量名& As &数据类型&
或：Private &变量名& As &数据类型&
或：Public &变量名& As &数据类型&
可以在一行中声明多个变量，每个变量之间用逗号分隔开。
还有一种声明变量的方法是，将一个字符加在变量名称后面，从而声明变量的数据类型。如
Dim MyVar%
表示将变量MyVar声明为整型。一些类型声明符为：
数据类型 类型声明字符
Currency @
在模块前加入Option Explicit语句，将强制声明所使用的所有变量。
- – - – - – - – - – - – - – - – - -
在使用对象模型的属性、方法和事件之前，必须创建一个对包含所需属性、方法和事件的类的引用。可以先声明一个局部对象变量以存储该对象引用，然后把对象引用赋给该局部变量。
声明对象变量的方法和声明其他类型的变量基本上一样。有三种声明对象变量的方法：
(1) Dim myObject As &库名&.&类名&
此方法指向类的类型库，但没有给该变量赋予任何类的实例。此时，变量myObject被赋值为Nothing。若要用这种方式引用类，就必须利用“引用”对话框向工程添加一个对类模块的引用。若要将类的实例引用赋予该变量，必须在使用该变量之前用Set语句赋值。如：
Set myObject=&库名&.&类名&
(2) Dim myObject As New &库名&.&类名&
此方法将类的新实例引用赋给Object变量。同样，要用这种方式引用类，必须先利用“引用”对话框向工程添加一个对类模块的引用。
(3) Dim myObject As Object
此方法将myObject变量声明为一般的Object数据类型，这在不能预先知道要创建的对象的数据类型时十分有用。此时，Object变量被赋值为Nothing。若要将对象引用赋值给该变量，必须使用CreateObject函数或GetObject函数。
可以用Private或Public语句替换Dim语句，且对象变量的作用域规则和其他类型的变量一样。
声明对象变量可以显著地简化代码且加快代码的执行速度。
有关对象模型的基础知识见ExcelVBA编程系列之对象模型(2):初步理解和使用Excel对象模型一文。
- – - – - – - – - – - – - – - – - -
集合(Collection)对象
集合对象是其他对象的一个容器。
一般有四个方法：
(1) Add方法
添加一项到集合中。除了可以指定数据外还可以指定键值，通过键值可以访问集合中的成员。
(2) Count方法
返回集合中的项的个数。
(3) Item方法
通过集合中的索引(即集合中项的序号)或键(假设该项添加到集合时指定了)检索集合中的成员。
(4) Remove方法
通过集合中的索引或键删除集合中的成员。
可以使用With…End With构造和For Each … Next构造很方便地处理对象和集合，其介绍可参见ExcelVBA编程系列之对象模型(2):初步理解和使用Excel对象模型一文。
- – - – - – - – - – - – - – - – - -
运算符是用于完成操作的一系列符号，包括算术运算符、比较运算符、逻辑运算符、字符串运算符等。可用于连接一个或多个语言元素，或者完成一些运算以形成一个表达式。
- – - – - – - – - – - – - – - – - -
表达式就是变量、常量、运算符的集合，可分为算术表达式、字符串表达式、赋值表达式、布尔表达式等
详细的内容请见VBA编程系列：运算符和表达式。
- – - – - – - – - – - – - – - – - -
数组是一组拥有相同名称同类元素。定义数组后，即创建了数组。数组中单个的数据项称为数组元素，用于访问数组元素的编号称为数组索引号，最小索引号和最大索引号称为边界。
在VBA中，根据数组元素是否变化，分为固定大小的数组和动态数组，根据数组的维数又可分为一维数组和多维数组。
1、创建数组
用Dim语句来定义固定大小的数组，即声明一个数组。如
Dim myArray(9) As Integer
上面的代码创建一个名为myArray含有10个数组元素的一维数组。注意，所有VBA数组的下界均从0开始，因此上面的代码所创建的数组元素从myArray(0)到myArray(9)。
在Dim语句中不指明数组元素的个数来声明动态数组，如
Dim myDynamicArray() As Integer
使用ReDim关键字重新定义数组的大小：
ReDim myDynamicArray(10)
也可以用ReDim关键字同时声明一个动态数组并指定该数组的元素个数：
ReDim myDynamicArray(5) As Integer
VBA没有限制重新定义动态数组大小的次数，但在重新定义数组大小时，原有的数组数据就会丢失。如果需要保留原来的数据，可以使用Preserve关键字：
ReDim Preserve myDynamicArray(5)
需要注意的是，如果重新定义数组时减小了数组的大小，则会丢失被缩减了的那部分元素的数据。
当然，与声明变量一样，也可以用Public语句声明公共数组。
2、确定数组的边界
可以使用UBound函数和LBound函数分别获取数组的最大边界和最小边界。
默认情况下，VBA的数组的下界是从0开始的，可以在模块的声明部分使用Option Base语句来改变模块中数组的起始边界。如
Option Base 1
该语句使数组元素的索引号从1开始。
也可以在定义数组时指定数组的上界和下界，如
Dim &数组名& (&下界& to &上界&) As &数据类型&
3、多维数组
多维数组可以在每个数组元素中存储一组数据，因此，多维数组的每个数组元素都包含一个数组。与一维数组相同，可以使用下面的两种方法创建多维数组：
(1)Dim &数组名& (&数组元素数1&，&数组元素数2&，……) As &数据类型&
(2)Dim &数组名&(&下界& to &上界&，&下界& to &上界&，……) As &数据类型&
与一维数组相似，多维数组也可以是动态的。
4、引用数组中的元素
可以使用数组名称和一个索引号来引用数组中的某个特定的元素。
(有关数组的进一步介绍及其应用请见后面的一系列文章)
- – - – - – - – - – - – - – - – - -
VBA中包含各种内置函数，可以简化计算和操作。在VBA表达式中使用函数的方式与使用工作表公式中函数的方式相同。
在VBA代码中，也可以使用很多Excel工作表函数，即使用WorksheetFunction对象调用工作表函数。但是不能使用具有与VBA内置函数功能相同的工作表函数。
1、控制程序流程语句
(1) GoTo语句
该语句将执行的程序转到指定的标签所在的语句指令，但不能转移到过程之外的指令。例如，在进行错误捕捉时，发生错误后，程序转移至标签所在处执行。
(2) If…Then语句
这种类型的语句用于条件判断中，当满足条件时，执行相应的语句；当条件不满足时，执行其它的操作。
基本语法为：
If &条件& Then &条件满足时的执行语句&
If … Then语句有几种形式分别用于不同的情况：
①当只有一个条件时，可使用下面的结构：
If &条件& Then &条件满足时的执行语句& [Else &条件不满足时的执行语句&]
其中，Else子句可选。如果该语句不在同一行中，则应在后面加上End If语句，即：
If &条件& Then
If &条件& Then
当条件为真时，执行Then后面的语句并结束If…Then语句的执行，否则执行Else后面的语句或结束If…Then语句的执行。
②当有两个或多个条件时，可使用嵌套的If … Then 结构：
If &条件& Then
ElseIf &条件1& Then
上面只是两层嵌套，可以根据情况使用多层嵌套。当条件为真时，执行Then后面的语句并结束If…Then语句的执行，否则判断条件1，当条件1为真时，执行Then后面的语句并结束If…Then语句的执行，否则执行Else后面的指令。
(3) Select Case语句
当需要作出三种或三种以上的条件判断时，最后使用Select Case语句。其基本语法为：
Select Case &测试表达式&
[Case 条件表达式1]
[Case 条件表达式2]
[Case Else]
End Select
当某个条件表达式与测试表达式相匹配时，则执行其后的指令，否则执行Else(如果有的话)后的指令，然后结束Select Case块的执行。
此外，Select Case语句还可以嵌套。
(有关程序控制语句的进一步介绍和示例请见后面的一系列文章)
2、循环语句
循环即重复执行某段代码。在VBA中，有多种可以构成循环的语句结构。
(1) For … Next 循环
其语法如下：
For &计数器=开始数& To &结束数& [step 步长]
[Exit For]
Next [计数器]
从开始到结束，反复执行For和Next之间的指令块，除非遇到Exit For语句，将提前跳出循环。其中，步长和Exit For语句以及Next后的计数器均为可选项。
For…Next循环中可以再包含For…Next循环，即For…Next循环可以嵌套使用。
(2) Do While循环
只有在满足指定的条件时才执行Do While循环。有两种形式：
■ 第一种形式
Do [While 条件]
当条件满足时执行指令。
■ 第二种形式
Loop [While 条件]
先执行指令，然后再判断条件，如果条件满足则再次执行指令。
其中Exit Do语句表示提前退出指令块。
(3) Do Until循环
与Do While循环一样，也有两种形式；
■ 第一种形式
Do [Until 条件]
■ 第二种形式
Loop [Until 条件]
执行指令，直到条件满足时退出循环。
(4) While … Wend循环
其语法为：
While &条件&
当条件满足时，则执行指令。
(有关循环语句的进一步介绍和示例请见后面的一系列文章)
- – - – - – - – - – - – - – - – - – - -
过程由一组完成所要求操作任务的VBA语句组成。子过程不返回值，因此，不能作为参数的组成部分。
其语法为：
[Private|Public] [Static] Sub &过程名& ([参数])
[Exit Sub]
(1) Private为可选。如果使用Private声明过程，则该过程只能被同一个模块中的其它过程访问。
(2) Public为可选。如果使用Public声明过程，则表明该过程可以被工作簿中的所有其它过程访问。但是如果用在包含Option Private Module语句的模块中，则该过程只能用于所在工程中的其它过程。
(3) Static为可选。如果使用Static声明过程，则该过程中的所有变量为静态变量，其值将保存。
(4) Sub为必需。表示过程开始。
(5) &过程名&为必需。可以使用任意有效的过程名称，其命名规则通常与变量的命名规则相同。
(6) 参数为可选。代表一系列变量并用逗号分隔，这些变量接受传递到过程中的参数值。如果没有参数，则为空括号。
(7) Exit Sub为可选。表示在过程结束之前，提前退出过程。
(8) End Sub为必需。表示过程结束。
如果在类模块中编写子过程并把它声明为Public，它将成为该类的方法。
(关于过程的详细介绍和示例见后面的一系列文章)
- – - – - – - – - – - – - – - – - – - -
函数(function)是能完成特定任务的相关语句和表达式的集合。当函数执行完毕时，它会向调用它的语句返回一个值。如果不显示指定函数的返回值类型，就返回缺省的数据类型值。
声明函数的语法为：
[Private|Public] [Static] Function &函数名& ([参数]) [As 类型]
[函数名=表达式]
[Exit Function]
[函数名=表达式]
End Function
(1) Private为可选。如果使用Private声明函数，则该函数只能被同一个模块中的其它过程访问。
(2) Public为可选。如果使用Public声明函数，则表明该函数可以被所有Excel VBA工程中的所有其它过程访问。不声明函数过程的作用域时，默认的作用域为Public。
(3) Static为可选。如果使用Static声明函数，则在调用时，该函数过程中的所有变量均保持不变。
(4) Function为必需。表示函数过程开始。
(5) &函数名&为必需。可以使用任意有效的函数名称，其命名规则与变量的命名规则相同。
(6) 参数为可选。代表一系列变量并用逗号分隔，这些变量是传递给函数过程的参数值。参数必须用括号括起来。
(7) 类型为可选。指定函数过程返回的数据类型。
(8) Exit Function为可选。表示在函数过程结束之前，提前退出过程。
(9) End Function为必需。表示函数过程结束。
通常，在函数过程执行结束前给函数名赋值。
函数可以作为参数的组成部分。但是，函数只返回一个值，它不能执行与对象有关的动作。
如果在类模块中编写自定义函数并将该函数的作用域声明为Public，这个函数将成为该类的方法。
(关于Function过程的详细介绍和示例见后面的一系列文章)
- – - – - – - – - – - – - – - – - – - -
事件处理过程
要对一个控件事件编写事件处理程序，应先打开窗体的代码窗口并从可用对象的下拉列表中选择所需的控件。然后，从该控件的可用事件下拉列表中选择所用的事件。此时，对事件处理程序的定义语句就会自动出现在代码窗口中，就可以直接编写事件处理程序了。
在Excel中，有下面几类事件，即Excel应用程序事件、工作簿事件、工作表事件、图表事件、用户窗体事件等。
(关于Excel中事件处理的介绍请见后面的一系列文章)
- – - – - – - – - – - – - – - – - – - -
类模块是存放共享变量以及共享代码的存储库。创建一个类模块，实际上也是在创建一个COM(组件对象模型)接口。因此，类模块允许通过一个由属性、方法和事件组成的可编程接口向外界描述应用程序，同时保证保留对应用程序的控制权。也就是说，类模块能够让程序实现“封装”，这样，在其它工程中可以直接使用某类模块而不需要访问源代码。此外，可以使用类来创建自已的库，如果要使用的话，只需要在任何新的工程中添加一个对该类的引用就行了。并且，如果要改变程序，只需对类模块改动就行了，而不需要在程序的每个部分都作改动。
(有关类模块知识的详细介绍请见后面的一系列文章)
- – - – - – - – - – - – - – - – - – - -
属性过程(property procedure)是特殊的过程，用于赋予和获取自定义属性的值。属性过程只能在对象模块如窗体或类模块中使用。
有三种属性过程：
Property Let
给属性赋值
Property Get
获取属性的值
Property Set
将对象引用赋给属性引用
- – - – - – - – - – - – - – - – - – - -
调用子过程和函数过程
子过程可以用下面三种方法调用。第一种使用Call语句：
Call DoSomething(参数1，参数2，……)
如果使用Call语句，就必须用小括号将参数列表括起来。
第二种是直接利用过程名：
DoSomething 参数1，参数2，……
此时，不用在参数列表两边加上括号。
如果不想使用函数的返回值，可以用上述任一种方法调用函数。否则，可以用函数名作为表达式的组成部分，如
If GetFunctionResult(parameter)=1 Then
如果用函数调用作为表达式的一部分，参数列表必须放在小括号中。
第三种是使用Run方法。
(关于过程调用更详细的介绍和示例请见后面的一系列文章)
- – - – - – - – - – - – - – - – - – - -
在过程间传递参数
在很多情况下，需要在子过程或函数中调用另一个自定义函数或子过程，这时，在被调用过程中就要用到在调用过程中使用的某个变量。因此，可把该变量作为参数传递给被调用过程。不管被调用过程是在同一模块、同一工程中的过程，还是在远程服务器上的类中的一个方法，从一个过程向另一个过程传递变量的原理都是一样的。
被调用过程(而不是调用过程)决定了变量如何从调用过程传递到被调用过程。
1、VBA允许用两种不同的方式在过程和组件之间传递参数。在子过程或函数的定义部分，可以指定参数列表中的变量的传递方式：ByRef(按引用)或者ByVal(按值)。
这是VBA中在过程间传递变量的默认方法。ByRef是指按引用传递变量，即传递给被调用过程的是原变量的引用。因此，如果改变了被调用过程中的变量值，其变化就会反映到调用过程中的那个变量，因为它们实际上是同一个变量。
如果使用ByVal关键字传递变量，被调用过程获得的就是该变量的独立副本。因此，改变被庙用过程中该变量的值不会影响调用过程中该变量原来的值。
2、Optional参数
Optional关键字用来指定某个特定的参数并不一定要传递，即为可选参数。但是，该参数必须放在最后。
3、ParamArray
使用ParamArray关键字能够使过程按受一组数目可变的参数。ParamArray参数必须是参数列表中的最后一个参数，而且不能在使用了Optional关键字的参数列表中使用ParamArray参数。
- – - – - – - – - – - – - – - – - – - -
变量(常量)作用域和生存期
有时需要在工程内的所有过程中使用某个变量，而有时某些变量又只需要在某些特定的过程中用到，变量的这种可见性称为变量作用域。
变量存在和作用的时间，称为变量的生存期。
变量或常数在程序中声明的位置决定了变量的作用域和生存期。
总的说来，在模块的声明部分用Private关键字声明的变量可以被模块中的所有过程使用；在模块的声明部分用Public关键字声明的变量可以被整个工程使用；若某个对象引用指向某类模块，则在该类模块的声明部分用Public关键字声明的变量可以被整个工程使用；在子过程或函数中用Dim语句声明的变量只能被声明这些变量的过程使用。
(1) 过程级作用域
在一个过程(即子过程或函数)内声明的变量只能在该过程内使用，其生存期在执行了End Sub或End Function语句后结束。因此，可以在不同的过程中定义具有相同名称的不同变量。声明过程级作用域的变量，在过程中用Dim语句声明变量。
此外，还有一种具有过程级作用域的特殊变量，称为静态变量。静态变量是在过程中定义的，尽管这种变量也具有过程级作用域，但是它具有模块级的生存期。这意味着只能在定义静态变量的过程内使用这些变量，但是变量的值在两次过程调用之间是保持不变的。用Static关键字声明静态变量：
Static lngExcuted As Long
还可以声明一个过程为静态过程，在这种情况下，在过程中声明的所有变量都被认为是静态变量，而且它们的值在两次过程调用之间都会保持不变，如
Static Procedure MyProcedure()
Dim iCtr As Integer
(2) 模块级或私有作用域
具有模块级作用域的变量可以被某个模块内的所有子过程和函数使用，也可以在模块级生存期内保存在内存中。
在模块的声明部分(即任何子过程或函数外)，用Dim语句或Private语句声明变量来创建一个具有模块级作用域的变量。
(3) Friend作用域
Friend关键字只能用于在对象模块(如类模块或窗体模块)中的变量和过程的声明。用Friend声明的变量允许工程中的其他对象模块访问原模块中的变量或方法，但是不需要用Public语句声明这些变量或方法。
(4) 公共作用域
在过程外使用Public语句声明的变量可以被当前工程中的所有模块使用。
15:03 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
138.03 KB, 下载次数: 325, 下载积分: 消费券 -5 Ti币
个人收集合并的资料，给正在学习或打算学习VBA的人，高手飘过
22:24 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
1.92 MB, 下载次数: 1269, 下载积分: 消费券 -5 Ti币
个人收集合并的资料，给正在学习或打算学习VBA的人，高手飘过
22:25 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
1.92 MB, 下载次数: 527, 下载积分: 消费券 -5 Ti币
个人收集合并的资料，给正在学习或打算学习VBA的人，高手飘过
22:26 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
1.92 MB, 下载次数: 1090, 下载积分: 消费券 -5 Ti币
个人收集合并的资料，给正在学习或打算学习VBA的人，高手飘过
22:27 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
1.92 MB, 下载次数: 1271, 下载积分: 消费券 -5 Ti币
个人收集合并的资料，给正在学习或打算学习VBA的人，高手飘过
22:28 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
1.92 MB, 下载次数: 441, 下载积分: 消费券 -5 Ti币
个人收集合并的资料，给正在学习或打算学习VBA的人，高手飘过
22:29 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
722.75 KB, 下载次数: 337, 下载积分: 消费券 -5 Ti币
个人收集合并的资料，给正在学习或打算学习VBA的人，高手飘过
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
本帖最后由 kevinchengcw 于
20:37 编辑
十七种可用一行代码完成的技巧
编程要讲效率，尽管现在的计算机，速度是不成问题，但是，如果一行代码能完成，为什么要用更多的代码了？
1、下列代码，则是对逻辑运算不清楚造成。 If A=true Then C= Not B Else C= B End If 可以： C=A XOR B
2、如果加上下列代码： If C=true then D=28 Else D=29 End IF D=if((A XOR B),28,29)
3、布尔赋值，常被人忽略：如： If A= 13 then B=True Else B=False End If 可以： B = A = 13 或者： B = (A = 13) 我更喜欢用后者，这样代码易于看懂。
4、字串有效性检测： If IsNull(StrOrg) Or StrOrg=&& then 可以： If Len(StrOrg & &&)&&0 then
5、字串重复次数 RepeatCount=Ubound(Split(StrOrg,StrFind)) 同样，如果要对字串有效性判断：RepeatCount=Iif((Len(StrOrg & &&)=0), 0, Ubound(Split(StrOrg,StrFind))
6、有时需要判断字串数组中是否有这一元素，这时最好不用数组，而用分隔符字串于是： If Len(OrgStr)= Len(Replace(OrgStr,FindStr)) then 则表明，此元素不存在。
7、对数组初始化：最好用变体，这样，也是一行语句：如： IntArr=Array(12,28,29,30,31,52,24,60) 注意，此时需要用变量后缀。上面代码，如要定义为长整型，则 IntArr=Array(12&,28&,29&,30&,31&,52&,24&,60&) 要将IntArr 定义为变体
8、判断大小： IntMax = Iif((IntA & IntB), IntA, IntB) IntMin = Iif((IntA & IntB), IntA, IntB)
9、按索引的Select Case Function GetChoice(Ind As Integer) GetChoice = Choose(Ind, &Speedy&, &United&, &Federal&) End Function
10、按表达式的Select Case(这种转换要求不能有Case Else的才可以这样，否则会出错) Function MatchUp (CityName As String) Matchup =tch(CityName = &London&, &English&, CityName _ = &Rome&, &Italian&, CityName = &Paris&, &French&) End Function
11、使用Iif，前面已有。 Function CheckIt (TestMe As Integer) CheckIt = IIf(TestMe & 1000, &Large&, &Small&) End Function
12、字串动态数组是否已初始化 If Len(Join(StrArr))=0 then 字串动态数组未初始化
13、指定只读CombBox的当前值，如果能确认这个值就在其中，一定不会错，则： Combbox=CurValue 注意，不可以写成：Combbox.text=CurValue 前者实际是写 _default 这个属性，而后者则是写Text 因为只读，则会导致错误
14、如果有下列代码： Select Case CombBox.text Case &London& Call FuncStrLang(3) Case &Rome& Call FuncStrLang(5) ...... End Select 则可以用ItemData属性 即：&London& 的 Itemdata=3 &Rome& 的 Itemdata=5 于是： Call FuncStrLang(CombBox.ItenData)
15、如果有下列代码： Select Case CombBox.text Case &London& Call ClsCity.CityIntr_London Case &Rome& Call ClsCity.CityIntr_Rome ...... End Select 只要： CallByName ClsCity, &CityIntr_& & CombBox.text, vbMethod
16、复制数组到另一变量中： Dim iOrgArr(30) as Integer Dim iDesArr as Variant ...... iDesArr = iOrgArr 即主变体直接取数组指针，则所有元素都复制了过去
17、如果有下列代码： Do While Not RsAdo.Eof If len(DesStr)&&0 then DesStr=DesStr & VbTab End if DesStr=RsAdo!Rec_id RsAdo.MoveNext loop 则只要： DesStr=RsAdo.GetString()
本示例为设置密码窗口 (1)
If Application.InputBox(&请输入密码：&) = 1234 Then
[A1] = 1 '密码正确时执行
Else: MsgBox &密码错误，即将退出！& '此行与第2行共同设置密码
本示例为设置密码窗口 (1)
X = MsgBox(&是否真的要结帐？&, vbYesNo)
If X = vbYes Then
本示例为设置工作表密码
ActiveSheet.Protect Password:=641112 ' 保护工作表并设置密码
ActiveSheet.Unprotect Password:=641112 '撤消工作表保护并取消密码
'本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容
For Each w In Workbooks
If w.Name ThisWorkbook.Name Then
w.Close SaveChanges:=True
'每次打开工作簿时，本示例都最大化 Microsoft Excel 窗口。
Application.WindowState = xlMaximized
'本示例显示活动工作表的名称。
MsgBox &The name of the active sheet is & & ActiveSheet.Name
'本示例保存当前活动工作簿的副本。
ActiveWorkbook.SaveCopyAs &C:\TEMP\**X.XLS&
'下述过程激活工作簿中的第四张工作表。
Sheets(4).Activate
'下述过程激活工作簿中的第1张工作表。
Worksheets(1).Activate
'本示例通过将 Saved 属性设为 True 来关闭包含本段代码的工作簿，并放弃对该
工作簿的任何更改。
ThisWorkbook.Saved = True
ThisWorkbook.Close
'本示例对自动重新计算功能进行设置，使 Microsoft Excel 不对第一张工作表自
动进行重新计算。
Worksheets(1).EnableCalculation = False
'下述过程打开 C 盘上名为 MyFolder 的文件夹中的 MyBook.xls 工作簿。
Workbooks.Open (&C:\MyFolder\MyBook.xls&)
'本示例显示活动工作簿中工作表 sheet1 上单元格 A1 中的值。
MsgBox Worksheets(&Sheet1&).Range(&A1&).Value
本示例显示活动工作簿中每个工作表的名称
For Each ws In Worksheets
MsgBox ws.Name
本示例向活动工作簿添加新工作表 , 并设置该工作表的名称?
Set NewSheet = Worksheets.Add
NewSheet.Name = &current Budget&
本示例将新建的工作表移到工作簿的末尾
'Private Sub Workbook_NewSheet(ByVal Sh As Object)
Sh.Move After:=Sheets(Sheets.Count)
本示例将新建工作表移到工作簿的末尾
'Private Sub App_WorkbookNewSheet(ByVal Wb As Workbook, _
ByVal Sh As Object)
Sh.Move After:=Wb.Sheets(Wb.Sheets.Count)
本示例新建一张工作表，然后在第一列中列出活动工作簿中的所有工作表的名称。
Set NewSheet = Sheets.Add(Type:=xlWorksheet)
For i = 1 To Sheets.Count
NewSheet.Cells(i, 1).Value = Sheets(i).Name
本示例将第十行移到窗口的最上面?
Worksheets(&Sheet1&).Activate
ActiveWindow.ScrollRow = 10
当计算工作簿中的任何工作表时，本示例对第一张工作表的 A1:A100 区域进行排序
'Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
With Worksheets(1)
.Range(&a1:a100&).Sort Key1:=.Range(&a1&)
本示例显示工作表 Sheet1 的打印预览。
Worksheets(&Sheet1&).PrintPreview
本示例保存当前活动工作簿?
ActiveWorkbook.Save
本示例保存所有打开的工作簿，然后关闭 Microsoft Excel。
For Each w In Application.Workbooks
Application.Quit
下例在活动工作簿的第一张工作表前面添加两张新的工作表?
Worksheets.Add Count:=2, Before:=Sheets(1)
本示例设置 15 秒后运行 my_Procedure 过程，从现在开始计时。
Application.OnTime Now + TimeValue(&00:00:15&), &my_Procedure&
本示例设置 my_Procedure 在下午 5 点开始运行。
Application.OnTime TimeValue(&17:00:00&), &my_Procedure&
本示例撤消前一个示例对 OnTime 的设置。
Application.OnTime EarliestTime:=TimeValue(&17:00:00&), _
Procedure:=&my_Procedure&, Schedule:=False
每当工作表重新计算时，本示例就调整 A 列到 F 列的宽度。
'Private Sub Worksheet_Calculate()
Columns(&A:F&).AutoFit
本示例使活动工作簿中的计算仅使用显示的数字精度。
ActiveWorkbook.PrecisionAsDisplayed = True
本示例将工作表 Sheet1 上的 A1:G37 区域剪下，并放入剪贴板。
Worksheets(&Sheet1&).Range(&A1:G37&).Cut
Calculate 方法
计算所有打开的工作簿、工作簿中的一张特定的工作表或者工作表中指定区域的单元
格，如下表所示：
'要计算 '依照本示例
所有打开的工作簿 ' Application.Calculate （或只是 Calculate
指定工作表 '计算指定工作表Sheet1 Worksheets
(&Sheet1&).Calculate
指定区域 'Worksheets(1).Rows(2).Calculate
本示例对自动重新计算功能进行设置，使 Microsoft Excel 不对第一张工作表自动
进行重新计算。
Worksheets(1).EnableCalculation = False
本示例计算 Sheet1 已用区域中 A 列、B 列和 C 列的公式。
Worksheets(&Sheet1&).UsedRange.Columns(&A:C&).Calculate
本示例更新当前活动工作簿中的所有链接?
ActiveWorkbook.UpdateLink Name:=ActiveWorkbook.LinkSources
本示例设置第一张工作表的滚动区域?
Worksheets(1).ScrollArea = &a1:f10&
本示例新建一个工作簿，提示用户输入文件名，然后保存该工作簿。
Set NewBook = Workbooks.Add
fName = Application.GetSaveAsFilename
Loop Until fName False
NewBook.SaveAs Filename:=fName
本示例打开 Analysis.xls 工作簿，然后运行 Auto_Open 宏。
Workbooks.Open &ANALYSIS.XLS&
ActiveWorkbook.RunAutoMacros xlAutoOpen
本示例对活动工作簿运行 Auto_Close 宏，然后关闭该工作簿。
With ActiveWorkbook
.RunAutoMacros xlAutoClose
在本示例中，Microsoft Excel 向用户显示活动工作簿的路径和文件名称。
'Sub UseCanonical()
Display the full path to user.
MsgBox ActiveWorkbook.FullNameURLEncoded
本示例显示当前工作簿的路径及文件名（假定尚未保存此工作簿）。
MsgBox ActiveWorkbook.FullName
本示例关闭 Book1.xls，并放弃所有对此工作簿的更改。
Workbooks(&BOOK1.XLS&).Close SaveChanges:=False
本示例关闭所有打开的工作簿。如果某个打开的工作簿有改变，Microsoft Excel
将显示询问是否保存更改的对话框和相应提示。
Workbooks.Close
本示例在打印之前对当前活动工作簿的所有工作表重新计算?
'Private Sub Workbook_BeforePrint(Cancel As Boolean)
For Each wk In Worksheets
wk.Calculate
本示例对查询表一中的第一列数据进行汇总，并在数据区域下方显示第一列数据的总
Set c1 = Sheets(&sheet1&).QueryTables(1).ResultRange.Columns(1)
c1.Name = &Column1&
c1.End(xlDown).Offset(2, 0).Formula = &=sum(Column1)&
本示例取消活动工作簿中的所有更改?
ActiveWorkbook.RejectAllChanges
本示例在商业问题中使用规划求解函数，以使总利润达到最大值。SolverSave 函数
将当前问题保存到活动工作表上的某一区域。
Worksheets(&Sheet1&).Activate
SolverReset
SolverOptions Precision:=0.001
SolverOK SetCell:=Range(&TotalProfit&), _
MaxMinVal:=1, _
ByChange:=Range(&C4:E6&)
SolverAdd CellRef:=Range(&F4:F6&), _
Relation:=1, _
FormulaText:=100
SolverAdd CellRef:=Range(&C4:E6&), _
Relation:=3, _
FormulaText:=0
SolverAdd CellRef:=Range(&C4:E6&), _
Relation:=4
SolverSolve UserFinish:=False
SolverSave SaveArea:=Range(&A33&)
本示例隐藏 Chart1、Chart3 和 Chart5。
Charts(Array(&Chart1&, &Chart3&, &Chart5&)).Visible = False
当激活工作表时，本示例对 A1:A10 区域进行排序。
'Private Sub Worksheet_Activate()
Range(&a1:a10&).Sort Key1:=Range(&a1&), Order:=xlAscending
本示例更改 Microsoft Excel 链接。
ActiveWorkbook.ChangeLink &c:\excel\book1.xls&, _
&c:\excel\book2.xls&, xlExcelLinks
本示例启用受保护的工作表上的自动筛选箭头?
ActiveSheet.EnableAutoFilter = True
ActiveSheet.Protect contents:=True, userInte**ceOnly:=True
本示例将活动工作簿设为只读?
ActiveWorkbook.ChangeFileAccess Mode:=xlReadOnly
本示例使共享工作簿每三分钟自动更新一次?
ActiveWorkbook.AutoUpdateFrequency = 3
下述 Sub 过程清除活动工作簿中 Sheet1 上的所有单元格的内容。
'Sub ClearSheet()
Worksheets(&Sheet1&).Cells.ClearContents
本示例对所有工作簿都关闭滚动条?
Application.DisplayScrollBars = False
如果具有密码保护的工作簿的文件属性没有加密，则本示例设置指定工作簿的密码加
'Sub SetPasswordOptions()
With ActiveWorkbook
If .PasswordEncryptionProvider &Microsoft RSA SChannel
Cryptographic Provider& Then
.SetPasswordEncryptionOptions _
PasswordEncryptionProvider:=&Microsoft RSA SChannel
Cryptographic Provider&, _
PasswordEncryptionAlgorithm:=&RC4&, _
PasswordEncryptionKeyLength:=56, _
PasswordEncryptionFileProperties:=True
在本示例中，如果活动工作簿不能进行写保护，那么 Microsoft Excel 设置字符串
密码以作为活动工作簿的写密码。
'Sub UseWritePassword()
Dim strPassword As String
strPassword = &secret&
' Set password to a string if allowed.
If ActiveWorkbook.WriteReserved = False Then
ActiveWorkbook.WritePassword = strPassword
在本示例中，Microsoft Excel 打开名为 Password.xls 的工作簿，设置它的密码
，然后关闭该工作簿。本示例假定名为 Password.xls 的文件位于 C:\ 驱动器上。
'Sub UsePassword()
Dim wkbOne As Workbook
Set wkbOne = Application.Workbooks.Open(&C:\Password.xls&)
wkbOne.Password = &secret&
wkbOne.Close
'注意 Password 属性可读并返回 &********&。
本示例将 Book1.xls 的当前窗口更改为显示公式。
Workbooks(&BOOK1.XLS&).Worksheets(&Sheet1&).Activate
ActiveWindow.DisplayFormulas = True
'本示例接受活动工作簿中的所有更改?
ActiveWorkbook.AcceptAllChanges
本示例显示活动工作簿的路径和名称
Sub UseCanonical()
MsgBox '消息框
[b7] = ActiveWorkbook.FullName '当前工作簿
[b8] = ActiveWorkbook.FullNameURLEncoded '活动工作簿
本示例显示 Microsoft Excel 启动文件夹的完整路径。
MsgBox Application.StartupPath
本示例显示活动工作簿中每个工作表的名称。
For Each ws In Worksheets
MsgBox ws.Name
本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿，并保存其更改内容。
For Each w In Workbooks
If w.Name ThisWorkbook.Name Then
w.Close savechanges:=True
Activate 事件
激活一个工作簿、工作表、图表或嵌入图表时产生此事件。
当激活工作表时，本示例对 A1:A10 区域进行排序。
Private Sub Worksheet_Activate()
Range(&a1:a10&).Sort Key1:=Range(&a1&), Order:=xlAscending
Calculate 事件
对于 Worksheet 对象，在对工作表进行重新计算之后产生此事件
每当工作表重新计算时，本示例就调整 A 列到 F 列的宽度。
Private Sub Worksheet_Calculate()
Columns(&A:F&).AutoFit
BeforeDoubleClick 事件
应用于 Worksheet 对象的 Activate 方法。
当双击某工作表时产生此事件，此事件先于默认的双击操作。
Private Sub expression_BeforeDoubleClick(ByVal Target As Range, Cancel
As Boolean)
expression 引用在类模块中带有事件声明的 Worksheet 类型对象的变量。
Target 必需。双击发生时最靠近鼠标指针的单元格。
Cancel 可选。当事件发生时为 False。如果事件过程将该参数设为 True，则该
过程执行完之后将不进行默认的双击操作。
BeforeRightClick 事件
应用于 Worksheet 对象的 Activate 方法。
当用鼠标右键单击某工作表时产生此事件，此事件先于默认的右键单击操作。
Private Sub expression_BeforeRightClick(ByVal Target As Range,