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

Private Sub Worksheet_Change(ByVal Target As Range)«ç»ò¥Î??

Private Sub Worksheet_Change(ByVal Target As Range)«ç»ò¥Î??

­è¦bºô¸ô¤W¦³µo²{oobirdª©¥D³o­Ó¦n¥Îµ{¦¡, ¦ý«ç»ò¥Î¤F¨S¦³¤ÏÀ³, ¦³¤H¥i¥HÀ°¦£¬Ý¤@¤U¶Ü? ·P®¦~~~
Private Sub Worksheet_Change(ByVal Target As Range)
x = "J11,K11,L11,M11"
If InStr(x, Target.Address(0, 0)) > 0 Then [D4] = ActiveCell.Value
End Sub
ªì¾ÇªÌcolor

¥»©«³Ì«á¥Ñ color790 ©ó 2012-1-19 09:59 ½s¿è

ÁÂÁ¤j®a¦^µª, ¦ý....¥D­n¬O¬°¤F¤è«K, ©Ò¥H³o´X­ÓÀx¦s®æ³£¤w¨Æ¥ý¼g¦n¼Æ¦r©Î¤å¦r, [D4]«á­±¦A°µÅܤÆ
¤ñ¦p[d4],[d5]....   [f4][f5].......
ÁÙ¬O»¡¦³....."¦b½s¿è¦C ¿é¤J«á ¤Ä¿ï" ªº¥¨¶°, ¥Î¿ýªº¦n¹³³£¬Ý¤£¥X¨Ó

ÁÙ¬Oª½±µ°µbutton.....
ªì¾ÇªÌcolor

TOP

­ì¨Ó§Ú»Ý­nªº¬O
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
sorry,  ÁÂÁ¤j®aªº¦^µª
ªì¾ÇªÌcolor

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD