Do...While¦]¬°¦³ªÅ®æ´N¤£Ä~Äò¹B¦æªº°ÝÃD
- ©«¤l
- 13
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 24
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- SP2
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- HK
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2021-9-16
|
Do...While¦]¬°¦³ªÅ®æ´N¤£Ä~Äò¹B¦æªº°ÝÃD
¨Ò¦p:a1="90¤À", a2="40¤À" a3="ªÅ®æ" a4"=60¤À"
¤U±ªºvba¥u¹B¦æa1 ¦Üa2, a4¦]¬°a3¬OªÅ®æ, ©Ò¥H¨S¦³Ä~Äò¹B¦æ¡C
½Ð°Ý«ç¼Ë¥i¥H¹B¦æ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 |
|
HERO
|
|
|
|
|
- ©«¤l
- 13
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 24
- ÂI¦W
- 0
- §@·~¨t²Î
- Windows XP
- ³nÅ骩¥»
- SP2
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- ¨Ó¦Û
- HK
- µù¥U®É¶¡
- 2013-2-21
- ³Ì«áµn¿ý
- 2021-9-16
|
|
HERO
|
|
|
|
|