GBKEE

¦^´_ 1# Hero2013

1. Option Explicit
   
2. Sub b1()
   
3.     Dim X As Integer, R As Integer
   
4.     With Worksheets("Sheet1")
   
5.         .Activate
   
6.         R = .Cells(1, .Columns.Count).End(xlToLeft).Column
   
7.         '¨ú±o¤u§@ªí³Ì¥kÄ橹¥ªª½¨ì²Ä¤@­Ó¦³¸ê®ÆªºÄæ¼Æ¸¹
   
8.     End With
   
9.     X = 1
   
10.     Do While X <= R
    
11.      'Do While X <= 15          '«ü©w½d³ò
    
12.         Select Case Cells(1, X)
    
13.             Case Is >= 90
    
14.                 Cells(2, X) = "A"
    
15.             Case Is >= 80
    
16.                 Cells(2, X) = "B"
    
17.             Case Is >= 70
    
18.                 Cells(2, X) = "C"
    
19.             Case Is >= 60
    
20.                 Cells(2, X) = "D"
    
21.             Case Is >= 50
    
22.                 Cells(2, X) = "E"
    
23.             Case Else
    
24.                 Cells(2, X) = "F"
    
25.         End Select
    
26.         X = X + 1
    
27.     Loop
    
28. End Sub
    
29. Sub Ex()
    
30.     Dim E As Range
    
31.     For Each E In Worksheets("Sheet1").[ A1:J1]
    
32.         Select Case E
    
33.             Case Is >= 90
    
34.                 E.Cells(2) = "A"
    
35.                 'E.Offset(1) = "A" '¤]¥i¥H¦p¦¹
    
36.             Case Is >= 80
    
37.                 E.Cells(2) = "B"
    
38.             Case Is >= 70
    
39.                 E.Cells(2) = "C"
    
40.             Case Is >= 60
    
41.                 E.Cells(2) = "D"
    
42.             Case Is >= 50
    
43.                 E.Cells(2) = "E"
    
44.             Case Else
    
45.                 E.Cells(2) = "F"
    
46.         End Select
    
47.     Next
    
48. End Sub

½Æ»s¥N½X