[原创]VBA编程问答(第1辑)

sdzhojc · 发表于 2009-5-23 14:30

学习中，谢谢

wxgsqh · 发表于 2009-12-2 11:21

3:
c = InputBox("请再次输入期限", "确认框3")
If CStr(Range("b4")) = c Then
4:
'Range("b5:b8").Activate
d = InputBox("请再次输入利率", "确认框4")
d1 = d * 100

If CStr(Range("b5")) * 100 = d1 Then
5:
e = InputBox("请再次输入利率", "确认框5")
e1 = e * 100
If CStr(Range("b6")) * 100 = e1 Then
....
lse:
MsgBox "二次输入不一致!"
GoTo 5
End If

Else:
MsgBox "二次输入不一致!"
GoTo 4
End If

rayben6 · 发表于 2009-12-2 16:52

深入学习！

chenagui · 发表于 2010-1-26 15:47

都是比较常见的问题，需要，收藏了

business1010 · 发表于 2010-1-27 17:43

分享，太棒了

tongliaozyr · 发表于 2011-2-9 18:24

谢谢了，谢谢

monkeywq · 发表于 2011-5-21 18:12

感谢楼主分享，多新手来说真是好资料哦

blackttea1 · 发表于 2011-5-21 19:40

感谢分享!!很好的资料库

plmei · 发表于 2011-7-31 09:01

很想学习VBA，收藏先。谢谢了！

lj114021002 · 发表于 2011-12-15 22:09

好贴新手收下了！谢谢斑竹分享哈！！！

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

[原创]VBA编程问答(第1辑)

求助！goto 循环 按取消无法终止

求助！goto 循环按取消无法终止