在這篇文章中，我們將通過一個(gè)實(shí)例來分享一下VBA中錯(cuò)誤分支語句 "On Error Resume Next" 的應(yīng)用。計(jì)算總分，其中有一門未考，不計(jì)入總分的實(shí)例假設(shè)我們有一個(gè)包含多門課程成績的表格，并

在這篇文章中，我們將通過一個(gè)實(shí)例來分享一下VBA中錯(cuò)誤分支語句 "On Error Resume Next" 的應(yīng)用。

計(jì)算總分，其中有一門未考，不計(jì)入總分的實(shí)例

假設(shè)我們有一個(gè)包含多門課程成績的表格，并且其中有一門課程的成績還未錄入。我們希望在計(jì)算總分時(shí)，不將未考的課程計(jì)入總分。

首先，在工作表中，點(diǎn)擊菜單欄的【開發(fā)工具】，然后在工具欄里點(diǎn)擊【Visual Basic】，進(jìn)入VBA界面。

在VBA界面中，點(diǎn)擊菜單欄的【插入】，然后在下拉菜單中選擇【模塊】，這樣會(huì)彈出一個(gè)【代碼編輯】窗口。

在代碼編輯窗口中，輸入以下代碼：

```

Sub onerrorresumenext()

Dim rs As Integer

On Error Resume Next

For rs 2 To 10

With Sheet9

.Cells(rs, 4) .Cells(rs, 2)

.Cells(rs, 3)

End With

Next

End Sub

```

接著，在VBA界面中同時(shí)按下CTRL F11鍵，返回到工作表界面。在工作表界面中，點(diǎn)擊【開發(fā)工具】菜單下的【插入】，然后選擇一個(gè)【表單按鈕】。在空白單元格處拉出一個(gè)按鈕，并在彈出的【指定宏】窗口中選取剛才編輯的代碼，點(diǎn)擊【確定】。

將按鈕重新命名為【計(jì)算】，然后點(diǎn)擊該按鈕，即可進(jìn)行計(jì)算。此時(shí)，未考的課程成績不會(huì)被計(jì)入總分。

通過以上實(shí)例，我們可以看到，在VBA中使用錯(cuò)誤分支語句 "On Error Resume Next" 可以很方便地處理異常情況，使得程序能夠繼續(xù)執(zhí)行。這對于處理大量數(shù)據(jù)或復(fù)雜邏輯的程序非常有用。