InputBox函数是Excel VBA中常用的一个函数，用于弹出一个对话框，请求用户输入数据。下面是六个不同的代码实例，展示了不同的用法：

1、基本用法：

Dim name As String name = InputBox("请输入您的姓名：") MsgBox "欢迎您，" & name & "！"

该代码会在对话框中提示用户输入姓名，并将输入的姓名保存到变量name中，然后通过消息框显示欢迎消息。

2、指定默认值：

Dim age As Integer age = InputBox("请输入您的年龄：", "年龄", 18) MsgBox "您的年龄是：" & age

该代码在对话框中提示用户输入年龄，初始化默认值为18。用户可以直接输入新的年龄或者保持默认值。

3、输入数字：

Dim quantity As Double quantity = InputBox("请输入数量：", "数量") If IsNumeric(quantity) Then MsgBox "您输入的数量是：" & quantity Else MsgBox "请输入有效的数字！" End If

该代码提示用户输入数量，并判断输入是否为有效的数字。如果是数字，则通过消息框显示输入的数量，否则显示错误消息。

4、输入密码：

Dim password As String password = Application.InputBox("请输入密码：", "密码", Type:=2) If password = "abc123" Then MsgBox "密码正确！" Else MsgBox "密码错误！" End If

该代码在对话框中提示用户输入密码，并隐藏输入的字符。然后根据输入的密码进行判断，显示相应的结果消息。

5、输入日期：

Dim dateOfBirth As Date dateOfBirth = CDate(InputBox("请输入出生日期：", "出生日期")) MsgBox "您的出生日期是：" & Format(dateOfBirth, "yyyy年m月d日")

该代码提示用户输入出生日期，并将输入的文本数据转换为日期类型。然后通过消息框显示格式化后的出生日期。

6、只接受特定范围内的输入：

Dim choice As String Do choice = InputBox("请选择A、B或C：", "选择") Loop Until choice = "A" Or choice = "B" Or choice = "C" MsgBox "您选择了：" & choice

该代码要求用户只能在"A"、"B"或"C"中选择一个选项。如果用户输入的选项不在指定范围内，则会一直提示用户重新输入，直到输入有效选项为止。最后通过消息框显示用户的选择。

除了InputBox函数，还有一些函数在功能上与InputBox函数类似，它们也可以用于获取用户输入或进行类似的交互。以下是几个与InputBox函数相似的函数：

1、Application.GetOpenFilename：该函数用于打开文件对话框，要求用户选择一个或多个文件并返回文件的路径和名称。可以通过该函数获取用户选择的文件路径。

Application.GetOpenFilename：

Dim fileName As Variant fileName = Application.GetOpenFilename("选择文件", , "Excel文件 (*.xlsx), *.xlsx") If VarType(fileName) = vbBoolean And fileName = False Then MsgBox "未选择文件！" Else MsgBox "您选择的文件是：" & fileName End If

该代码使用GetOpenFilename函数打开一个文件对话框，并指定过滤器为Excel文件。用户选择文件后，将文件路径和名称保存到变量fileName中，并显示所选文件的消息框。

2、Application.GetSaveAsFilename：该函数用于打开另存为对话框，要求用户选择保存文件的路径和名称。可以通过该函数获取用户指定的保存路径。

Application.GetSaveAsFilename：

Dim fileName As Variant fileName = Application.GetSaveAsFilename("保存文件", , "Excel文件 (*.xlsx), *.xlsx") If VarType(fileName) = vbBoolean And fileName = False Then MsgBox "取消保存！" Else MsgBox "您选择的保存路径和文件名是：" & fileName End If

该代码使用GetSaveAsFilename函数打开一个另存为对话框，过滤器为Excel文件。用户选择保存路径和文件名后，将其保存到变量fileName中，并显示所选保存路径和文件名的消息框。

3、Application.FileDialog：该对象和相关方法可用于显示各种对话框，包括打开文件对话框、保存文件对话框、选择文件夹对话框等。可以通过该对象自定义交互界面以获取用户的选择。

Application.FileDialog：

Dim fileDialog As FileDialog Set fileDialog = Application.FileDialog(msoFileDialogOpen) With fileDialog .Title = "选择文件" .Filters.Clear .Filters.Add "Excel文件", "*.xlsx" .AllowMultiSelect = False If .Show = -1 Then MsgBox "您选择的文件是：" & .SelectedItems(1) Else MsgBox "未选择文件！" End If End With

该代码使用FileDialog对象显示一个打开文件对话框。可以设置对话框的标题、过滤器和是否允许多选等属性。用户选择文件后，将文件路径和名称保存到SelectedItems集合中，并显示所选文件的消息框。

4、Application.InputBox：此函数与InputBox函数名称相似，但是具有更高级的功能，可以指定输入值的类型以及对输入值进行验证和限制。与InputBox函数相比，该函数提供了更丰富的选项和灵活性。

Application.InputBox：

Dim value As Variant value = Application.InputBox("请输入一个数字：", "输入", , , , , , 1) If TypeName(value) = "Boolean" Then MsgBox "取消输入！" ElseIf Not IsNumeric(value) Then MsgBox "请输入有效的数字！" Else MsgBox "您输入的数字是：" & value End If

该代码使用InputBox函数打开一个输入框，要求用户输入一个数字。可以设置其他参数来指定输入框的标题、默认值、验证类型等。根据用户的输入，显示相应的消息框。

这些函数都可以用于在Excel VBA中与用户进行交互和获取输入。根据需求的不同，你可以选择适合的函数来实现相应的功能。