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

應(yīng)用案例

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

操作步驟

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

2 在打開(kāi)的VBA編輯器窗口中，執(zhí)行“插入”—“模塊”命令，此時(shí)會(huì)在窗口左側(cè)列表中新增一個(gè)“模塊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)，即可返回第一個(gè)考生“春香”的總得分85。

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

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