办公高手EXCEL常用宏命令.doc

办公高手.EXCEL常用宏命令 1 ?设置打开时弹出对话框的命令举例: ??? Sub AUTO_OPEN() ??? 输入打开工作表时要运行的代码或宏 ??? End Bub ??????? 2 ?设置关闭时弹出对话框的命令举例: ??? Sub AUTO_CLOSE() ??? 输入关闭工作表时要运行的代码或宏 ??? End Bub ??????? 3 ?设置提示框举例: ??? MsgBox prompt:=温馨提示：您要打开的工作表有保护！, Buttons:=vbOKOnly, Title:=谷子提示 ??????? ??? i = MsgBox(系统提供不同服务，是否浏览资费信息？, vbYesNoCancel, 谷子提示：) ??? If i = vbYes Then ??? MsgBox 资费信息：********, , 谷子提示 ??? Else ??? 输入要运行的代码 ??? End If ??????? 4、提示框内容过长，换行vbNewLine： ??? MsgBox 您本次访问系统的时间是： Date Time vbNewLine 系统离到期日还剩余： _ ??? DateDiff(d, Now, 2010-12-31) 天! vbNewLine 是否查阅到期日说明？, vbYesNoCancel, 时间和到期日提示： ??????? 5 ?提示提示系统的日期和时间: ??? MsgBox 系统当前日期和时间： Date Time, , 时间提示 ??? DateDiff(d, Now, 2010-10-31) 天!?? ‘提示离指定日期的剩余天数 ??????? 6 ?系统时间判断命令: ??? Sub 判断时间测试() ??? If Date 2010-05-20 Then ??? MsgBox 对不起，测试期间已经结束, , 谷子提示 ??? Else ??? Sheets(首页).Select? 或其他命令 ??? End If ??? End Sub ??????? 7 ?禁止保存或另存的命令: ??? Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) ??? MsgBox (禁止保存) ??? Cancel = True 或thisworkbook.saved=true ??? End Sub ??????? 8 ?保护工作表与撤销保护 ??? Sheet2.Protect Password:=123456, DrawingObjects:=True, Contents:=True, Scenarios:=True?? 保护工作表SHEET2 ??? Sheet2.Unprotect (123456)? 解除保护 ??????? 9 ?保护工作簿与撤销保护 ??? ActiveWorkbook.Protect Structure:=True, Windows:=False, Password:=123 ??? ActiveWorkbook.Unprotect Password:=123 ??????? 10 ?保护全部工作表 ??? Sub 保护所有工作表() ??? Dim ws As Worksheet ??? For Each ws In Worksheets ??? ws.Activate ??? ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=123 ??? Next ??? End Sub ??????? 11 ?抽取各表名称 ??? Sub 抽取各表名称() ??? Range(a1).Value = ThisWorkbook.Name ??? n = ThisWorkbook.Sheets.Count ??? Range(a2).Value = n ??? For i = 1 To n ???? Cells(i, 2).Value = Sheets(i).Name ??? Next ??? End Sub ??????? ??? EXCEL2007命令 ??? Dim n As Variant 指定变量 ??? Dim i As Integer 指定变量 ??? Range(a1).Value = ThisWorkbook.Name ??? n = ThisWorkbook.Sheets.Count ??? Range(a2).Value = n ??? For i = 1 To n ???? Cells(