VBA 常用语句.docx
《VBA 常用语句.docx》由会员分享，可在线阅读，更多相关《VBA 常用语句.docx（52页珍藏版）》请在冰豆网上搜索。
VBA常用语句
'VBA常用语句
定制模块行为
'
（1）强制对模块内所有变量进行声明
OptionExplicit
'标记模块为私有，仅对同一工程中其它模块有用，在宏对话框中不显示
OptionPrivateModule
'字符串不区分大小写
OptionCompareText
'指定数组的第一个下标为1
OptionBase1
'
（2）忽略错误继续执行VBA代码,避免出现错误消息
OnErrorResumeNext
'（3）当错误发生时跳转到过程中的某个位置
OnErrorGoToErrorHandler
'（4）恢复正常的错误提示
OnErrorGoTo0
'（5）在程序执行过程中使出现的警告框不显示
Application.DisplayAlerts=False
'（6）关闭屏幕刷新
Application.ScreenUpdating=False
'打开屏幕刷新
Application.ScreenUpdating=True
'（7）禁用Ctrl+Break中止宏运行的功能
Application.Enable.CancelKey=xlDisabled
'
'工作簿
'（8）创建一个新的工作簿
Workbooks.Add（）
'（9）激活名为book1的工作簿
Workbooks（"book1.xls"）.Activate
'（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.ArrangexlArrangeStyleTiled
'（17）将当前工作簿最大化
ActiveWorkbook.WindowState=xlMaximized
'
'工作表
'（18）当前工作表中已使用的行数
ActiveSheet.UsedRange.Rows.Count
'（19）获取工作表的行数（注：
考虑向前兼容性）
Rows.Count
'（20）将Sheet1命名为Sum
Sheets（Sheet1）.Name="Sum"
'（21）添加一个新工作表在第一工作表前
ThisWorkbook.Sheets.AddBefore:
=Worksheets
（1）
'（22）将当前工作表移至工作表的最后
ActiveSheet.MoveAfter:
=ActiveWorkbook._
Sheets（ActiveWorkbook.Sheets.Count）
'（23）同时选择工作表1和工作表2
Worksheets（Array（"sheet1","sheet2"））.Select
'（24）删除工作表1
Sheets（"sheet1"）.Delete
'或
Sheets
（1）.Delete
'（25）获取工作表i的名称
ActiveWorkbook.Sheets（i）.Name
'（26）切换工作表中的网格线显示，这种方法也可以用在其它方面进行相互切换，即相当于开关按钮
ActiveWindow.DisplayGridlines=NotActiveWindow.DisplayGridlines
'（27）切换工作表中的行列边框显示
ActiveWindow.DisplayHeadings=NotActiveWindow.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
'
'单元格/单元格区域
'（32）选择当前活动单元格所包含的范围，上下左右无空行
ActiveCell.CurrentRegion.Select
'或
Range（ActiveCell.End（xlUp）,ActiveCell.End（xlDown））.Select
'（33）选定当前工作表的所有单元格
Cells.Select
'（34）清除活动工作表上单元格A1中的内容
Range（"A1"）.ClearContents
'清除选定区域内容
Selection.ClearContents
'彻底清除A1至D4单元格区域的内容，包括格式
Range（"A1:
D4"）.Clear
'（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）复制单元格A1，粘贴到单元格B1中
Range（"A1"）.CopyRange（"B1"）
'将单元格区域复制到单元格F1开始的区域中
Range（"A1:
D8"）.CopyRange（"F1"）
'剪切单元格区域A1至D8，复制到单元格F1开始的区域中
Range（"A1:
D8"）.CutRange（"F1"）
'复制包含A1的单元格区域到工作表2中以A1起始的单元格区域中
Range（"A1"）.CurrentRegion.CopySheets（"Sheet2"）.Range（"A1"）
'注：
CurrentRegion属性等价于定位命令，由一个矩形单元格块组成，周围是一个或多个空行或列
'（39）将值XX输入到所选单元格区域中
ActiveWindow.RangeSelection.Value=XX
'（40）活动窗口中选择的单元格数
ActiveWindow.RangeSelection.Count
'（41）当前选中区域的单元格数
Selection.Count
'（42）返回单元格中超级链接的地址并赋值
GetAddress=Replace（Hyperlinkcell.Hyperlinks
（1）.Address,"mailto:
",""）
'（43）检查单元格A1的文本颜色并返回颜色索引
TextColor=Range（"A1"）.Font.ColorIndex
'获取单元格A1背景色
Range（"A1"）.Interior.ColorIndex
'（44）返回当前工作表的单元格数
Cells.Count
'（45）激活当前活动单元格下方3行，向右4列的单元格
Selection.Range（"E4"）.Select
'（46）引单元格C5
Cells.Item（5,"C"）
'引单元格C5
Cells.Item（5,3）
'（47）指定单元格F5
Range（"A1"）.Offset（RowOffset:
=4,ColumnOffset:
=5）
'或
Range（"A1"）.Offset（4,5）
'（48）创建B3：
D13区域
Range（"B3"）.Resize（RowSize:
=11,ColumnSize:
=3）
Rnage（"B3"）.Resize（11,3）
'（49）将Data区域扩充2列
Range（"Data"）.Resize（,2）
'（50）将Data1和Data2区域连接
Union（Range（"Data1"）,Range（"Data2"））
'（51）返回Data1和Data2区域的交叉区域
Intersect（Range（"Data1"）,Range（"Data2"））
'（52）单元格区域Data中的单元格数
Range（"Data"）.Count
'单元格区域Data中的列数
Range（"Data"）.Columns.Count
'单元格区域Data中的行数
Range（"Data"）.Rows.Count
'（53）当前选中的单元格区域中的列数
Selection.Columns.Count
'当前选中的单元格区域中的行数
Selection.Rows.Count
'（54）选中的单元格区域所包含的区域数
Selection.Areas.Count
'（55）获取单元格区域中使用的第一行的行号
ActiveSheet.UsedRange.Row
'（56）获取单元格区域Rng左上角单元格所在列编号
Rng.Column
'（57）在活动工作表中返回所有符合条件格式设置的区域
ActiveSheet.Cells.SpecialCells（xlCellTypeAllFormatConditions）
'（58）关闭由于执行自动筛选命令产生的第3个字段的下拉列表
Range（"A1"）.AutoFilterField:
=3,VisibleDropDown:
=False
'
'名称
'（59）命名A1：
C3区域为computer
Range（"A1：
C3"）.Name="computer"
'命名局部变量，即Sheet1上区域D1：
E6为book
'或
Range（"D1：
E6"）.Name="Sheet1!
book"
'将区域computer重命名为robot
'或
Names（"computer"）.Name="robot"
'（60）删除名称
Names（"book"）.Delete
'（61）动态命名列
Names.AddName:
="ContentList",_
RefersTo:
="=OFFSET（Sheet1!
A2,0,0,COUNTA（Sheet2!
$A:
$A））"
'（62）命名字符串CompanyCar
Names.AddName:
="Company",RefersTo:
="CompanyCar"
'（63）将数字123456命名为Total。
注意数字不能加引号，否则就是命名字符串了。
Names.AddName:
="Total",RefersTo:
=123456
'（64）将数组ArrayNum命名为MyArray。
Names.AddName:
="MyArray",RefersTo:
=ArrayNum
'（65）将名称隐藏
Names.AddName:
="ProduceNum",RefersTo:
="=$B$1",Visible:
=False
'（66）返回名称字符串
ActiveWorkbook.Names（"Com"）.Name
'
'公式与函数
'（67）使用工作表函数检查A1单元格中的数据是否为数字
Application.WorksheetFunction.IsNumber（"A1"）
'（68）
Range（"A:
A"）.Find（Application.WorksheetFunction.Max（Range（"A:
A"）））.Activate
'激活单元格区域A列中最大值的单元格
'（69）在单元格中输入数组公式。
注意必须使用R1C1样式的表达式
Cells（8,8）.FormulaArray="=SUM（R2C[-1]:
R[-1]C[-1]*R2C:
R[-1]C）"
'
'图表
'（70）获取当前工作表中图表的个数
ActiveSheet.ChartObjects.Count
'（71）选中当前工作表中图表Chart1
ActiveSheet.ChartObjects（"Chart1"）.Select
'（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.SetSourceDataSource:
=Sheets（"Sheet1"）.Range（"A1:
D5"）,_
PlotBy:
=xlColumns
'（77）新图表作为新图表工作表
ActiveChart.LocationWhere:
=xlLocationAsNewSheet
'（78）将绘图区颜色变为白色
ActiveChart.PlotArea.Interior.ColorIndex=xlNone
'（79）将图表1导出到C盘上并命名为MyChart.gif
Worksheets（"Sheet1"）.ChartObjects
（1）.Chart._
ExportFilename:
="C：
MyChart.gif",FilterName:
="GIF"
'
'窗体
'（80）消息框中显示消息Hello
MsgBox"Hello!
"
'（81）在消息框中点击"是"按钮，则Ans值为vbYes；点击"否"按钮，则Ans值为vbNo。
Ans=MsgBox（"Continue?
",vbYesNo）
'返回值不为"是"，则退出
IfMsgBox（"Continue?
",vbYesNo）<>vbYesThenExitSub
'（82）使用常量的组合，赋值组Config变量，并设置第二个按钮为缺省按钮
Config=vbYesNo+vbQuestion+vbDefaultButton2
'（83）在消息框中强制换行，可用vbCrLf代替vbNewLine。
MsgBox"Thisisthefirstline."&vbNewLine&"Secondline."
'（84）应用工作表函数返回所选区域的平均值并按指定格式显示
MsgBox"theaverageis:
"&_
Format（Application.WorksheetFunction.Average（Selection）,"#,##0.00"）,vbInformation,"selectioncountaverage"&Chr（13）
'（85）显示用户窗体
UserForm1.Show
'（86）加载一个用户窗体,但该窗体处于隐藏状态
LoadUserForm1
'（87）隐藏用户窗体
UserForm1.Hide
'（88）卸载用户窗体
UnloadUserForm1
'或
UnloadMe
'（89）在用户窗体中显示图形
Picture1.Picture=LoadPicture（"C:
1.JPG"）
'（90）将窗体设置为无模式状态
UserForm1.Show0
'或
UserForm1.ShowvbModeless
'（91）窗体高度为当前活动窗口高度的0.88
Me.Height=Int（0.88*ActiveWindow.Height）
'窗体宽度为当前活动窗口高度的0.88
Me.Width=Int（0.88*ActiveWindow.Width）
'
'事件
'（92）禁用所有事件
Application.EnableEvents=False
'启用所有事件
Application.EnableEvents=True
'注：
不适用于用户窗体控件触发的事件
'对象
'（93）创建一个Excel工作表对象
SetExcelSheet=CreateObject（"Excel.Sheet"）
'设置Application对象使Excel可见
ExcelSheet.Application.Visible=True
'在表格的第一个单元中输入文本
ExcelSheet.Application.Cells（1,1）.Value="Data"
'将该表格保存到C:
test.xls目录
ExcelSheet.SaveAs"C:
TEST.XLS"
'关闭Excel
ExcelSheet.Application.Quit
'释放该对象变量
SetExcelSheet=Nothing
'（94）声明并创建一个Excel对象引用
DimxlAppAsExcel.Application
DimxlBookAsExcel.Workbook
DimxlSheetAsExcel.Worksheet
SetxlApp=CreateObject（"Excel.Application"）
SetxlBook=xlApp.Workbooks.Add
SetxlSheet=xlBook.Worksheets
（1）
'（95）创建并传递一个Excel.Application对象的引用
CallMySub（CreateObject（"Excel.Application"））
'（96）创建一个Dictionary对象变量
Setd=CreateObject（Scripting.Dictionary）
'（97）为对象变量添加关键字和条目
d.Add"a","Athens"
'
'其他
'（98）设置Ctrl+I键为macro过程的快捷键
Application.OnKey"^I","macro"
'（99）退出剪切/复制模式
Application.CutCopyMode=False
'（100）无论何时工作表中任意单元格重新计算，都会强制计算该函数
Application.VolatileTrue
'只有在该函数的一个或多个参数发生改变时，才会重新计算该函数
Application.VolatileFalse
'*******************************************************
' 定制模块行为
'（101）清除程序运行过程中所有的错误
Err.Clear
'*******************************************************
' 工作簿
'（102）返回上次保存工作簿的日期和时间
ThisWorkbook.BuiltinDocumentProperties（"LastSaveTime"）
'或
Application.Caller.Parent.Parent.BuiltinDocumentProperties（"LastSaveTime"）
'（103）返回上次打印或预览工作簿的日期和时间
ThisWorkbook.BuiltinDocumentProperties（"LastPrintDate"）
'或
Application.Caller.Parent.Parent.BuiltinDocumentProperties（"LastPrintDate"）
'（104）关闭所有打开的工作簿
Workbooks.Close
'（105）返回当前工作簿中的第一条链接
ActiveWorkbook.LinkSources（xlExcelLinks）
（1）
'（106）返回工作簿代码的名称
ActiveWorkbook.CodeName
ThisWorkbook.CodeName
'（107）返回当前工作簿文件格式代码
ActiveWorkbook.FileFormat
ThisWorkbook.FileFormat
'（108）返回当前工作簿的路径（注:
若工作簿未保存,则为空）
ThisWorkbook.Path
ActiveWorkbook.Path
'（109）返回当前工作簿的读/写值（为False）
ThisWorkbook.ReadOnly
ActiveWorkbook.ReadOnly
'（110）返回工作簿的存储值（若已保存则为False）
ThisWorkbook.Saved
ActiveWorkbook.Saved
'（111）隐藏工作簿
Application.Visible=False
'显示工作簿
Application.V
升级会员 