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