大家好，今天跟大家分享如何用VBA代碼快速計算不同考生選擇題的個人總得分。

應(yīng)用案例

某場考試共有20道單項選擇題，答案從A、B、C、D4個選項中進行選擇，下圖工作表C列中顯示了不同考生20道題的答題結(jié)果，20道題的標(biāo)準(zhǔn)答案為：BBBABCBDADBBADBBADDD，每答對一題得5分，未答對的題不得分，要求在D列中求取所有考生的總得分。

操作步驟

1 打開工作表，在“開發(fā)工具”選項卡“代碼”功能組中單擊“Visual Basic”按鈕。

2 在打開的VBA編輯器窗口中，執(zhí)行“插入”—“模塊”命令，此時會在窗口左側(cè)列表中新增一個“模塊1”。

3 在模塊1的代碼編輯窗口中輸入如下代碼：

Public Function score(ans As String) As Integer

Const key As String = "BBBABCBDADBBADBBADDD"

Dim i As Integer

For i = 1 To 20

If Mid(ans, i, 1) = Mid(key, i, 1) Then

score = score 5

End If

Next i

End Function

4 返回工作表，選中D2單元格，在英文狀態(tài)下輸入公式：=score(C2)，即可返回第一個考生“春香”的總得分85。

5 將D2單元格中的公式向下填充，可快速得到所有人的得分。

今天的分享就到這里，歡迎關(guān)注，一起學(xué)習(xí)更多職場辦公技能！#職場技能##職場加油站##頭條職場##職場升職季##office辦公技能#