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

freeffly

¦^´_ 4# GBKEE

   ³o¨â¤Ñ®³¥X¨Ó¬ã¨s®Éµo²{¦³¨Çµ{¦¡½X¥Îªk¤£¤ÓÀ´

    Sub Ex()
    Dim Rng As Range, X As Range, R As Range, Tolta%, A%, i%, ii%
    Cells.ClearFormats
    Set Rng = Range("B2:I" & [A2].End(xlDown).Row)
    For Each R In Rng.Rows
        Set Rng = R.Cells(1)       R.Cells(1)¡÷³o­Ó¬O«ü?        A = 0
        For ii = 2 To 8
            If R.Cells(1, ii) <> "" And Rng > R.Cells(1, ii) Then      R.Cells(1, ii)³o­Ó¸ò¤W­±°Ýªº®t²§¦b­þ?
                Set Rng = R.Cells(1, ii)
                R.Cells(1, ii).Font.ColorIndex = 7
                Tolta = Tolta + 1
                A = A + 1
                With R.Cells(1, 10)
                    .Value = A
                    .Interior.ColorIndex = 4
                End With
            ElseIf R.Cells(1, ii) <> "" And Rng < R.Cells(1, ii) Then
                Set Rng = R.Cells(1, ii)                                   ³o¤@¾ã¥yªº·N«ä¬O?
            End If
        Next
    Next
    [L1] = Tolta
End Sub



¦pªG§Ú­n±N­°»ù§ï¬°º¦»ù¬O¤£¬O¼gªk¤£¤Ó¨Ì¼ËÁÙ¬O­×§ï¤°»ò¦a¤è¥i¥H¹F¨ì®ÄªG?

freeffly

¦^´_ 4# GBKEE


    ³o¬O§Ú­nªºµ²ªG
     ÁÂÁ¤j¤jªº¦^ÂÐ

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

freeffly

¦^´_ 2# chin15


    ¥i¯àµo©«ªº®É­Ô¨S»¡«Ü²M·¡
   §Ú·Q­nªºµ²ªG²Î­p¦U°Ó«~ªº¶^»ù¦¸¼Æ
   ¦pªþÀÉ
   ¤j¤jªº¤è¦¡¬O²Î­p©Ò¦³ÃC¦âªº¥X²{¦¸¼Æ
   ¤£ª¾¹D§Úªº·Qªk¦³¨S¦³¤è¦¡¥i¥H§¹¦¨?


·s¼W Microsoft Excel ¤u§@ªí (3).rar (7.15 KB)

¤U¸ü¦¸¼Æ: 17

2011-5-19 07:43

chin15

Sub ccount()
Dim c As Range, d$, d2$, m%
    Application.FindFormat.Font.ColorIndex = 7
    Set c = Cells.Find(What:="", After:=[a1], SearchDirection:=xlNext, SearchFormat:=True)
    If Not c Is Nothing Then
        d = c.Address
        Do
            d2 = c.Address
            m = m + 1
            Set c = Cells.Find(What:="", After:=Range(d2), SearchDirection:=xlNext, SearchFormat:=True)
        Loop Until c.Address = d
    End If
    [l1] = m
End Sub