VBA使用手册

功能语法语法说明当前操作系统的名称和版本号Application.OperatingSystem当前的注册组织名Application.OrganizationName计算机名Environ(computername)当前用户名Application.UserNameEnviron(Username)启动微软的应用程序Application.ActivateMicrosoftAppxx为：xlMicrosoftWordxlMicrosoftPowerPointxlMicrosoftMailxlMicrosoftAccessxlMicrosoftFoxProxlMicrosoftProjectxlMicrosoftSchedulePlus当前剩余内存Application.MemoryFree当前MicrosoftExcel的总内存Application.MemoryTotal被Excel使用的内存Application.MemoryUsedExcel版本Application.VersionExcel安装路径Application.Path启动Excel的路径Application.StartupPath打开Excel文件时使用的默认路径Application.DefaultFilePath模板保存的默认路径Application.TemplatesPath库文件夹的路径Application.LibraryPath路径分隔符Application.PathSeparator设置文件清单中的最多文件数Application.RecentFiles.Maximum=n设置新工作簿中的工作表个数Application.SheetsInNewWorkbook=n设置文件的默认位置Application.DefaultFilePath=路径打开Excel帮助文件Application.HelpExcel全屏显示Application.DisplayFullScreen=True全屏显示Application.DisplayFullScreen=False恢复默认Excel窗口显示Application.WindowState=xx为：xlMaximized最大化xlMinimized最小化xlNormal一般显示Excel窗口位置Application.Height高度Application.Width宽度Application.Left左边界第1章Application对象Application.Top顶端距离在主窗口中所能占有的最大高度和宽度Application.UsableHeight最大高度Application.UsableWidth最大宽度隐藏显示ExcelApplication.Visible=False\TrueExcel标题设置Application.Caption=***修改标题Application.Caption=vbNullString恢复默认Application.Caption=vbNullChar删除标题设置状态栏中的文字Application.StatusBar=***设置文字Application.StatusBar=False恢复默认隐藏显示状态栏Application.DisplayStatusBar=False\True隐藏显示编辑栏Application.DisplayFormulaBar=False\True隐藏显示常用工具栏Application.CommandBars(Standard).Visible=False\True隐藏显示格式工具栏Application.CommandBars(Formatting).Visible=False\True隐藏显示任务窗格Application.CommandBars(TaskPane).Visible=False\True更改鼠标指针形状Application.Cursor=xx为：xlWait沙漏型指针xlIBeamI型指针xlNorthwestArrow西北向箭头指针xlDefault恢复默认撤消上次操作Application.Undo自动手动计算Application.Calculation=xx为：xlCalculationAutomatic自动计算xlCalculationManual手动计算xlCalculationSemiautomatic除模拟运算表外,自动计算切换引用样式Application.ReferenceStyle=xlA1A1引用样式Application.ReferenceStyle=xlR1C1R1C1引用样式按回车切换单元格移动方向Application.MoveAfterReturn=True按下Enter活动单元格的位置可以改变Application.MoveAfterReturnDirection=xx为：xlToRight向右移动xlDown向下移动xlToLeft向左移动xlUp向上移动禁用Ctrl+Break中止宏运行的功能Application.Enable.CancelKey=xlDisabled禁止在单元格中直接编辑Application.EditDirectlyInCell=False\True屏幕刷新Application.ScreenUpdating=False\True停用\启用指定对象禁用启用事件Application.EnableEvents=False\True停用\启用禁用启用Esc键捕获功能Application.EnableCancelKey=xlDisabled禁用Application.EnableCancelKey=xlInterrupt启用关闭显示警告信息框Application.DisplayAlerts=False\True清空剪贴板Application.CutCopyMode=False\True安装指定加载宏Application.AddIns(加载宏名).Installed=True打开内置对话框Application.Dialogs(n).Show值n为：1xlDialogOpen打开5xlDialogSaveAs另存为7xlDialogPageSetup页面设置8xlDialogPrint打印内容9xlDialogPrinterSetup打印机设置17xlDialogRun宏23xlDialogSetPrintTitles设置打印标题26xlDialogFont字体27xlDialogDisplay显示选项41xlDialogTable模拟运算表42xlDialogFormatNumber单元格格式(数字）45xlDialogBorder单元格格式(边框）46xlDialogCellProtection单元格格式(保护）47xlDialogColumnWidth列宽52xlDialogClear清除55xlDialogInsert插入61xlDialogDefineName定义名称84xlDialogPatterns单元格格式(图案）111xlDialogDeleteFormat单元格格式(数字）119xlDialogNew新建工作簿127xlDialogRowHeight行高189xlDialogSendMail发送邮件222xlDialogPrintPreview打印预览229xlDialogDefineStyle样式282xlDialogWorkbookMove移动或复制工作表283xlDialogWorkbookCopy移动或复制工作表（建立副本）302xlDialogWorkbookNew新建工作表342xlDialogInsertPicture插入图片354xlDialogWorkbookInsert插入工作表386xlDialogWorkbookName重命名工作表417xlDialogWorkbookProtect保护工作簿476xlDialogActiveCellFont单元格格式(字体）509xlDialogSetBackgroundPicture工作表背景583xlDialogConditionalFormatting条件格式596xlDialogInsertHyperlink插入超链接用户输入的对话框Selection.Value=Application.InputBox(Prompt:=myPrompt,Title:=myTitle,Type:=0)公式Selection.Value=Application.InputBox(Prompt:=myPrompt,Title:=myTitle,Type:=1)数字Selection.Value=Application.InputBox(Prompt:=myPrompt,Title:=myTitle,Type:=2)文本Application.InputBox(Prompt:=myPrompt,Title:=myTitle,Default:=myDefault,Type:=8)单元格区域Application.InputBox(Prompt:=myPrompt,Title:=myTitle,Type:=1+2)数字或文本Application.InputBox(Prompt:=myPrompt,Title:=myTitle,Default:=myDefault,Type:=2)日期显示消息对话框a=MsgBox(信息,x1+x2+x3+x4,标题)x1为：0/vbOKOnly只显示OK按钮1/VbOKCancel显示OK及Cancel按钮2/VbAbortRetryIgnore显示Abort,Retry及Ignore按钮3/VbYesNoCancel显示Yes,No及Cancel按钮4/VbYesNo显示Yes及No按钮。5/VbRetryCancel显示Retry及Cancel按钮x2为：16/VbCritical显示CriticalMessage图标32/VbQuestion显示WarningQuery图标48/VbExclamation显示WarningMessage图标64/VbInformation显示InformationMessage图标x3为：0/vbDefaultButton1第一个按钮是默认按钮256/vbDefaultButton2第二个按钮是默认按钮512/vbDefaultButton3第三个按钮是默认按钮768/vbDefaultButton4第四个按钮是默认按钮x4为：16384/vbMsgBoxHelpButton将Help按钮添加到消息框524288/vbMsgBoxRight文本为右对齐a返回为：1/vbOKOK2/vbCancelCancel3/vbAbortAbort4/vbRetryRetry5/vbIgnoreIgnore6/vbYesYes7/vbNoNo运行宏Application.Run宏名一段时间后运行宏Application.OnTimeNow+TimeValue(00:00:05),宏名5秒后某时间运行宏Application.OnTimeTimeValue(0:00:00),宏名0点0分制定宏运行的时间计划Application.OnTimeEarliestTime:=NextTime,Procedure:=宏名需设置NextTime取消运行计划Application.OnTimeEarliestTime:=TimeValue(00:00:00),Procedure:=宏名,Schedule:=False退出ExcelApplication.Quit工作簿名Workbooks(1).Name第一个打开的工作簿当前活动工作簿名ActiveWorkbook.NameThisWorkbook.Name当前完整路径的工作簿名ThisWorkbook.FullName本工作簿的基本名称Left(ThisWorkb