InputBox函数和InputBox
方法
快递客服问题件处理详细方法山木方法pdf计算方法pdf华与华方法下载八字理论方法下载
在VBA中，开发人员可调用一下两种类型的InputBox输入对话框:
a> 一种是VB中常用的InputBox函数，在该输入对话框中显示提示信息，等待用户输入正
文或按下[确定]或[取消]按钮，并返回包含文本框的内容，该对话框返回值类型为字符串。 b> 一种是使用Application对象的InputBox方法显示一个输入对话框，在该对话框中设置
输入值得类型。
1. 显示InputBox函数的对话框
使用VBA提供的InputBox函数，可产生一个输入对话框。该函数打开一个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。其语法格式如下:
InputBox(prompt,[,title][,default][,xpos][,ypos][,helpfile][,context])
prompt 为对话框消息出现的字符串
表
关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf
达式。如果需要在对话框中显示多行数据，则可在各
行之间用回车换行符来分隔，一般使用VBA的常数vbCrLf代表回车换行符。 title 为对话框标
题
快递公司问题件快递公司问题件货款处理关于圆的周长面积重点题型关于解方程组的题及答案关于南海问题
栏中的字符串。如果省略该参数，则把应用程序名放入标题栏中。 default 为显示在文本框中的字符串。如果省略该参数，则文本框为空。 xpos/ypos 这两个参数必须成对出现，指定对话框的左上角坐标位置。
helpfile 设置对话框的帮助文件，该参数可省略。
context 设置对话框的帮助主题编号，该参数可省略。
以下代码可接受用户输入的数据
Sub 使用Inputbox函数()
Dim sPrompt As String，sTitle As String,sDefault As String,sReturn As string
sPrompt=”请输入用户姓名:”
sTitle=”输入姓名”
sDefault=”flystar”
sReturn=InputBox(sPrompt, sTitle, sDefault)
Debug.Print sReturn
End Sub
注:
a>在默认情况下，InputBox函数的返回值是一个字符串类型，而不是变体类型。如果需要使用该函数输入数值，则需要使用Val函数(或其他的转换函数)将返回值转换为相应类型。 b>在对话框中，如果用户单击[取消]按钮(或按Esc键)，则表示不使用当前输入的值，函数将返回一个空字符串。根据这一特性，可判断用户是否输入了数据到对话框中。 c>执行一次InputBox函数，只能返回一个值，如果需要输入多个值，则必须多次调用该函数。 2. 显示InputBox方法对话框
使用Application对象的InputBox方法，也可显示一个接受用户输入的对话框。此对话框有一个[确定]按钮盒一个[取消]按钮。如果单击[确定]按钮，则InputBox方法将返回对话框中的输入值。如果单击[取消]按钮，则InputBox方法返回逻辑值False。与InputBox函数
不同的是，该对话框可指定输入数据的类型，具体的语法格式如下:
Application. InputBox(Prompt,Title,Default,Left,Top,HelpFile,HelpContextId,Type)
从以上语法格式中可以看出，大部分参数与InputBox函数相同，只是在最后多了一个Type参数，用来指定输入数据的类型。Type参数可设置为一下值之一或其中几个值的和。 例如，对于一个可接受文本和数字的输入框，将Type设置为1+2. a> 0/公式
b> 1/数字
c> 2/文本
d> 4/逻辑值(True或False)
e> 8/单元格引用，作为一个Range对象
f> 16/错误值，如#N/A
g> 64/数值数组
以下代码提示用户在工作表Sheet1中选取一个单元格
Sub 使用InputBox方法()
Worksheets(1).Activate
Set myCell=Application.InputBox(Prompt:=”选择一个单元格”, Type:=8)
Debug.Print myCell.Cells.Count End Sub
浙公网安备 33021202002483