代码 Sub 现在() MsgBox Format(Date, "yyyy年m月") & Chr(10) & Format(Date, "AAA") & Chr(10) & Format(Now, "h") & "点钟", 64, "现在是" End Sub 解析 Format(Date, "yyyy年m月"): 把当前日期格式化成某年某月的格式。
Chr(10):换行。 MsgBox XXXXX,64,"现在是" :
这是Msgbox的语句,与format无关。 注:上面XXXXX代表“ Format(Date, "yyyy年m月") & Chr(10) & Format(Date, "AAA") & Chr(10) & Format(Now, "h") & "点钟" ”这个字符串。 其中msgbox的参数: MsgBox(prompt, [ buttons ], [ title ], [ helpfile, context ])MsgBox 函数语法具有以下命名参数: 部分 | 说明 |
---|
prompt | 必需项。 字符串表达式在对话框中显示为消息。 prompt 的最大长度约为 1024 个字符,具体取决于所使用的字符的宽度。 如果 prompt 包含两行以上,则可以在每行之间使用回车符 (Chr(13))、换行符 (Chr(10)) 或回车换行符组合 (Chr(13) & Chr(10)) 将其分隔。 | buttons | 可选。 数值表达式,用于指定要显示按钮的数量和类型、要使用的图标样式、默认按钮的标识和消息框的形式的值之和。 如果省略,则 buttons 的默认值为 0。 | title | 可选。 对话框标题栏中显示的字符串表达式。 如果省略 title,则标题栏中将显示应用程序名称。 | helpfile | 可选。 用于标识帮助文件的字符串表达式,前者用于为对话框提供上下文相关的帮助。 如果提供 helpfile,则也必须提供 context。 | context | 可选。 帮助上下文数值的数值表达式,该数值由帮助作者为相应的帮助主题分配。 如果提供 context,则也必须提供 helpfile。 |
buttons 参数设置如下: 常量 | 值 | 说明 |
---|
vbOKOnly | 0 | 仅显示“确定”按钮。 | vbOKCancel | 1 | 显示“确定”和“取消”按钮。 | vbAbortRetryIgnore | 2 | 显示“中止”、“重试”和“忽略”按钮。 | vbYesNoCancel | 3 | 显示“是”、“否”和“取消”按钮。 | vbYesNo | 4 | 显示“是”和“否”按钮。 | vbRetryCancel | 5 | 显示“重试”和“取消”按钮。 | vbCritical | 16 | 显示“关键消息”图标。 | vbQuestion | 32 | 显示“警告查询”图标。 | vbExclamation | 48 | 显示“警告消息”图标。 | vbInformation | 64 | 显示“信息消息”图标。 | vbDefaultButton1 | 0 | 第一个按钮是默认按钮。 | 所以说,提问者问的64是什么意思,就是 “显示“信息消息”图标。” 可以点击阅读原文了解更多的Msgbox。
|