请教VB高手:如何判断用户在inputbox函数框中是按了确定还是取消?

2024-12-25 23:52:56
推荐回答(2个)
回答1:

Private Sub Command1_Click()
Dim T1
100
T1 = InputBox("请输入:", "", "==")
If T1 = "==" Then
MsgBox "还没输入!"
GoTo 100
ElseIf T1 = "" Then
Exit Sub
ElseIf Not IsNumeric(T1) Then
MsgBox "请输入数字!"
GoTo 100
End If
End Sub

回答2:

YesOrNo = inputbox("需要新日期的 每日生产记录 工作表吗?", vbYesNo + vbQuestion + vbDefaultButton1)
If YesOrNo = vbYes Then