[µo°Ý] ½Ð°Ý§Úµ{§Ç­þ¸Ì¿ù

john2006168

test john.zip (11.46 KB)

¤U¸ü¦¸¼Æ: 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

没¦³发现¦³错ªº¹À,¬O这¨½?
Cells(i, 2) = UCase(Left(Cells(i, 1), 1)) & LCase(Right(Cells(i, 1), Len(Cells(i, 1)) - 1))

GBKEE

¦^´_ 2# et5323
ªþÀɤ¤¦³ &   
°õ¦æ«á§ä¤£¥X ­þ¥X¿ù!   À³¼Ó¥D½Ð»¡ ¬O­þ¸Ì¥X¿ù?  ¦n¤F¸Ñ.

john2006168

¦^´_ 3# GBKEE


    Grade ¥þ³¡Åܦ¨'"poor"

oobird

intscore = Cells(i, 3)
cÄæªÅ¥Õ=0
If intscore < 15 Then
Cells(i, 4) = "Poor"

john2006168

¦^´_ 5# oobird


    ®@...©ú¥Õ,¤£¤p¤ßdelete¤F...