VBA Excel 2010，isError 函数

Question

如果没有发现错误，我希望程序输出一条消息。

   Sub casesVsQueue()
                 Dim loop_counter As Integer
                 Dim colD_counter As Integer
                 loop_counter = 1
                 colD_counter = 2
      Do Until IsEmpty(Sheets("Sheet1").Range("A" & loop_counter).Value)
              If IsError(Sheets("Sheet1").Range("C" & loop_counter).Value) Then      
                    Sheets("Sheet1").Range("D" & colD_counter).Value = Sheets("Sheet1").Range("A" & loop_counter).Value
                    colD_counter = colD_counter + 1

             End If
             loop_counter = loop_counter + 1
      Loop
End Sub

Answer 1

在你的循环之后的最后，在你关闭你的子之前添加这个:

      Loop
    If colD_counter = 2 Then MsgBox "Everything is fine"
End Sub

基本上是因为 colD_counter 'counts' 错误，如果它在你的循环中没有改变，保持 = 2，那么你有 msgbox 说没有错误出现。

您可以保持其余的 vb 不变。我刚刚试了一下，它似乎工作正常。