UC知道怎样让inputbox在正确输入的时候让程序正确执行
来源：百度知道 编辑：UC知道 时间：2024/09/22 22:28:16
On Error GoTo errHandler '没输入任何值时退出程序并说明
h = InputBox("请输入你所要建立图表的起始行号", "数据区域选择")
xl = InputBox("请输入你所要建立图表的x轴列号(注意要用大写字母)", "数据区域选择")
yl = InputBox("请输入你所要建立图表的y轴列号(注意要用大写字母)", "数据区域选择")
x = Asc(xl) - 64
y = Asc(yl) - 64
con = Charts.Count
na = ActiveSheet.Name
Exit Sub
errHandler:
MsgBox "你没有输入完整参数，程序即将退出！"
Exit Sub
h = InputBox("请输入你所要建立图表的起始行号", "数据区域选择")
xl = InputBox("请输入你所要建立图表的x轴列号(注意要用大写字母)", "数据区域选择")
yl = InputBox("请输入你所要建立图表的y轴列号(注意要用大写字母)", "数据区域选择")
x = Asc(xl) - 64
y = Asc(yl) - 64
con = Charts.Count
na = ActiveSheet.Name
Exit Sub
errHandler:
MsgBox "你没有输入完整参数，程序即将退出！"
Exit Sub
h = InputBox("请输入你所要建立图表的起始行号", "数据区域选择")
while not cint(h)>0
h = InputBox("请输入你所要建立图表的起始行号", "数据区域选择")
wend
Dim ST As String
Dim T As Double
SR1:
ST = InputBox("请输入人数N", "输入")
ST = Left(Trim(ST), 323)
T = Val(ST)
If T < 0.5 Or T > R Then
i = MsgBox("输入错误，是否重新输入", vbOKCancel, "错误")
If i = 1 Then
GoTo SR1
Else
Exit Sub
End If
Else
N = CLng(T)
End If
这样可以判断输入的数值是否正确。