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

½Ð°Ý¼¶¼g§PÂ_¦¡¡A¤§«á¸õ¥Xĵ§iµøµ¡¡C

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-11-17 11:46 ½s¿è

¦^´_ 3# tku0216
Private Sub CommandButton1_Click()¡¨  «ö¤Uª«¥óªº¨Æ¥ó  ¤u§@ªí±±¨î¤u¨ã½c , vba  ªí³æ.

Private Sub Ex()      Private  (¼Ò²Õ: ¨p¥Î)   ¤£Åã¥Ü¦b «ü¥O->¥¨¶° µøµ¡¤¤   
¦b³o¼Ò²Õªºµ{§Ç¤¤  ¥iª½±µ Ex ¨Ó¥G¥s ,  ¨ä¥L¼Ò²Õ»Ý¥Î  Run "Sheet1.Ex"  ¨Ó©I¥s

Intersect ¤èªk ¶Ç¦^ Range ª«¥ó  :  ¥Nªí¨â­Ó©Î¦h­Ó½d³ò­«Å|ªº¯x§Î½d³ò  
If Not Intersect(Target, [j18:l18]) Is Nothing Then  
Not ???    Nothing   ª«¥ó¤£¦s¦b

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD