這學(xué)期做助教，不過就忙了最近3天，統(tǒng)計(jì)學(xué)生成績(jī)的時(shí)候用Excel,發(fā)現(xiàn)把學(xué)生的分?jǐn)?shù)對(duì)應(yīng)到A,B, C D制很麻煩，如某某人考了98.5，
最終成績(jī)需要記成A+。幸好看過以前發(fā)在論壇上的教程，可以用VBA幫忙下（不過某有看過郭安定的高級(jí)教程，因?yàn)橐装。駝t以前根本不知道Excel
還可以這樣用。好，廢話不講了，把這個(gè)轉(zhuǎn)換成績(jī)的VBA(就是用在Excel里的一個(gè)程序代碼，應(yīng)該在Excel的高級(jí)教程里會(huì)講到)。
有興趣的可以學(xué)一下，其實(shí)看懂了蠻簡(jiǎn)單的^_^
具體要看效果的話，下載
附件中的Excel文件，打開Excel文件，然后依次工具--》宏--》visual basic 宏編輯器， 把這段代碼copy進(jìn)去后，點(diǎn)擊菜單欄下面的綠色的向右的三角形運(yùn)行，到Excel查看，就可以看到效果啦， good luck！
http://www.tkk7.com/Files/fullfocus/VBA.rar
參考文檔，使用的關(guān)鍵語句
1 Sub GenGPA()
2 Dim l As Long
3 Dim i As Long
4 Dim aplus As Long
5 Dim a As Long
6 Dim asub As Long
7 Dim bplus As Long
8 Dim b As Long
9 Dim bsub As Long
10
11 Application.DisplayAlerts = True
12 l = ActiveSheet.Range("A65535").End(xlUp).Row 'initial
13 aplus = 0
14 a = 0
15 asub = 0
16 bplus = 0
17 b = 0
18 bsub = 0
19
20 For i = 2 To l
21 If Cells(i, 7).Value >= 96 Then
22 Cells(i, 8).Value = "A+"
23 aplus = aplus + 1 'count the aplus number of students
24 End If
25 If Cells(i, 7).Value >= 90 And Cells(i, 7).Value <= 95 Then
26 Cells(i, 8).Value = "A"
27 a = a + 1
28 End If
29 If Cells(i, 7).Value >= 85 And Cells(i, 7).Value < 90 Then
30 Cells(i, 8).Value = "A-"
31 asub = asub + 1
32 End If
33 If Cells(i, 7).Value >= 80 And Cells(i, 7).Value < 85 Then
34 Cells(i, 8).Value = "B+"
35 bplus = bplus + 1
36 End If
37 If Cells(i, 7).Value >= 75 And Cells(i, 7).Value < 80 Then
38 Cells(i, 8).Value = "B"
39 b = b + 1
40 End If
41 If Cells(i, 7).Value >= 70 And Cells(i, 7).Value < 75 Then
42 Cells(i, 8).Value = "B-"
43 bsub = bsub + 1
44 End If
45 Next
46
47 Cells(2, 9).Value = "A+"
48 Cells(2, 10).Value = aplus
49 Cells(3, 9).Value = "A"
50 Cells(3, 10).Value = a
51 Cells(4, 9).Value = "A-"
52 Cells(4, 10).Value = asub
53 Cells(5, 9).Value = "B+"
54 Cells(5, 10).Value = bplus
55 Cells(6, 9).Value = "B"
56 Cells(6, 10).Value = b
57 Cells(7, 9).Value = "B-"
58 Cells(7, 10).Value = bsub
59
60
61 End Sub
62
63
posted on 2008-06-29 22:03
fullfocus 閱讀(630)
評(píng)論(0) 編輯 收藏 所屬分類:
其他