如果没有发现错误,我希望程序输出一条消息。
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
最佳答案
在你的循环之后的最后,在你关闭你的子之前添加这个:
Loop
If colD_counter = 2 Then MsgBox "Everything is fine"
End Sub
基本上是因为
colD_counter
'counts' 错误,如果它在你的循环中没有改变,保持 = 2,那么你有 msgbox 说没有错误出现。您可以保持其余的 vb 不变。我刚刚试了一下,它似乎工作正常。
关于VBA Excel 2010,isError 函数,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/37666444/