ExcelVBA命令大全.docxExcel-VBA命令大全
本示例为设置密码窗口 (1) If ("请输入密码:") = 1234 Then [A1] = 1 '密码正确时执行 Else: MsgBox "密码错误,即将退出!" '此行与第2行共同设置密码 End If
本示例为设置密码窗口 (1) X = MsgBox("是否真的要结帐?", vbYesNo) If X = vbYes Then Close
本示例为设置工作表密码 Password:=641112 ' 保护工作表并设置密码 Password:=641112 '撤消工作表保护并取消密码 '
本示例关闭除正在运行本示例的工作簿以外的其他所有工作簿,并保存其更改内容 。 For Each w In Workbooks If Then SaveChanges:=True End If Next w '每次打开工作簿时,本示例都最大化 Microsoft Excel 窗口。 = xlMaximized '
本示例显示活动工作表的名称。 MsgBox "The name of the active sheet is " & '
本示例保存当前活动工作簿的副本。 "C:/TEMP/" '下述过程激活工作簿中的第四张工作表。 Sheets(4).Activate '下述过程激活工作簿中的第1张工作表。
ExcelVBA命令大全 来自淘豆网www.taodocs.com转载请标明出处.