GBKEE

¦^´_ 3# freeffly

1. Sub Ex()
   
2.     Dim Rng As Range, X As Range, R As Range, Tolta%, A%, i%, ii%
   
3.     Cells.ClearFormats
   
4.     Set Rng = Range("B2:I" & [A2].End(xlDown).Row)
   
5.     For Each R In Rng.Rows
   
6.         Set Rng = R.Cells(1)
   
7.         A = 0
   
8.         For ii = 2 To 8
   
9.             If R.Cells(1, ii) <> "" And Rng > R.Cells(1, ii) Then
   
10.                 Set Rng = R.Cells(1, ii)
    
11.                 R.Cells(1, ii).Font.ColorIndex = 7
    
12.                 Tolta = Tolta + 1
    
13.                 A = A + 1
    
14.                 With R.Cells(1, 10)
    
15.                     .Value = A
    
16.                     .Interior.ColorIndex = 4
    
17.                 End With
    
18.             ElseIf R.Cells(1, ii) <> "" And Rng < R.Cells(1, ii) Then
    
19.                 Set Rng = R.Cells(1, ii)
    
20.             End If
    
21.         Next
    
22.     Next
    
23.     [L1] = Tolta
    
24. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 6# freeffly
  For Each R In Rng.Rows         R-> Rng¨C¤@¾ã¦C½d³ò         
        Set Rng = R.Cells(1)       R.Cells(1)¡÷  R³o¦C½d³òªº¸Ì²Ä1­ÓCell
                                               R.Cells(2)¡÷  R³o¦C½d³òªº¸Ì²Ä2­ÓCell

  For Each R In Rng.Columns          R-> Rng¨C¤@¾ãÄæ½d³ò         
         Set Rng = R.Cells(1, ii)          R.Cells(1, ii)¡÷  R³oÄæ½d³òªº¸Ì²Ä1¦C,²Ä iiÄ檺Cell
                                                      R.Cells(2, ii)¡÷  R³oÄæ½d³òªº¸Ì²Ä2¦C,²Ä iiÄ檺Cell

GBKEE

¦^´_ 9# freeffly
"¥i¬O§Ú§Ñ¤FÁÙ¦³²Ä3¡B4....®æ "  ¨S¦³°Ú
Y = [iv4].End(xlToLeft).Column - 1 §@¦ó¥Î??
10¼ÓªºªþÀɤ£²Å¦X¥Î©ó9¼Óªºµ{¦¡

¦^´_10# freeffly

9

8

7

³o±ø¥ó ½ÐÁÙ­n¸Ô­z

GBKEE

¦^´_ 13# freeffly


¬O³o¼Ë¶Ü?

1. Sub up()
   
2.     Application.ScreenUpdating = False
   
3.     Dim Rng As Range, R As Range, i%, ii%
   
4.     With Cells
   
5.         .Interior.ColorIndex = xlNone
   
6.         .Font.ColorIndex = 0
   
7.         .Font.Bold = False
   
8.     End With
   
9.     Set Rng = Range("C5:AD" & [A65536].End(xlUp).Row)
   
10.     For Each R In Rng.Rows
    
11.         A = 0
    
12.         Set Rng = R.Cells(1, 0).End(xlToRight)
    
13.         Rng.Interior.ColorIndex = 6
    
14.         For ii = Rng.Column - 1 To 28
    
15.             If R.Cells(ii) <> "" And Rng < R.Cells(ii) Then
    
16.                 Set Rng = R.Cells(ii)
    
17.                 With R.Cells(ii).Font
    
18.                     .ColorIndex = 7
    
19.                     .Bold = True
    
20.                 End With
    
21.                 A = A + 1
    
22.             ElseIf R.Cells(ii) <> "" And Rng > R.Cells(ii) Then
    
23.                 Set Rng = R.Cells(ii)
    
24.             End If
    
25.         Next
    
26.         With R.Cells(1, 29)
    
27.             .Value = A
    
28.             .Interior.ColorIndex = 4
    
29.         End With
    
30.     Next
    
31.     Set Rng = Nothing
    
32.     Set R = Nothing
    
33. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 21# c_c_lai
Set X = R.Cells(1) ¦bµ{§Ç¤¤¬O·|ªí¹F©ú½T¨Ç , ¤£­×§ï¥¦¦b³oµ{§Ç¤¤¤@¼Ë¹F¨ì®ÄªG,
µ{¦¡¤¤¤] Dim  X As Range À³¦]¬O¤@®É§Ñ°O¥Î¥¦§a!
ÁÂÁ§Aªº´£¿ô,ªÈ¥¿.

GBKEE

¦^´_ 23# c_c_lai

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng As Integer, i As Integer, x As Integer
   
4.     Rng = 10
   
5.     i = 0
   
6.     For x = 1 To Rng   '³o¸Ì°j°é³Ì²×­È¤w³]©w=10 ¤£¨ü¥H«áªº¼vÅT
   
7.         Debug.Print x  '½Ð¦b§Y®Éµøµ¡¬Ý x ªºÅÜ°Ê
   
8.         i = i + 1
   
9.         Rng = i + 5    'RngÅܼƤ£¼vÅT°j°é³Ì²×­È
   
10.         x = Rng        '³o XÅܼƤ~·|¼vÅT°j°éªº¦¸¼Æ
    
11.     Next
    
12.     MsgBox "°j°é°jµ²§ô«á X= " & x
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 25# c_c_lai
¬Ý¹Ï¸Ñ¤å:  ¤@ª½¤£©ú¾é§Aªº¯u¥¿·N«ä
3.  ³oºØ±¡¨Æ±`©öµo¥Í¦b·í¼Ò²ÕÃe¤j¡A³B²z¤º®e½ÆÂø®Éªº¤£¸g·N³B²z¡C
¬O°Ú! ©Ò¥H¶·­n¥J²Ó¤ÏÂЪºÀˬdµ{¦¡½X ,°õ¦æ«áªº¥¿½T©Ê