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中与用户进行交互和获取输入。根据需求的不同，你可以选择适合的函数来实现相应的功能。
