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

«ü©wÃC¦â¨D©M

·Q°Ý¤@¤U,¦³¨S¦³excel¤½¦¡¬O¥i¥H«ü©wÃC¦â­pºâÁ`¼Æ.
¨Ò¦p:¨C­Ó¤ë¦³´X­Óvendor­nÀu¥ý¥I´Úªº,¥Î¶À¦âÅV¥Ü,¥u­p ...
john2006168 µoªí©ó 2022-5-24 13:31

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim xR As Range, R%, MyClr
For Each xR In Range([h1], Cells(Rows.Count, 2).End(3))
    MyClr = xR.DisplayFormat.Interior.ColorIndex
    If MyClr <> -4142 Then
        R = xR.Row
        Cells(R, 9) = Cells(R, 9) + xR
    End If
Next
End Sub

1.JPG (60.48 KB)

1.JPG

TOP

        ÀR«ä¦Û¦b : ¦³®É·í«äµL®É­W¡A¦n¤Ñ­n¿n«B¨Ó³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD