Excel 2010 VBA 入门 117 具备输入功能的对话框

目录

例

码

VBA.InputBox函数

InputBox函数的返回值

---

例

    在Excel VBA中，经常给用户提供输入信息的功能用以获取信息，并执行相应的操作。例如，在一个对话框供用户输入信息，然后执行相应的查询。

码

    使用InputBox函数提供一个可以输入信息的弹出对话框提示，并使用一个变量接受用户的输入值。

Option Explicit

Sub 输入对话框()
    Dim sInput As String
    sInput = InputBox("输入查询内容", "查询")
    If sInput = "" Then
        MsgBox "未输入查询内容"
    Else
        MsgBox "查询内容为：" & sInput
    End If
End Sub

VBA.InputBox函数

    VBA. InpubBox函数是VB运行库的一个输入函数，该函数提供了可以输入的一个对话框，用以接受用户的输入值，其语法为    

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

或       

VBA.InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context] )

    该函数将返回一个文本类型的字符。

• 参数prompt为对话框的提示文本。
• 参数title为对话框的标题。
• 参数default为输