VBA输⼊框（InputBox）（六）
InputBox函数提⽰⽤户输⼊值。当输⼊值后，如果⽤户单击 确定 按钮或按下键盘上的 ENTER 键， InputBox函数将返回⽂本框中的⽂本。如果⽤户单击 “取消” 按钮，该函数将返回⼀个空字符串( "")。
语法
InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])
参数说明
Prompt - 必需的参数。 在对话框中显⽰为消息的字符串。提⽰的最⼤长度⼤约为1024个字符。 如果消息扩展为多⾏，则可以使⽤每⾏之间的回车符(Chr(13))或换⾏符(Chr(10))来分隔⾏。
title - ⼀个可选参数。显⽰在对话框的标题栏中的字符串表达式。如果标题留空，应⽤程序名称将被放置在标题栏中。
default - ⼀个可选参数。⽤户希望显⽰的⽂本框中的默认⽂本。
xpos - ⼀个可选参数。X轴的位置表⽰⽔平从屏幕左侧的提⽰距离。 如果留空，则输⼊框⽔平居中。
ypos - ⼀个可选参数。Y轴的位置表⽰竖直⽅向从屏幕左侧的提⽰距离。如果留空，则输⼊框垂直居中。
helpfile - ⼀个可选参数。⼀个字符串表达式，标识⽤于为对话框提供上下⽂相关帮助的帮助⽂件。
context - ⼀个可选参数。⼀个数字表达式，⽤于标识由帮助作者分配给相应帮助主题的帮助上下⽂编号。如果提供上下⽂，则还必须提供helpfile。
⽰例
在这个⽰例中，通过在两个输⼊框(⼀个⽤于长度，⼀个⽤于宽度)的帮助下在运⾏时从⽤户获取值来计算矩形的⾯积。实现代码如下 -
Function CountArea()
Dim Length As Double
Dim Width As Double
Length = InputBox("输⼊⼀个长度值： ", "输⼊长度")
Width = InputBox("输⼊⼀个宽度值：", "输⼊宽度")
findArea = Length * Width
CountArea = findArea
End Function原⽂出⾃【易百教程】，商业转载请联系作者获得授权，⾮商业请保留原⽂链接：www.yiibai/vba/vba_input_box.html#article-start 实现过程 -
第1步 - 执⾏相同的操作，使⽤函数名称进⾏调⽤，然后按Enter键，如下图所⽰。
第2步 - 执⾏时(点击单元格，然后移出时即触发执⾏)，显⽰第⼀个输⼊框(长度)，在输⼊框中输⼊⼀个值。
弹出⼀个输⼊框，并输⼊长度值
第3步 - 输⼊第⼀个值后，显⽰第⼆个输⼊框(宽度)。
html内容文本框
第4步 - 输⼊第⼆个数字后，单击确定 按钮。该区域显⽰计算得到结果如下⾯的截图所⽰。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。