ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

¥»©«³Ì«á¥Ñ freeffly ©ó 2012-2-22 17:02 ½s¿è

¦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)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

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

TOP

¦^´_ 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)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-19 13:36 ½s¿è

¦^´_ 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

TOP

¦^´_ 4# GBKEE


    ³o¬O§Ú­nªºµ²ªG
     ÁÂÁ¤j¤jªº¦^ÂÐ
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 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?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-25 21:28 ½s¿è

¦^´_ 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

TOP

¦^´_ 7# GBKEE


    ÁÂÁ¤j¤j¸Ñ»¡
     §Ú¦b¬ã¨s¤@¤U¦p¦ó§ï¦¨º¦»ùªº§PÂ_
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

¦^´_ 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«ç»ò­×§ï?
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

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

Book1.rar (3.96 KB)
¦r¨å¨â¦U¦r ÁÙ¯uÃø²z¸Ñ

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD