前面各章的实例中或多或少都有用到一些函数，接下来将做一个汇总，对 VBA 中常见函数的分类介绍，涵盖字符串处理、调试、类型转换、数学运算等多个领域，并附有示例说明：

二、调试与输出函数

2.1. Debug.Print

• 作用

在 VBA 的 立即窗口（按 Ctrl+G 打开）中输出内容，用于调试时快速查看变量值或程序状态。

• 语法

Debug.Print [outputlist]

参数

• outputlist（可选）：
  要输出的内容，可以是变量、表达式或字符串。
  支持用逗号 , 分隔多个参数，按固定格式对齐；或用分号 ; 分隔，紧凑输出。
  若省略参数，输出空行。

示例

Dim x As Integer
x = 10
Debug.Print "x 的值是："; x        ' 输出 "x 的值是： 10"
Debug.Print "A", "B", "C"         ' 输出对齐的三列：A   B   C
Debug.Print                       ' 输出空行

2.2. MsgBox

• 作用

弹出对话框显示消息，并可返回用户点击的按钮结果（如“确定”、“取消”等）。

• 语法

MsgBox(prompt, [buttons], [title], [helpfile], [context])

参数

常用按钮常量

返回值

示例

Dim response As Integer
response = MsgBox("是否继续？", vbYesNo + vbQuestion, "确认操作")
If response = vbYes Then
    Debug.Print "用户选择了“是”"
End If

2.3. InputBox

• 作用

弹出对话框获取用户输入的文本或数值。

• 语法

InputBox(prompt, [title], [default], [xpos], [ypos], [helpfile], [context], [type])

参数

Type 参数选项

返回值

• 用户输入的内容（若点击取消，返回空字符串）。

示例

Dim userName As String
userName = InputBox("请输入您的姓名：", "用户注册", "默认姓名")
If userName <> "" Then
    Debug.Print "用户姓名：" & userName
Else
    Debug.Print "用户取消了输入"
End If

2.4 Stop 语句

• 作用：暂停代码执行并进入调试模式（类似断点）。
• 语法：Stop
• 示例：

If x < 0 Then
    Stop  ' 当 x 为负数时暂停
End If

2.5 Assert 方法

• 作用：在条件为 False 时中断代码，仅用于调试（需在 调试 → 添加监视 中启用）。
• 语法：Debug.Assert condition
• 示例：

Debug.Assert x > 0  ' 若 x<=0 则中断

2.6 On Error GoTo/On Error Resume Next

• 在 VBA 中使用 On Error GoTo 处理错误时，错误的具体返回值由 Err.Number 属性提供，不同的错误对应不同的错误代码。以下是常见错误代码及其含义的详细说明：

• 以下是 VBA 运行时常见的错误代码及其含义：

• 除了内置错误，可以通过 Err.Raise 手动触发自定义错误，代码范围通常为 vbObjectError + 自定义值（例如 vbObjectError + 1000）。

示例：

Sub Demo()
    On Error GoTo ErrorHandler
    ' 手动触发自定义错误
    Err.Raise Number:=vbObjectError + 1000, Description:="自定义错误！"
    Exit Sub

ErrorHandler:
    If Err.Number = vbObjectError + 1000 Then
        MsgBox "发生自定义错误：" & Err.Description
    Else
        MsgBox "其他错误：" & Err.Description
    End If
End Sub

• 关键操作

获取错误描述：

Debug.Print Err.Description

手动清除错误：

Err.Clear

重新触发错误：

Err.Raise Err.Number

以上函数和语句覆盖了 VBA 中调试与用户交互的核心功能：

• Debug.Print：轻量级调试输出。
• MsgBox：弹窗提示或获取简单用户反馈。
• InputBox：获取用户输入文本或数值。
• Stop/Assert：主动中断代码以排查问题。

实际开发中，结合 Err 对象的错误处理（如 On Error GoTo）和断点调试（F8 逐语句执行），可以高效定位和修复代码问题。