[VBA]錯誤(error)不跳過怎麼寫?

Question

錯誤跳過的指令是:on error resume next;
那錯誤不跳過重來執行一遍要如何寫

假設錯誤則跳過
sub test()
for i = 1 to 700
on error resume next
cells(i,1)=time
application.ontime now + timevalue(\"00:00:01\"),\"thisworkbook.exeself\"
next
end sub

假設i=400時發生問題
則跳過;執行i=401
如果我不想跳過的話要如何寫
我想要發生錯誤時再重來執行一遍;就是我一定要執行成功
我的想法是
sub test()
for i = 1 to 700
if error then i=400 \'我亂寫 ,因為我不會
cells(i,1)=time
application.ontime now + timevalue(\"00:00:01\"),\"thisworkbook.exeself\"
endif
next
end sub

以上例子只是我舉例而已
請各位高手不吝賜教
謝謝

Answer 1

Sub Test()    On Error GoTo Er        For I = 1 To 700        Cells(I, 1) = Time        Application.ontime Now + TimeValue("00:00:01"), "thisworkbook.exeself"    Next        Exit SubEr:        Select Case Err.Number           ' 錯誤處理           Case ...                          Case ...               End Select    Resume  ' 將程式執行步驟回到原發生錯誤的陳述式中End Sub