[分享]msgbox、inputbox命令详解

melorbin · 发表于 2008-10-29 22:03

Sub Password()
Dim Password As Variant
lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1, 1)
Password = InputBox("请输入密码：", "密码")
If Password = "2008" Then
MsgBox "密码正确!", vbOKCancel
Else
MsgBox "密码错误!"
End If

End Sub

如上述代码是说如果密码正确后, 返回Vbok, 然后通过返回的vbok 我想实现
worksheets("sheet3").select
请教该如何来实现

lzqlaj · 发表于 2009-4-11 09:50

学习了。谢谢。

Martinzhuchao · 发表于 2010-9-28 14:10

请问：如果INPUTBOX显示的内容很多怎么办？一个INPUTBOX显示的内容最多是多少字节呢？

我写了个小程序，想写个帮助，帮助的内容很多，INPUTBOX显示框较小，显示不完整。

谢谢

koyowjian · 发表于 2010-11-4 01:48

感谢楼主，是我需要的。

老狼H · 发表于 2012-4-10 21:03

这些对我们小菜来说很有用，收下了！谢谢！

imonior · 发表于 2013-1-12 23:13

谢谢，学习了

imonior · 发表于 2013-1-12 23:22

谢谢学习了

神奇网格 · 发表于 2013-5-7 13:12

melorbin 发表于 2008-10-29 22:03
Sub Password()
Dim Password As Variant
lTimeID = timeSetEvent(10, 0, AddressOf TimeProc, 1 ...

If Password = "2008" Then
MsgBox "密码正确!", vbOKCancel
worksheets("sheet3").select
Else

592rmb · 发表于 2013-5-7 19:39

好，学习下

zlm0410 · 发表于 2014-11-10 20:01

好东西，先收藏了。

		自动登录	找回密码
密码			免费注册

[分享]msgbox、inputbox命令详解

请问 如何获取vbok来响应其他的操作

请问如何获取vbok来响应其他的操作