- 帖子
- 13
- 主題
- 4
- 精華
- 0
- 積分
- 24
- 點名
- 0
- 作業系統
- Windows XP
- 軟體版本
- SP2
- 閱讀權限
- 10
- 性別
- 男
- 來自
- HK
- 註冊時間
- 2013-2-21
- 最後登錄
- 2021-9-16
|
Do...While因為有空格就不繼續運行的問題
例如:a1="90分", a2="40分" a3="空格" a4"=60分"
下面的vba只運行a1 至a2, a4因為a3是空格, 所以沒有繼續運行。
請問怎樣可以運行a1 至a4 ????
Sub b1()
Worksheets("Sheet1").Select
x = 1
Do While Cells(1, x) <> ""
Select Case Cells(1, x)
Case Is >= 90
Cells(2, x) = "A"
Case Is > 80
Cells(2, x) = "B"
Case Is >= 70
Cells(2, x) = "C"
Case Is >= 60
Cells(2, x) = "D"
Case Is >= 50
Cells(2, x) = "E"
Case Else
Cells(2, x) = "F"
End Select
x = x + 1
Loop
End Sub |
|
發表於 2013-3-23 22:33
| 
