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
YesOrNo = inputbox("需要新日期的 每日生产记录 工作表吗?", vbYesNo + vbQuestion + vbDefaultButton1)
If YesOrNo = vbYes Then