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

»y¥y°ÝÃD

¦^´_ 11# basarasy


    123.gif

TOP

¦^´_ 12# victorl

ÁÂÁÂ victorl¤j¤j.
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 13# basarasy

¦pªG°í«ù­n¥ÎVBA¡A½Ð°Ñ¦Ò
Sub Ex()
    Set Rng = Range("A1:B4")
    For Each a In Rng
        If Not IsEmpty(a) Then a.Interior.Color = 65535 Else a.Interior.Pattern = xlNone
    Next
End Sub

TOP

If Range("B6").Value = "" then  [a1]=1 ¥¿ÚÌ¡A¦Z­±ªº¥i¥H¥Îcells来选择
学习

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD