您当前的位置:首页 > 淘宝百科

inputbox函数怎么用(3分钟学会用inputbox函数)

时间:2023-01-09 12:30:55

inputbox函数怎么用(3分钟学会用inputbox函数)

大家好,我们今日继续讲解VBA代码,今日讲解的是第43讲,Excel使用过程中,有时需要用户输入简单的数据,此时可以使用InputBox函数显示一个对话框,供用户在对话框中输入数据信息,

InputBox函数显示一个对话框,等待用户输入正文或按下按钮,并返回包含文本框内容的字符串,语法如下:

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

参数

a) prompt是必需的,作为对话框消息出现的字符串表达式。

b) title是可选的,作为显示在对话框标题栏中的字符串表达式,如果省略title参数,则在标题栏中显示”Microsoft Excel”。

c) default是可选的,显示在文本框中的字符串表达式,在没有其它输入时作为缺省值,如果省略default参数,则文本框为空。

d) xpos是可选的,指定对话框的左边与屏幕左边的水平距离。如果省略xpos参数,则对话框会在水平方向居中。

e) ypos是可选的,指定对话框的上边与屏幕上边的距离。如果省略ypos参数,则对话框被放置在屏幕垂直方向距下边大约三分之一的位置。

f) helpfile和参数context是可选的,为对话框提供上下文相关的帮助和编号,如果提供了其中一个参数,则必须提供另一个参数,两者缺一不可。

如下面的代码所示。

Sub MyInputBox()

Dim sInt As String

Dim r As Integer

r = Sheet1.Range(“A65536”).End(xlUp).Row

sInt = InputBox(“请输入添加人员的姓名:”)

If Len(Trim(sInt)) > 0 Then

Sheet1.Cells(r + 1, 1) = sInt

Else

MsgBox “您没有输入内容!”

End If

End Sub

代码窗口:

代码解析:

MyInputBox过程使用InputBox函数显示一个对话框供用户在对话框中输入数据,

第5行代码,使用InputBox函数显示一个提示用户输入邮政编码的对话框,其中”请输入添加人员的姓名:”是必需的prompt参数,其他参数使用缺省值。

第4行代码,使用Len函数和Trim函数判断返回的去除空格后的字符串长度。如果字符串长度大于零,说明用户单击了对话框的”确定”按钮,则将用户输入的数据写到工作表的A列单元格。如果返回的是长度为零的字符串,说明用户单击了对话框的”取消”按钮,则显示一条提示消息。

因为当用户单击对话框的”确定”按钮后,InputBox函数返回包含文本框内容的字符串,如果用户单击对话框的”取消”按钮则返回一个长度为零的字符串(””),通过返回的字符串长度可以判断用户做出的选择。

代码运行:

代码运行后:

今日内容回向:

1 InputBox 函数的意义是什么?

2 Len(Trim(sInt)) 意义是什么?

对话框

|| 相关文章
    无相关信息
最新文章