对于Excel办公党来说，INPUTBOX是VBA中最实用的简易交互工具——无需复杂界面设计，就能快速弹出窗口，收集用户输入（如文件名、日期、数值），搭配宏使用能大幅提升办公自动化效率。
本文仅聚焦Excel VBA场景，用最简洁的语言+可直接复制的案例，帮你3分钟上手，避开新手常见坑。
一、Excel VBA中INPUTBOX核心定义
INPUTBOX本质是“简易输入对话框”，核心作用：弹出窗口提示用户输入内容，将输入内容返回给VBA程序，供后续批量处理、数据筛选等操作使用，适用于所有简单输入场景。
二、核心用法：语法+实操案例（直接复制）
1. 必记基础语法
新手重点记前2个参数：
InputBox(提示文本, 标题, 默认值)
参数解读：
提示文本（必填）：告诉用户需输入什么，例：“请输入文件保存路径”；
标题（可选）：输入框顶部标题，默认显示“Microsoft Excel”；
默认值（可选）：输入框预先显示的内容，可节省用户输入时间。
2. 2个高频实操案例（直接运行）
案例1：接收文本输入（如姓名、文件名）
Sub InputBox文本案例()
Dim name As String
' 弹出输入框，提示输入姓名，标题为“输入姓名”
name = InputBox("请输入你的姓名：", "输入姓名")
' 判断用户是否输入（避免点击“取消”报错）
If name <> "" Then
MsgBox "你好，" & name & "！", , "问候提示"
Else
MsgBox "你未输入姓名哦！", , "提示"
End If
End Sub
案例2：接收数字输入（如年龄、数量，用于计算/筛选）
关键：INPUTBOX默认返回文本，需用Val()函数转换为数字，避免计算报错。
Sub InputBox数字案例()
Dim age As Integer
Dim inputStr As String
' 弹出输入框，提示输入年龄，默认值为18
inputStr = InputBox("请输入你的年龄：", "输入年龄", 18)
' 判断输入不为空且为有效数字
If inputStr <> "" Then
age = Val(inputStr) ' 文本转数字（核心步骤）
If age >= 18 Then
MsgBox "你已成年！", , "判断结果"
Else
MsgBox "你未成年哦！", , "判断结果"
End If
Else
MsgBox "你未输入年龄！", , "提示"
End If
End Sub
三、Excel VBA新手必避2个坑
坑1：忽略“取消”按钮的返回值
用户点击“取消”或关闭输入框时，INPUTBOX返回空文本，不判断空值直接使用，会导致代码报错。
✅ 正确做法：如案例中，用“if 输入值 <> "" ”判断是否有输入。
坑2：混淆文本与数字类型
INPUTBOX默认返回文本，哪怕输入数字，直接用于计算会出现逻辑错误（如“10+20”变成“1020”）。
✅ 正确做法：用Val()函数将文本转换为数字，如案例2中的核心步骤。
四、高频实用场景（直接套用）
批量筛选：让用户输入日期，VBA根据输入日期筛选指定范围内的数据；
文件保存：让用户输入文件保存路径，自动将处理好的表格保存到指定位置；
批量命名：让用户输入前缀，自动给多个工作表、单元格批量命名。
总结：Excel VBA中，INPUTBOX主打“简单高效”，记住基础语法、复制案例改一改，避开2个新手坑，就能轻松用于办公自动化，节省大量重复操作时间。
