在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