[µo°Ý] (¤w¸Ñ¨M)²Î­pÃC¦â¦¸¼Æ

freeffly

¦pªG§Ú¦³¤@­Ó¸ê®Æ¬O¥Î·í¤ë»ù®æ¤ñ¸û¤W¦¸¥æ©ö»ù®æ
·í»ù®æ¸û§C®É·|¼Ð¤WÃC¦â
­n¥Î¤°»ò¤è¦¡¥i¥H­pºâ¥X¸Ó¦CªºÃC¦â¥X²{¦¸¼Æ
´N¬O¸Ó²£«~­°»ù¦¸¼Æ?

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

¤U¸ü¦¸¼Æ: 14

2011-5-18 22:09

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

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

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

¦^´_ 4# GBKEE


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

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?

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

¦^´_ 7# GBKEE


    ÁÂÁ¤j¤j¸Ñ»¡
     §Ú¦b¬ã¨s¤@¤U¦p¦ó§ï¦¨º¦»ùªº§PÂ_

freeffly

¦^´_ 7# GBKEE

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

½Æ»s¥N½X

1.    If R.Cells(1) = "" Then
   
2.             With R.Cells(2).Font
   
3.                 .ColorIndex = 0
   
4.                 .Bold = False
   
5.            End With
   
6.            End If

½Æ»s¥N½X

³o¤@¬q­ì¥»¬O¬°¤F¦pªG¸Ó¦æªº²Ä¤@®æ¬°ªÅ¥Õ²Ä2®æ´N¤£­n°µ¤ÏÀ³
¥i¬O§Ú§Ñ¤FÁÙ¦³²Ä3¡B4....®æ
½Ð°Ý³o¦U­n«ç»ò­×§ï?

freeffly

¦pªþÀɤ¤¼Ðµùªº¨º¨â¦U¦ì¤l
­n«ç¼ËÅýµ{¦¡½X¤£¹ï³oºØ±¡§Î°µ°Ê§@¥i¬O¤S¤£·|¼vÅT¨ì¥L«á­±ªº¼Æ¦r°µ°Ê§@

Book1.rar (3.96 KB)

¤U¸ü¦¸¼Æ: 11

2011-5-27 17:42