VBA InputBox 函数Word下载.docx
- 文档编号:17686120
- 上传时间:2022-12-08
- 格式:DOCX
- 页数:19
- 大小:139.83KB
VBA InputBox 函数Word下载.docx
《VBA InputBox 函数Word下载.docx》由会员分享,可在线阅读,更多相关《VBA InputBox 函数Word下载.docx(19页珍藏版)》请在冰豆网上搜索。
七、第二个参数:
Sub参数二标题()
请输入你的组别"
VBA学习班"
EndSub
八、第三个参数:
默认输入值
Sub参数三默认输入值()
请输入你基本信息:
友情提示"
雨中漫步,男,40不到,30有余,VBA特长班四组学员,家住70503"
九、第四.五个参数:
对话框显示位置
Sub参数四五对话框显示位置()
参数说明:
对话框显示位置"
_
"
修改参数四和参数五,可以改变对话框显示位置!
200,300
十、第六.七个参数:
帮助按钮
Sub参数六七帮助按钮()
点击“帮助”按钮可以打开帮助文件:
“帮助”按钮"
_
如果你不知道输入什么东东,就看帮助文件吧!
MSCAL.HLP"
Introduction
EndSub'
十一、向工作表输入数值
Sub示例1_输入数值()
DimxAsString'
字符型
DimyAsInteger'
整数型
x=InputBox("
请输入你的姓名:
姓名"
雨中漫步"
)
Range("
B68"
)=x
y=InputBox("
请输入你的年龄:
年龄"
35)
c68"
)=y
MsgBox"
你的名字叫"
&
x&
Chr(10)_
你的年龄是"
y&
岁"
EndSub
十二、改变对话框显示位置
Sub示例2_会改变的对话框显示位置()
DimxAsInteger'
x=Sheets("
InputBox函数"
).Range("
b79"
y=Sheets("
c79"
你别输入左边距和上边距分别是:
我的程序"
左边距:
,上边距:
y,x,y
二、隔行求和
Sub示例3_隔行求和()
DimXXAsInteger'
整数型
DimyyAsLong'
长整型
yy=0
XX=InputBox("
请输入间隔的行数:
间隔求和"
1)
Fori=82To91Stepxx+1
yy=yy+Cells(i,1)
Nexti
MsgBox"
每隔"
XX&
行求和,和是:
yy,0+64,"
结果"
EndSub
十四、返回按键值
Sub示例5_1_返回按键值()'
清风
DimAnsAsString
Ans=InputBox("
请输入:
IfAns="
ThenExitSub
你输入了:
Ans
借用strptr函数返回
Dimx
Do
请输入数据:
不能为空哦"
)'
不能为空,为空则继续弹出窗口
IfStrPtr(x)=0Then'
按下了取消或关闭键"
0+64,"
呵呵"
ExitSub
Else
Ifx<
>
ThenExitDo
EndIf
Loop
十五、识别数组
Sub示例6_识别数组()'
文本框输入的连续数据(中间用"
"
分开),识别逗号后面的数据
DimteamsAsVariant
DimteamssAsVariant
teams=InputBox("
请输入信息,中间用“,”(英文字符)分开。
Chr(13)_
如:
1234,567:
teamss=Split(teams,"
MsgBoxteamss
(1)
十六、延迟并操作键盘输入
请大家点击示例7后不要操作,程序会自动输入,先用英文状态,再打开五笔输入法试试!
PublicDeclareFunctionSetTimerLib"
user32"
(ByValhWndAsLong,ByValnIDEventAsLong,ByValuElaspeAsLong,ByVallpTimerFuncAsLong)AsLong
PublicDeclareFunctionKillTimerLib"
(ByValhWndAsLong,ByValnIDEventAsLong)AsLong
DimTIDAsLong
ConstSec=5'
seconds
Sub示例7_延迟_操作键盘输入()
Dims
TID=SetTimer(0,0,Sec*1000,AddressOfCloseTest)
s=InputBox("
PleaseEnteranubmer"
Chr(13)&
Sec&
SecondsAutoInput"
Information"
KillTimer0,TID
MsgBoxs
SubCloseTest()'
ByValhWndAsLong,ByValuMsgAsLong,ByValideventAsLong,ByValSystimeAsLong)
Application.SendKeys"
fghykijlchi"
True'
操作键盘,打开万能五笔,会输入“雨中漫步”
~"
True'
自动回车
KillTimer0,TID
十五、自动输入部分内容
让InputBox中默认选项不处于选择状态,如"
高"
字,可直接在后面输入或一或二或三,。
Sub示例8_自动输入部分内容()
DimInputAAsString
{RIGHT}"
{RIGHT}打开不选择状态
InputA=InputBox("
Chr(13)_
请输入【年级】"
高一、高二、高三"
提示:
Default:
="
十六、自动关闭并延迟显示
示例9:
延迟5秒钟后显示输入内容
(_
ByValhWndAsLong,_
ByValnIDEventAsLong,_
ByValuElaspeAsLong,_
ByVallpTimerFuncAsLong)AsLong
ByValnIDEventAsLong)AsLong
DimTIDAsLong
seconds
Sub示例9_自动关闭并延迟显示()
Dims
TID=SetTimer(0,0,Sec*1000,AddressOfCloseTest)
SecondsAutoClose"
123)
MsgBoxs
SubCloseTest(ByValhWndAsLong,ByValuMsgAsLong,ByValideventAsLong,_
ByValSystimeAsLong)
True
十七、设置输入格式
Sub示例10_设置输入内容格式()
DimdaAsDate'
定义变量是日期型
da=InputBox("
结算日期:
注意输入格式,例如2005-2-1"
输入"
Default)
[d196]=da
EndSub2006-5-18
十九、限制输入内容格式
Sub示例12_限制输入内容为英文()
Dima$
a=InputBox("
inputa-iv"
)
OnErrorResumeNext
Debug.PrintCells(1,a).Column
DoWhileErr.Number>
Err.Clear
inputa-iv,plsinputagain!
Loop
二十、限制输入数据范围
Sub示例13_限制输入数据范围()
DimMessage,Title,Default
DimMyValueAsVariant
Message="
请输入数值<
有效数值1-20>
."
'
设置提示信息。
Title="
VBA"
设置标题。
Default=6'
设置缺省值。
显示信息、标题及缺省值。
MyValue=InputBox(Message,Title,Default)
IfMyValue="
ThenExitSub
IfMyValue>
20OrMyValue<
1Then
警告!
请注意输入范围。
vbCritical
ExitSub
Else
MsgBoxMyValue
EndIf
[此贴子已经被作者于2007-7-1417:
45:
11编辑过]
二十一、限制输入数据范围
输入11,则选定A列中值为11的单元格,输入15,则选定A列中值为15的单元格。
Sub示例14_1_查找包含值的某单元格()
110DimaAsInteger
120a=InputBox("
请输入欲查找的数值:
130Range("
a:
a"
).Find(a).Activate
140EndSub
150输入234,则选定A234单元格,输入248,则选定A248单元格。
160Sub示例14_2_查找输入行号的A列单元格()
170DimaAsVariant
180a=InputBox("
请输入数值(235-248之间):
190Ifa<
Then
200Cells(a,1).Select
210Else
220MsgBox"
请输入数据,不能为空!
0+48,"
警告"
230EndIf
240EndSub
二十二、输入序号得到地址
通过InputBox返回如下地名信息,为减少用户输入时的麻烦,只让用户选择地名前的代码,即达到输入地名的目的。
'
用split函数分开即可,请看:
Sub示例15_输入序号得到地址()
DimMessage,Title,Default,MyTest
1:
乌鲁木齐;
2:
呼和浩特;
3:
齐齐哈尔;
4:
二连浩特"
请输入代码……"
Default="
1"
MyTest=InputBox(Message,Title,Default)
MsgBoxReplace(Split(Message,"
;
)(MyTest-1),"
[d262]=Replace(Split(Message,"
二十三、输入数值累加
Sub示例16_输入数值累加()
OnErrorResumeNext
DimxAsInteger
请输入数值:
填写"
[D270]=[D270]+x
InputBox方法
一、适用于
Application对象
二、描述
显示一个接收用户输入的对话框。
返回此对话框中输入的信息。
三、语法
Object.InputBox(Prompt[,Title][,Default][,Left,Top][,HelpFile,HelpContextID][,Type])
表达式.InputBox(显示在对话框中的信息[,标题][,默认值][,左边距,上边距][,帮助文件名,帮助文件ID号][,数据类型])
其中:
表达式
Object,必选项,一个代表Application对象的变量。
Sub方法_英文语法()
DimxAsString
DimIntroduction
x=Application.InputBox("
Prompt"
200,50,"
ACTIP10.HLP"
Introduction,Type:
=1+2)
Sub方法_中文语法()
,,"
四、参数
名称
必选/可选
数据类型
描述
Prompt
必选项
String
要在对话框中显示的消息。
可为字符串、数字、日期、或布尔值(在显示之前,MicrosoftExcel自动将其值强制转换为String)。
Title
可选项
Variant
输入框的标题。
如果省略该参数,默认标题将为“Input(输入)”。
Default
指定一个初始值,该值在对话框最初显示时出现在文本框中。
如果省略该参数,文本框将为空。
该值可以是Range对象。
Left
指定对话框相对于屏幕左上角的X坐标(以磅(磅:
指打印的字符的高度的度量单位。
1磅等于1/72英寸,或大约等于1厘米的1/28。
)为单位)。
Top
指定对话框相对于屏幕左上角的Y坐标(以磅为单位)。
HelpFile
此输入框使用的帮助文件名。
如果存在HelpFile和HelpContextID参数,对话框中将出现一个帮助按钮。
HelpContextID
HelpFile中帮助主题的上下文ID号。
Type
指定返回的数据类型。
如果省略该参数,对话框将返回文本。
五、返回值
Variant
六、说明
下表列出了可以在Type参数中传递的值。
可以为下列值之一或其中几个值的和。
例如,对于一个可接受文本和数字的输入框,将Type设置为1+2。
值含义
0公式
1数字
2文本(字符串)
4逻辑值(True或False)
8单元格引用,作为一个Range对象
16错误值,如#N/A
64数值数组
使用InputBox可以显示一个简单的对话框,以便可以输入要在宏中使用的信息。
此对话框有一个“确定”按钮和一个“取消”按钮。
如果选择了“确定”按钮,则InputBox将返回对话框中输入的值。
如果单击“取消”按钮,则InputBox返回False。
如果Type为0,InputBox将以文本格式返回公式。
例如,“=2*PI()/360”。
如果公式中有引用,将以A1-样式引用返回(使用ConvertFormula转换引用样式)。
如果Type为8,InputBox将返回一个Range对象。
您必须用Set语句将结果指定给一个Range对象,如下例所示。
SetmyRange=Application.InputBox(prompt:
="
Sample"
type:
=8)
如果不使用Set语句,此变量将被设置为这个区域的值,而不是Range这个对象本身。
如果使用InputBox方法要求用户输入公式,则必须使用FormulaLocal属性来将此公式指定给一个Range对象。
输入的公式使用用户语言。
七、返回按键值
Sub示例1_返回按键值()
Dima
a=Application.InputBox("
请输入数据"
InputBox方法
Ifa=FalseThen
请输入数据!
Else
你输入的是:
a,0+64,"
提示"
EndIf
EndSub
八、密码输入
Sub方法示例2_密码输入()
DimPWDAsString
OnErrorGoToPWDError
TryAgain:
PWD=Application.InputBox("
Enterthepassword,orclickCanceltoexit:
Password"
)
IfPWD="
Then
PleaseEnterthepassword,orclickCANCELtoexit."
GoToTryAgain
SelectCasePWD
Case"
123456"
Ok,yourpasswordisright!
CaseFalse
ExitSub
CaseElse
Sorry,yourpasswordiswrong!
EndSelect
PWDError:
九、返回单元格的值
Sub方法示例3()'
返回b8的值
Dimindexx
indexx=Application.InputBox("
请输入欲加着重号之单元格区域,也可以鼠标选择"
定位"
b80"
Type:
=8)
你选择的单元格内容是:
indexx
[此贴
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VBA InputBox 函数