這個題目感謝政大同學們給我的作業
因為上週二我趕車[到新竹]
所以網路考試要打分數 , 所以我用EXCEL寫了一段VBA 可以做計算
大致技巧如下
1 工作表內容
題號 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 得分
原始答案 4 4 3 4 2 2 3 2 4 2 2 2 1 3 4 4 4 3 3 3 1 3 4 1 3
c29 4 4 3 4 2 2 3 2 1 2 2 4 1 3 4 4 4 3 3 3 1 3 4 1 3 69
c13 4 4 3 4 2 2 2 1 1 2 2 1 2 2 1 2 4 4 2 3 1 1 4 2 3 39
會有C01到C60個同學代號 , 共有25個題目 每題3分 如何可以快速比對並算其分
其VBA程式如下
Sub Macro1()
myx = 0
myy = 1
x = InputBox("請輸入同學人數")
For j = 0 To x Step 1
ans = 0
Range("B2").Select
For i = 0 To 24 Step 1
If ActiveCell.Value = ActiveCell.Offset(myy + j, myx).Value Then
ans = ans + 3
ActiveCell.Offset(myx, myy).Select
Else
ans = ans
ActiveCell.Offset(myx, myy).Select
End If
Next
ActiveCell.Offset(myy + j, 0).Value = ans
Next
End Sub
簡單吧 , 如果您有這樣的問題 可以討論喔
>即時新聞-熱門
2008年9月12日星期五
EXCEL VBA - 統計得分
发帖者 ALEX 时间: 14:59
订阅:
博文评论 (Atom)
0 评论:
发表评论