dis allow null或esc或enterkey的最佳方法

Bryco · 发表于 2007-8-8 16:24:09

好的，所以这一点越来越难了&nbsp；我让Inputbox err控件工作，但现在其他所有东西都坏了。

Bryco · 发表于 2007-8-8 16:24:31

现在，如果他们按ESC，我将退出Sub

Bryco · 发表于 2007-8-8 17:58:04

这是一个棘手的问题#039；选择太多
这可能有些用处

Sub MOX()
    Dim dblTOC As Double
    Dim sAns As String
    Dim sTitle As String
    sTitle = "What is T.O.C. elevation? ie 12 or 0 or -12"
Repeat:
    sAns = InputBox(sTitle)
    If sAns = "" Then
        Exit Sub
    End If
    If Not IsNumeric(sAns) Then
        sTitle = "Please type a number"
        GoTo Repeat
    End If
    dblTOC = CDbl(sAns)
    Debug.Print dblTOC
End Sub

dis allow null或esc或enterkey的最佳方法

发表回复

精选推荐