程序错误处理之On Error、Resume

炫酷的夫子

小白略过，虽然看不懂，还是攒下！

weiyingde

很好的帖子，收藏了，细细琢磨！！

万木青

joforn 发表于 2009-11-19 20:00
::L 看来关心的人不多啊……

请教一下，为何以下的代码还是会报错？
Sub testnumtranfun() '测试vba中字符串转换成数字的函数
    Dim iint As Integer
    Dim inpstr As String
    Dim kint As Integer
    Dim nint As Integer
    Dim sinstr As String
   
    On Error GoTo line1 '以为on error rusume next可以过滤掉非数字Cin()的错误，发现它直接进行了then,结果边字母也 Msgbox出说它是数字
    inpstr = InputBox("请输入任意数字与字母的混合内容")
    nint = Len(inpstr)
   
    For iint = 1 To nint
        sinstr = Mid(inpstr, iint, 1) '如果sinstr单字符不是数字，则下面的Cint()会出错
        If CInt(sinstr) Then MsgBox sinstr & "是数字！请知悉"
line1:
    Next

End Sub

joforn

万木青 发表于 2017-2-14 17:08
请教一下，为何以下的代码还是会报错？
Sub testnumtranfun() '测试vba中字符串转换成数字的函数
    D ...

Sub testnumtranfun() '测试vba中字符串转换成数字的函数
    Dim iint As Integer
    Dim inpstr As String
    Dim kint As Integer
    Dim nint As Integer
    Dim sinstr As String
   
    On Error rusume next
    inpstr = InputBox("请输入任意数字与字母的混合内容")
    nint = Len(inpstr)
   
    For iint = 1 To nint
        sinstr = Mid(inpstr, iint, 1) '如果sinstr单字符不是数字，则下面的Cint()会出错
        If ABS(CInt(sinstr))=-1 Then
        else
          MsgBox sinstr & "是数字！请知悉"
        end if
    Next

End Sub

盘尼西林99

收藏，谢谢！

ygsh168

非常感谢楼主的详细讲解，多年前的帖子，让我这位新学者，增长了不少知识

YZC51

好帖，收藏，细细琢磨！！

lyb200

这部分内容自己了解不够深，谢谢！

wjpypdnd

现学现用，非常感谢！

abucike

学习学习，讲的明白透彻，越基础越重要~