您可以在Excel中使用VBA InputBox函数来提示用户输入一个值。将工作表上的一个命令按钮并添加以下代码行:

1.首先,声明Variant类型的可变myvalue的。

Dim myValue As Variant

注:我们使用Variant类型的变量在这里是因为Variant变量可以保存任何类型的值。通过这种方式,用户可以输入文字,数字等

2.添加以下代码行以显示输入框。

myValue = InputBox("Give me some input")

InputBox Function in Excel VBA

3.写myvalue的值的单元格A1。

Range("A1").Value = myValue

当用户输入的值5和点击OK键导致。

InputBox Function Result

  1. InputBox函数有更多的可选参数。下面的代码线示出了具有标题的输入框显示在标题栏和具有默认值。如果没有提供其它输入的默认值将被使用。

myValue = InputBox("Give me some input", "Hi", 1)

InputBox Function in Excel VBA

结果,当用户只点击OK按钮。

InputBox Function Result

注:将InputBox上的光标在Visual Basic编辑器,然后点击F1有关其他可选参数的帮助。