求VBA ISERROR 用法

nanfang77

Sub ss()
求VBA  ISERROR 用法：
If Application.WorksheetFunction.IsError(100 / 0) = True Then _
Cells(3, 6) = "no" Else Cells(3, 6) = "ok"
End Sub

为什么就跳出了？！


Sub ys()

    Dim fx As Worksheet
    Set fx = Worksheets("分析")
  
    Dim x As Integer
        x = 3
    Dim y As Integer
        y = Application.WorksheetFunction.Match(Worksheets("分析").Cells(1, 4), Worksheets("单店损益表-当月-预算").Range("c7:dq7"), 0)
        
  
        Do While Cells(x, 2) <> ""
           If Application.WorksheetFunction.IsError(Application.WorksheetFunction.VLookup(Cells(x, 2), Worksheets("单店损益表-当月-预算").Range("c7:dq241"), y, 0)) _
           Then fx.Cells(x, 5) = "" Else fx.Cells(x, 5) = Application.WorksheetFunction.VLookup(Cells(x, 2), Worksheets("单店损益表-当月-预算").Range("c7:dq241"), y, 0)
            
            x = x + 1
        Loop


End Sub

nanfang77

上面的VBA VLOOKUP函数使用中会出现 错误值，从而想用到 iserror 函数，但也出现跳出的情况

yqdaqinqin

加on error resume next！！！试试

nanfang77

非常谢谢！  可以解释一下意思吗！？

nanfang77

Sub ys()

    Dim fx As Worksheet
    Set fx = Worksheets("分析")
  
    Dim x As Integer
        x = 3
    Dim y As Integer
        y = Application.WorksheetFunction.Match(Worksheets("分析").Cells(1, 4), Worksheets("单店损益表-当月-预算").Range("c7:dq7"), 0)
        
    On Error Resume Next
        Do While Cells(x, 2) <> ""
           If Application.WorksheetFunction.IsError(Application.WorksheetFunction.VLookup(Cells(x, 2), Worksheets("单店损益表-当月-预算").Range("c7:dq241"), y, 0)) _
           Then fx.Cells(x, 5) = "" Else fx.Cells(x, 5) = Application.WorksheetFunction.VLookup(Cells(x, 2), Worksheets("单店损益表-当月-预算").Range("c7:dq241"), y, 0)
            
            x = x + 1
    Loop
   
    Dim x1 As Integer
        x1 = 3
    Dim y1 As Integer
        y1 = Application.WorksheetFunction.Match(Worksheets("分析").Cells(1, 4), Worksheets("单店损益表-当月-去同").Range("c7:dq7"), 0)
        
    On Error Resume Next
        Do While Cells(x, 2) <> ""
           If Application.WorksheetFunction.IsError(Application.WorksheetFunction.VLookup(Cells(x1, 2), Worksheets("单店损益表-当月-去同").Range("c7:dq241"), y1, 0)) _
           Then fx.Cells(x1, 6) = "" Else fx.Cells(x, 6) = Application.WorksheetFunction.VLookup(Cells(x1, 2), Worksheets("单店损益表-当月-去同").Range("c7:dq241"), y1, 0)
            
            x1 = x1 + 1
    Loop


End Sub

我将两个SUB 合在一起只执行了第一个循环，第二个循环就不执行了！求解

dajiahaoxinku12

on error resume next       遇到错误就跳过，继续执行下一条代码