返回列表 上一主題 發帖

請教一下！下列的語法可用迴圈來簡化嗎？

假面超人

帖子
18 
主題
3 
精華
0 
積分
26 
點名
0  
作業系統
WIN7 
軟體版本
office2007 
閱讀權限
10 
性別
男 
註冊時間
2012-8-1 
最後登錄
2012-9-1 
1# 跳轉到 »
發表於 2012-8-24 15:23 | 顯示全部帖子
本帖最後由 假面超人 於 2012-8-24 15:24 編輯

回復 4# skyutm
我也試寫了一個
你試看看

分數是填在C欄位
  1. Sub 統計()

  3. a = 0
  4. b = 0
  5. c = 0
  6. d = 0
  7. e = 0
  8. f = 0
  9. myRowCount = Sheets("期中評量").Range("C1").CurrentRegion.Rows.Count '判斷C1到最後一筆資料有列

  11. For i = 1 To myRowCount
  12.     myrange = Sheets("期中評量").Range("c" & i)
  13.     Select Case myrange
  14.         Case "100"
  15.             a = a + 1
  16.         Case "90" To "99"
  17.             b = b + 1
  18.         Case "80" To "89"
  19.             c = c + 1
  20.         Case "70" To "79"
  21.             d = d + 1
  22.         Case "60" To "69"
  23.             e = e + 1
  24.         Case "0" To "69"
  25.             f = f + 1
  26.     End Select
  27.         
  28. Next i

  30. Sheets("sheet1").Range("A1").Value = a '100分總數
  31. Sheets("sheet1").Range("A2").Value = b '90-99總數
  32. Sheets("sheet1").Range("A3").Value = c '80-89 總數
  33. Sheets("sheet1").Range("A4").Value = d '70-79 總數
  34. Sheets("sheet1").Range("A5").Value = e '60-69 總數
  35. Sheets("sheet1").Range("A6").Value = f '0-59 不及格總數
  36. End Sub
複製代碼

TOP

假面超人

帖子
18 
主題
3 
精華
0 
積分
26 
點名
0  
作業系統
WIN7 
軟體版本
office2007 
閱讀權限
10 
性別
男 
註冊時間
2012-8-1 
最後登錄
2012-9-1 
2#
發表於 2012-8-24 22:13 | 顯示全部帖子
回復 8# GBKEE

真的A....
沒測試到6.7.8.9
原來有加""和沒加""差那麼多，這是bug嗎?還是?

另外
Select Case myrange.Value
這一行會出現錯誤，我把value拿掉就OK了!!

TOP

        靜思自在 : 愛不是要求對方，而是要由自身的付出。
返回列表 上一主題