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

¦p¦ó °»´ú DDE §Y®É³ø»ùªº ©³¼h °ò¦§Þ³N

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2013-10-21 13:53 ½s¿è
¦^´_  handsometrowa


   §ÚÁÙ¨S¦³ try, §Ú¤]¥¿¦b¹Á¸Õ ¬ð¯}³o­Ó °ÝÃD
sjgau µoªí©ó 2013-10-21 11:21

¦p¦¹¼gªk¡A¸ê®Æ·|¤@ÆY®ØËç¡I

TOP

¦^´_ 4# handsometrowa


   §ÚÁÙ¨S¦³ try, §Ú¤]¥¿¦b¹Á¸Õ ¬ð¯}³o­Ó °ÝÃD
¤Ñ¤U¬°¤½

TOP

¦^´_ 3# sjgau


    ªO¤j

³o­Ó·N«ä¬O   §A±NDDE ·|§ó§ïªº¸ê®Æ©ñ¦bA1¸Ì­±

·í¼Æ¦r¦³Åܰʪº®É­Ô¡A¥L´N·|±qA2>A3>A4 ³o¼Ë¤l°O¿ý¤U¥hªº·N«ä¶Ü..

TOP

¦^´_ 2# handsometrowa


    ¥i¥H¼g¦b¥H¤U¨Æ¥ó§õ

Private Sub Worksheet_Change(ByVal Target As Range)

if target=range("a1") then
   range("a1").end(xldown)=range("a1")
end if

End Sub

©Ò¥H·í§A¼Æ¦r¦³ÅÜ°Ê ´N·|¨ì³o¸Ì­±°õ¦æ½Æ»sªºµ{¦¡
¤Ñ¤U¬°¤½

TOP

¦^´_ 1# sjgau


  ¬Ý§¹¤F¾ã½g¤å³¹

³Ì¤£¸Ñªº¨ä¹êÁÙ¬O³o¬q


¦p¦ó¥Î¡H ¤ñ·Q¹³ÁÙ­n³Â·Ð¡C §A¥²¶·¥ýµn°O©Ò·Q­n³B²z§t DDE Link CELL ªº¦r¦ê¡AµM«á¦A©e°U¥æµ¹¨Æ¥ý¼g¦nªº VBA ¥¨¶° (Marco) ¨Ó³B²z¡C¦p¤U¡G

ActiveWorkbook.SetLinkOnData _
"CATDDE|'STOCK2330 '!Volume", _
"my_Link_Update_Macro"

²Ä¤@­Ó°Ñ¼Æ¬O DDE Link ªº¦r¦ê"¡G²Ä¤G­Ó°Ñ¼Æ´N¬O¥¨¶°ªº¦WºÙ¡C

°O±o¡A¬O­n§â­È±oÃöª`ªº DDE CELL ¤@­Ó¤@­Ó§Q¥Î¸Óµ{§Ç¨Óµn°O¡A­Y¬O­n¥þ³¡ªº CELL ³£­nµn°O¡A¨º»ò°Ñ¦Ò¦p¤Uªº¼gªk (refer. DDE Link Change Event¡C)¡G



­«ÂI¬O·Q¬Ý­ì¤å  ¤W­zªºDDE Link Change Event  ³sµ²¤w¸g¥¢®Ä¤F
½Ð°Ýª©¥D¤F¸Ñ¨Ï¥Î¥¨¶°±Ò°ÊtickÅܤƪº³o­Ó³¡¤À¶Ü??

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¨S¦³©Ò¦³Åv¡A¥u¦³¥Í©Rªº¨Ï¥ÎÅv¡C
ªð¦^¦Cªí ¤W¤@¥DÃD