[發問] 請問我程序哪裡錯

john2006168

test john.zip (11.46 KB)

下載次數: 13

2010-10-7 23:40

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

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

GBKEE

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

john2006168

回復 3# GBKEE


    Grade 全部變成'"poor"

oobird

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

john2006168

回復 5# oobird


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