標題: [發問] 請問我程序哪裡錯 [打印本頁]

---

作者: john2006168    時間: 2010-10-7 23:36     標題: 請問我程序哪裡錯

本帖最後由 john2006168 於 2010-10-7 23:40 編輯

[attach]3056[/attach]




Sub testexjohn()
Dim intscore As Integer
        
    For i = 2 To 31

intscore = Cells(i, 3)

If intscore < 15 Then
Cells(i, 4) = "Poor"

ElseIf intscore < 50 Then
Cells(i, 4) = "Fail"

ElseIf intscore < 85 Then
Cells(i, 4) = "Pass"

ElseIf intscore <= 100 Then

Cells(i, 4) = "Very Good"

End If


Cells(i, 2) = i


Cells(i, 2) = UCase(Left(Cells(i, 1), 1)) & LCase(Right(Cells(i, 1), Len(Cells(i, 1)) - 1))
Next

End Sub

---

作者: et5323    時間: 2010-10-8 16:42

没有发现有错的嘛,是这里?
Cells(i, 2) = UCase(Left(Cells(i, 1), 1)) & LCase(Right(Cells(i, 1), Len(Cells(i, 1)) - 1))

---

作者: GBKEE    時間: 2010-10-8 16:55

回復 2# et5323
附檔中有 &   
執行後找不出 哪出錯!   應樓主請說 是哪裡出錯?  好了解.

---

作者: john2006168    時間: 2010-10-8 23:04

回復 3# GBKEE


    Grade 全部變成'"poor"

---

作者: oobird    時間: 2010-10-8 23:23

intscore = Cells(i, 3)
c欄空白=0
If intscore < 15 Then
Cells(i, 4) = "Poor"

---

作者: john2006168    時間: 2010-10-8 23:43

回復 5# oobird


    哦...明白,不小心delete了...

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)