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

[µo°Ý] ½Ð°ÝVBA¦³¿ìªk¹F¦¨ ¿é¤J¼Æ¶q ´N¥´´X­Ó¼Æ¶qªº¤å¦r¥X¨Ó¶Ü?

[µo°Ý] ½Ð°ÝVBA¦³¿ìªk¹F¦¨ ¿é¤J¼Æ¶q ´N¥´´X­Ó¼Æ¶qªº¤å¦r¥X¨Ó¶Ü?

¦p

¥»©«³Ì«á¥Ñ starry1314 ©ó 2015-5-17 13:24 ½s¿è

¦^´_ 2# lpk187


    ¬Oªº¡ã¯u¬O¤Ó±j¤F¡I³o¦¸ªºµ{¦¡½X¹ï§Ú¨Ó»¡®e©ö§l¦¬¦h¤F.......

TOP

¦^´_ 4# lpk187

¦nªF¦è~~¦¬¤U¤F¡I¡I¡I

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = [B3].Address Then

    ¦³ÂI½ÆÂø...¬d¤F¤U ®e©ö²z¸Ñ¦h¤F....·Q°Ý¤U[target],¥iÀH§Ú§ó§ï¦p AA? ab?

Private¬O¡§¨p¦³¡¨¡A³o¼Ëªºµ{§Ç¥u¯à¦b«ü©w½d³ò¨Ï¥Î¡A¨Ò¦p¦bSheet¸Ì
Sub¬O¡§¤À¤ä¡¨¡A¤]´N¬O»¡¬O½Ñ¦hµ{§Ç¤§¤@
By¬O¡§¦ñÀH¡¨
val¬O¡§­È¡¨
target¬OÅܶqªº¦WºÙ¡A¥i¥HÀH«K§ï¦¨¨ä¥¦ªº¡A¨Ò¦p¡§XX¡¨
As¬O¡§§@¬°¡¨
Range¬O¡§°Ï°ì¡¨¡A³o¸Ì¬OÅܶqªº¤@ºØÃþ«¬

¤@¥¹·s¿ï¾Ü¤F¤@­Ó³æ¤¸®æ°Ï°ì¡A´N¤Þµo³o­Óµ{§Ç¡A¦P®É²£¥Í¤@­Ó¦W¦r¬°targetªºÅܶq¡A³o­ÓÅܶq¥Nªí©Ò¿ï¤¤ªº³æ¤¸®æ°Ï°ì¡C

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD