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

[µo°Ý] ´M¸Ñµª

[µo°Ý] ´M¸Ñµª

¦pA1¼Æ¡]A2-A50)¤º¦³¨º¨ÇÀx¦s®æ¬OÂŦâ¡]¦]¬Y¨ÇÀx¦s®æ°µ¤F¤@¨Çconditional formatting )!
­n¦bA1 ®æ¤ºÅã¥Ü¦³¦h¤Ö®æ¡I
VBA ¦p¦ó½s¼g¡I

¦^´_ 1# wwh126


    ±z¦n¡G

½Ð¸Õ¸Õ¦p¤U
Sub aa()
   
    Dim mSht As Worksheet
    Dim mRng As Range, mRng1 As Range
    Dim s%
   
    Set mSht = ActiveSheet
    With mSht
        Set mRng1 = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        For Each mRng In mRng1
       If mRng.Interior.ColorIndex = 5 Then 'Àx¦s®æÃC¦â
            'If mRng.Font.ColorIndex = 5 Then 'Àx¦s®æ¦r«¬ÃC¦â            
                s = s + 1
            End If
        Next
        If s > 0 Then
            .Range("a1") = "ÂŦâÀx¦s®æ¦X­p ¡G" & s
        End If
    End With
End Sub

TOP

¦^´_ 1# wwh126

¬O­n­pºâ²Å¦X±ø¥ó®æ¦¡¬°ÂŦ⪺Àx¦s®æ¼Æ¶q¶Ü?
¨º­n°w¹ï®æ¦¡±ø¥ó°µ­pºâ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ handsometrowa ©ó 2013-8-22 09:28 ½s¿è

¦^´_ 2# dechiuan999


    ª©¤j
   Set mRng1 = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))

³o¦æ³¯­z¦¡¡A­n§ìA2:A50 ³Ì«á¨Ï¥Îªº  .End(xlUp)  ³o¼Ë¤l¥i¥H¶Ü@@?

¥ý¬Ý¨ì¥ý¦^§ÚÁÙ¨S¸ÕÅç¡A©çÁÂ

¨Ï¥ÎEnd(xlDown) ³o¼Ë¤l ·|¤£·|¤ñ¸û¦n@@?

ÁÙ¬O§Ú·d²V¤F?

TOP

¦^´_ 4# handsometrowa
¦pªG¸ê®Æ½d³ò¤º¤£¥]§tªÅ®æ
¨º»òEnd(Xlup)»PEnd(Xldown)·|±o¨ì¬Û¦Pµ²ªG
¦ý­Y¤¤¶¡¥]§tªÅ®æ
End(Xldown)«h·|¥u¨ú¨ìªÅ®æ³B
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦ý¦pªGÂŦâÀx¦s®æ¬O¥Ñconditional formatting Âনªº«hÅã¥Ü¤£¤F¡I

TOP

¦^´_ 2# dechiuan999

¦ýÂŦâÀx¦s®æ¬O¥Ñ³]©w®æ¦¡¤Æ±ø¥ó¤¤....Àx¦s®æªº­È¬O¤j©ó¹s®É¸ÓÀx¦s®æ·|Åܦ¨ÂŦâ¡A«hCOUNT ¤£¥X¨Ó¡C

¨D¸Ñ¨M.....

TOP

¦^´_ 7# wwh126


    ¤j¤j§A¦n¡G

   Hsiehª©¥D¤j¤j¦³»¡©ú¦pªG¬O­n
­pºâ²Å¦X±ø¥ó®æ¦¡¬°ÂŦ⪺Àx¦s®æ¼Æ¶q¡A
¨º­n°w¹ï®æ¦¡±ø¥ó°µ­pºâ¡C

  ©Ò¥H¡AÀ³¸ÓµLªkª½±µ¨Ì¤w®æ¦¡¤Æªº
Àx¦s®æÃC¦â°µ­pºâ¡C

¬O§_¥i§ï¦¨°w¹ï®æ¦¡±ø¥ó¨Ó°µ­pºâ©O¡H

¨Ò¦p¡G
a2:a20Àx¦s®æ³]©w¤j©ó100®É¡A
ÃC¦âÅã¥Ü¬°ÂŦâ¡C

Sub aa()
   
    Dim mSht As Worksheet
    Dim mRng As Range, mRng1 As Range
    Dim s%
   
    Set mSht = acitvesheet
    With mSht
        Set mRng1 = .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        For Each mRng In mRng1
            If mRng.Value > 100 Then
                s = s + 1
            End If
        Next
        
        .Range("c1") = "²Å¦X®æ¦¡±ø¥ó¦X­p ¡G" & s
    End With
End Sub

TOP

¦^´_ 8# dechiuan999


    Sub aa()
   
    Dim mSht As Worksheet
    Dim mRng As Range, mRng1 As Range
    Dim s%
   
    Set mSht = ActiveSheet
    With mSht
        Set mRng1 = .Range("a2:A1000", .Range("a" & .Rows.Count).End(xlUp))
        For Each mRng In mRng1

      If mRng.FormatConditions(1).Interior.ColorIndex = 5 Then  

                s = s + 1
            End If
        Next
        If s > 0 Then
            .Range("a1") = "" & s
        End If
    End With
End Sub



¬õ¦â­Ó¥y¦³¿ù»~, ½Ð°ÝÂI¸Ñ¨M!!

TOP

¦^´_ 9# wwh126


    ¤j¤j±z¦n¡G

¤p§Ì¹ïexcel vbaªº²z¸Ñ¹ê¦b¦³­­¡C
¥Ø«e¤]¬OÃä¾ÇÃä¹ê²ß¶¥¬q¡C
§Ú·QÁÙ¬O¥Ñª©¥D¤Î¦U¦ì¤j¤jÀ°±z
·|¤ñ¸û¦n¡C
¥t¥~¡A¬O§_¥i´£¨Ñ½d¨ÒÅý¤p§Ì
¤]¦³¾Ç²ßªº¾÷·|©O¡H

TOP

        ÀR«ä¦Û¦b : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD