在Excel VBA中，InputBox函数用于获取输入值，程序运行时该函数将显示一个输入对话框，等待用户输入。用户在其中输入内容并单击“确定”按钮后，该输入内容将作为该函数的返回值。当用户单击“取消”按钮后，该对话框不返回任何结果。本文以制作一个简单的圆面积计算器为例来介绍InputBox函数的使用方法。
1、启动Excel并打开Visual Basic编辑器，在工程资源管理器中鼠标右击，选择关联菜单中的“插入”|“模块”命令插入一个模块。在该模块的“代码”窗口中输入程序代码，如图1所示。具体的程序代码如下所示：
Sub ConRound()
Const Pi=3.1415926 '定义常量Pi
Dim r As Double
Dim a As Double
r=InputBox("请输入圆的半径") '获取圆半径
a=Pi*r*r '计算圆周长
MsgBox("圆的面积为："&a) '显示圆周长
End Sub
文章内容收集于网络，希望能为广大朋友提供帮助。WPS之家(wps.qiangguoshuo.com)
图1 在“代码”窗口中输入代码2、按F5键运行程序将首先获得输入对话框要求输入圆的半径，如图2所示。输入半径值后单击“确定”按钮，计算结果将在提示对话框中显示，如图3所示。
图2 在对话框中输入圆的半径
图3 获得计算结果提示
InputBox函数的语法结构如下。
返回值=InputBox(Prompt,[title][,default][,xpos,ypos][,helpfile,context])
InputBox函数的返回值为文本框内容的字符串，无论用户在对话框中输入的是数字还是字符，其返回值始终都是字符型。当用户单击“确定”按钮时，将返回文本框中的内容;单击“取消”按钮，将返回一个零长度字符串。该函数的调用格式中，参数数量较多，其中Prompt、Title和Default参数较为常用。Prompt参数用于指定显示在输入对话框中的提示信息，最大长度为1024个字符;Title参数用于指定输入对话框的标题信息;Default参数用于指定文本框中默认的显示内容。
转载声明：本站发布文章及版权归原作者所有，转载本站文章请注明文章来源！
