当前操作系统的名称和版本号Application.OperatingSystem

当前的注册组织名Application.OrganizationName

计算机名Environ(&34;computername&34;)

当前用户名

Application.UserName

Environ(&34;Username&34;)

启动微软的应用程序

Application.ActivateMicrosoftApp x

x为：

xlMicrosoftWord

xlMicrosoftPowerPoint

xlMicrosoftMail

xlMicrosoftAccess

xlMicrosoftFoxPro

xlMicrosoftProject

xlMicrosoftSchedulePlus

当前剩余内存Application.MemoryFree

当前MicrosoftExcel的总内存Application.MemoryTotal

被Excel使用的内存Application.MemoryUsed

Excel版本Application.Version

Excel安装路径Application.Path

启动Excel的路径Application.StartupPath

打开Excel文件时使用的默认路径Application.DefaultFilePath

模板保存的默认路径Application.TemplatesPath

库文件夹的路径Application.LibraryPath

路径分隔符Application.PathSeparator

设置文件清单中的最多文件数Application.RecentFiles.Maximum=n

设置新工作簿中的工作表个数Application.SheetsInNewWorkbook=n

设置文件的默认位置Application.DefaultFilePath=&34;路径&34;

打开Excel帮助文件Application.Help

Excel全屏显示

Application.DisplayFullScreen=True

Application.DisplayFullScreen=False

Excel窗口显示

Application.WindowState=x

x为：

xlMaximized

xlMinimized

xlNormal

Excel窗口位置

Application.Height

Application.Width

Application.Left

Application.Top

在主窗口中所能占有的最大高度和宽度

Application.UsableHeight

Application.UsableWidth

隐藏显示ExcelApplication.Visible=False\True

Excel标题设置

Application.Caption=&34;***&34;修改标题

Application.Caption=vbNullString恢复默认

Application.Caption=vbNullChar删除标题

设置状态栏中的文字

Application.StatusBar=&34;***&34;

Application.StatusBar=False

隐藏显示状态栏Application.DisplayStatusBar=False\True

隐藏显示编辑栏Application.DisplayFormulaBar=False\True

隐藏显示常用工具栏Application.CommandBars(&34;Standard&34;).Visible=False\True

隐藏显示格式工具栏Application.CommandBars(&34;Formatting&34;).Visible=False\True

隐藏显示任务窗格Application.CommandBars(&34;TaskPane&34;).Visible=False\True

更改鼠标指针形状Application.Cursor=x

x为：

xlWait沙漏型指针

xlIBeam i的大写型指针

xlNorthwestArrow西北向箭头指针

xlDefault恢复默认

撤消上次操作Application.Undo

自动手动计算

Application.Calculation=x

x为：

xlCalculationAutomatic自动计算

xlCalculationManual手动计算

xlCalculationSemiautomatic 除模拟运算表外,自动计算

切换引用样式

Application.ReferenceStyle=xlA1A1引用样式

Application.ReferenceStyle=xlR1C1R1C1引用样式

按回车切换单元格移动方向

Application.MoveAfterReturn=True按下Enter活动单元格的位置可以改变

Application.MoveAfterReturnDirection=x

x为： 向右移动

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(&34;加载宏名&34;).Installed=True

打开内置对话框Application.Dialogs(n).Show

值n为：

1---xlDialogOpen

5---xlDialogSaveAs

7---xlDialogPageSetup

8---xlDialogPrint

9---xlDialogPrinterSetup

17---xlDialogRun

23---xlDialogSetPrintTitles

26---xlDialogFont

27---xlDialogDisplay

41---xlDialogTable

42---xlDialogFormatNumber

45---xlDialogBorder

46---xlDialogCellProtection

47---xlDialogColumnWidth

52---xlDialogClear

55---xlDialogInsert

61---xlDialogDefineName

84---xlDialogPatterns

111---xlDialogDeleteFormat

119---xlDialogNew

127---xlDialogRowHeight

189---xlDialogSendMail

222---xlDialogPrintPreview

229---xlDialogDefineStyle

282---xlDialogWorkbookMove

283---xlDialogWorkbookCopy

302---xlDialogWorkbookNew

342---xlDialogInsertPicture

354---xlDialogWorkbookInsert

386---xlDialogWorkbookName

417---xlDialogWorkbookProtect

476---xlDialogActiveCellFont

509---xlDialogSetBackgroundPicture

583---xlDialogConditionalFormatting

596---xlDialogInsertHyperlink

用户输入的对话框

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(&34;信息&34;,x1+x2+x3+x4,&34;标题&34;)

x1为：

0/vbOKOnly

1/VbOKCancel

2/VbAbortRetryIgnore

3/VbYesNoCancel

4/VbYesNo

5/VbRetryCancel

x2为：

16/VbCritical

32/VbQuestion

48/VbExclamation

64/VbInformation

x3为：

0/vbDefaultButton1

256/vbDefaultButton2

512/vbDefaultButton3

768/vbDefaultButton4

x4为：

16384/vbMsgBoxHelpButton

524288/vbMsgBoxRight

a返回为：

1/vbOK

2/vbCancel

3/vbAbort

4/vbRetry

5/vbIgnore

6/vbYes

7/vbNo

运行宏Application.Run宏名

一段时间后运行宏Application.OnTimeNow+TimeValue(&34;00:00:05&34;),宏名

某时间运行宏Application.OnTimeTimeValue(&34;0:00:00&34;),宏名

制定宏运行的时间计划Application.OnTimeEarliestTime:=NextTime,Procedure:=&34;宏名&34;

取消运行计划Application.OnTimeEarliestTime:=TimeValue(&34;00:00:00&34;),Procedure:=&34;宏

名&34;,Schedule:=False

退出ExcelApplication.Quit