VBA常用代码

VBA常用代码：

Application.EnableEvents= True/ False ’启用/禁用所有事件

Application.DisplayAlerts=True/False ’显示/关闭警告框提示框

Application.ScreenUpdating= True/False ’显示/关闭屏幕刷新

Application.StatusBar = "软件报专用" ’在地址栏中显示文本，标题栏用Caption属性

Application.Cursor = xlIBeam ‘设置光标形状为Ⅰ字形，xlWait为沙漏(等待)形，xlNormal为正常

Application.WindowState = xlMinimized ‘窗口最小化，xlMaximized最大化，xlNormal为正常

Application.ActivateMicrosoftApp xlMicrosoftWord ’开启Word应用程序

Application.TemplatesPath ‘获取工作簿模板的位置

Application.CalculateFull ’重新计算所有打开的工作簿中的数据

Application.RecentFiles.Maximum = 2 ’将最近使用的文档列表数设为2

Application.RecentFiles(3).Open ’打开最近打开的文档中的第3个文档

Application.AutoCorrect.AddReplacement "sweek", "软件报" ’自动将输入的"sweek"更正为"软件报"

Application.Dialogs(xlDialogPrint).Show ‘显示打印文档的对话框

Application.OnTime Now + TimeValue("00:00:45"), "process" ’45分钟后执行指定过程

Application.OnTime TimeValue("14:00:00"), " process " ’下午2点执行指定过程

Application.OnTime EarliestTime:=TimeValue("14:00:00"), _

Procedure:="process", Schedule:=False ’取消指定时间的过程的执行

工作簿/工作表篇

ActiveWorkbook.Sheets.Count ’获取活动工作薄中工作表数

ActiveWorkbook.LinkSources(xlExcelLinks)(1) ‘返回当前工作簿中的第一条链接