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

在這篇文章中，我們將通過一個實例來分享一下VBA中錯誤分支語句 "On Error Resume Next" 的應用。

計算總分，其中有一門未考，不計入總分的實例

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

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

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

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

```

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界面中同時按下CTRL F11鍵，返回到工作表界面。在工作表界面中，點擊【開發(fā)工具】菜單下的【插入】，然后選擇一個【表單按鈕】。在空白單元格處拉出一個按鈕，并在彈出的【指定宏】窗口中選取剛才編輯的代碼，點擊【確定】。

將按鈕重新命名為【計算】，然后點擊該按鈕，即可進行計算。此時，未考的課程成績不會被計入總分。

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