在VBA中，InputBox 函数用于从用户那里获取输入。它显示一个包含文本框的对话框，用户可以在文本框中输入文本，并单击确定按钮。以下是 InputBox 函数的基本语法：
InputBox(Prompt, [Title], [Default], [XPos], [YPos], [HelpFile], [Context])

其中：
  •  Prompt 是要显示在对话框中的提示消息。

  •  Title 是对话框的标题（可选）。

  •  Default 是文本框中的默认文本（可选）。

  •  XPos 和 YPos 是对话框的位置（可选）。

  •  HelpFile 和 Context 用于提供帮助（可选）。


以下是一些使用 InputBox 函数的示例：

1. 简单的输入框：
   Dim userInput As String
   userInput = InputBox("请输入您的姓名:", "输入框标题", "默认值")
   MsgBox "您输入的是: " & userInput

2. 带有默认值和标题的输入框：
   Dim age As Integer
   age = InputBox("请输入您的年龄:", "年龄输入", "25")
   MsgBox "您的年龄是: " & age

3. 使用输入框获取数值：
   Dim number As Double
   number = Val(InputBox("请输入一个数值:", "数值输入"))
   MsgBox "您输入的数值是: " & number

4. 使用 XPos 和 YPos 设置对话框位置：
   Dim userInput As String
   userInput = InputBox("请输入:", "自定义位置", , 100, 100)

请注意，InputBox 返回一个字符串。如果您需要将输入转换为其他数据类型（例如整数或浮点数），请使用适当的转换函数，如 Val 或 CInt。


转载请注明出处：http://www.zyzy.cn/article/detail/297/VBA