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

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

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

¥»©«³Ì«á¥Ñ john2006168 ©ó 2022-5-24 13:32 ½s¿è

·Q°Ý¤@¤U,¦³¨S¦³excel¤½¦¡¬O¥i¥H«ü©wÃC¦â­pºâÁ`¼Æ.
¨Ò¦p:¨C­Ó¤ë¦³´X­Óvendor­nÀu¥ý¥I´Úªº,¥Î¶À¦âÅV¥Ü,¥u­pºâ¦³ÃC¦â¨C­ÓvendorªºÁ`©M,µ²ªG¦pIÄæ

Â^¨ú.PNG (7.52 KB)

Â^¨ú.PNG

·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

¦^´_ 2# samwang
ÁÂÁÂÀ°¦£,¦]¬°excel¤£¥i¥H¦³vbaµ{¦¡¦s¦b,©Ò¥H³o­Ó¤èªk¼È®É¤£¦æ.
¥t¥~,­è´ú¸Õ,¦pªG¦³¨ä¥LÃC¦â¤]·|­pºâ¶i¥h.¤£¥i¥H¥u¬O­pºâ¶À¦â¨D©M.³Ì«á,¦pªG°õ¦æ¦h¤@¦¸,¼Æ­È·|¤@ª½²Ö¥[.

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

        ÀR«ä¦Û¦b : ¹ï¤÷¥À­nª¾®¦¡A·P®¦¡B³ø®¦¡C
ªð¦^¦Cªí ¤W¤@¥DÃD