ÈçºÎÓÃvb實現ÒÔÏÂ邏輯?

³ö錯µÄ時ºòÈ¥執ÐÐÒ»¶Î´ú碼Ö®áá,Ôٻص½³ö錯µÄµØ·½½ÓÖøÍùÏÂ執ÐÐ

ÈçºÎÓÃvb來實現?

---

Sub FFFFFFF()

AAAA:
On Error goto BBBB
....
....
On Error goto 0
Exit Sub

BBBB:
.....
.....
Resume Next

End Sub

---

¸Ð¾õÂ¥Ö÷µÄÏë·¨²»Ì«ºÏÀí£¬²»¹ý»¹ÊÇ¿ÉÒÔʵÏÖµÄ

±ÈÈ磺
VB code:
Private Sub Command1_Click()
Dim I As Integer
Dim J As Integer
Dim M As Integer
On Error GoTo errSub
I = 10
J = 0
LabX:
M = I \ J
Debug.Print M
Exit Sub
errSub:
J = 1
GoTo LabX
End Sub

---

VB code:
'ÔÚ³ö´íÓï¾äÇ°¼ÓÉÏ
On Error Resume Next
...
'Ö®ºó¼ÓÉÏ
'On Error GoTo 0

---

Ò»樓µÄÅóÓѵĽâ決·½·¨ÕýÊÇÎÒÏëÒªµÄ!謝謝

  雖È»這樣µÄ邏輯ºÜÆæ¹Ö.ÎÒÔÚÓÃword寫Ò»個×Ô動ÅÅ°æÕÕƬµÄ¹¦ÄÜ,問題ÊÇÎÒÔÚÓÃwordµÄVBAµÄ時ºò,轉換圖ƬµÄ時ºò報錯¾ßÓв»確¶¨ÐÔ,ÎÒÑ­環轉換ËùÓÐδ轉換µÄ圖Ƭ,ÓÐ時ºò³ö現轉換ʧ敗報錯,點擊繼續$