隨筆-28  評論-51  文章-10  trackbacks-0
          這學(xué)期做助教,不過就忙了最近3天,統(tǒng)計學(xué)生成績的時候用Excel,發(fā)現(xiàn)把學(xué)生的分?jǐn)?shù)對應(yīng)到A,B, C D制很麻煩,如某某人考了98.5, 最終成績需要記成A+。幸好看過以前發(fā)在論壇上的教程,可以用VBA幫忙下(不過某有看過郭安定的高級教程,因為要米啊),否則以前根本不知道Excel 還可以這樣用。好,廢話不講了,把這個轉(zhuǎn)換成績的VBA(就是用在Excel里的一個程序代碼,應(yīng)該在Excel的高級教程里會講到)。 有興趣的可以學(xué)一下,其實看懂了蠻簡單的^_^

          具體要看效果的話,下載附件中的Excel文件,打開Excel文件,然后依次工具--》宏--》visual basic 宏編輯器, 把這段代碼copy進(jìn)去后,點擊菜單欄下面的綠色的向右的三角形運(yùn)行,到Excel查看,就可以看到效果啦, good  luck!
          http://www.aygfsteel.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 = ActiveSheet.Range("A65535").End(xlUp).Row 'initial
          13 aplus = 0
          14 = 0
          15 asub = 0
          16 bplus = 0
          17 = 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 + 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 + 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(29).Value = "A+"
          48 Cells(210).Value = aplus
          49 Cells(39).Value = "A"
          50 Cells(310).Value = a
          51 Cells(49).Value = "A-"
          52 Cells(410).Value = asub
          53 Cells(59).Value = "B+"
          54 Cells(510).Value = bplus
          55 Cells(69).Value = "B"
          56 Cells(610).Value = b
          57 Cells(79).Value = "B-"
          58 Cells(710).Value = bsub
          59 
          60 
          61 End Sub
          62 
          63 



          posted on 2008-06-29 22:03 fullfocus 閱讀(630) 評論(0)  編輯  收藏 所屬分類: 其他

          只有注冊用戶登錄后才能發(fā)表評論。


          網(wǎng)站導(dǎo)航:
           
          主站蜘蛛池模板: 项城市| 武邑县| 文昌市| 安丘市| 南平市| 思茅市| 石河子市| 鄂州市| 湖南省| 黑水县| 三亚市| 思茅市| 中西区| 织金县| 桑日县| 乐昌市| 新宁县| 繁昌县| 西盟| 凯里市| 日照市| 右玉县| 千阳县| 宁化县| 岚皋县| 六安市| 永寿县| 忻州市| 天柱县| 太谷县| 宁阳县| 水城县| 土默特左旗| 凉城县| 五河县| 连云港市| 汝州市| 南岸区| 马关县| 永福县| 信阳市|