ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ john2006168 ©ó 2010-10-7 23:40 ½s¿è

test john.zip (11.46 KB)




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

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

TOP

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

TOP

¦^´_ 3# GBKEE


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

TOP

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

TOP

¦^´_ 5# oobird


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

TOP

        ÀR«ä¦Û¦b : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD