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

[µo°Ý] ¦³Ãö©ó¦Û°Ê¥æ©ö¨t²Î«ç¼ËIJµoµo³æªº°ÝÃD

[µo°Ý] ¦³Ãö©ó¦Û°Ê¥æ©ö¨t²Î«ç¼ËIJµoµo³æªº°ÝÃD

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-4-24 16:56 ½s¿è

¤p§Ì³Ìªñ¶}©l¬ã¨sEXCELªº¦Û°Ê¥æ©ö¨t²Î¡A¨Ï¥ÎtouchanceªºDDE¼Æ¾Ú¡C
¼Æ¾Ú°O¿ý¤è¦¡¡G
¡A¨C¤@¤ÀÄÁ°O¿ý¨Ì¦¸­p¤J¤@¤ÀÄÁ¼Æ¾Ú¨ì¤@¦æ³æ¤¸®æ¡A¤U¤@¤ÀÄÁ°O¿ý¤U¤@¤ÀÄÁªº¼Æ¾Ú¡A¥H¦¹Ãþ±À¡C
µo³æÄ²µo¤è¦¡¡G
°Ñ¦Ò¤F«¸ªLªN¯§¦Ñ®vªº¡§Â÷½u¥æ©öEXCELÀÉ¡¨¡A¨Ï¥Î¤@­Ó©w®É¾¹¨C¹L¤@¤ÀÄÁ±½´y°õ¦æ¤@¦¸­pºâ¡A

            hTimer = SetTimer(0, 0, 60000, AddressOf Main)   '¨C¹L¤@¤ÀÄÁ¶i¦æ¤@¦¸­pºâ¡Aº¡¨¬±ø¥ó«hµo³æ¡C
²{¦b°ÝÃD¨Ó¤F¡G
¤ñ¦p§Ú·Q¨Ï¥Î¤@­Ó²³æªº20°ª§CÂI¬ð¯}µ¦²¤¡A§Ú¥²¶·¨C¹L¤@¤ÀÄÁ±½´y­pºâ¤@¦¸¡A³o¼Ë¦pªG¹J¨ìºôµ¸©µ®É©ÎªÌÂ_½u¦Z­«³s±N¨S¦³¥i¾a«O»Ù¡C
§Ú²{¦b·Qªº¬O¯à§_§Q¥Î¡§¨C¤@¤ÀÄÁ·s¼Æ¾Ú¶i¤JIJµo¶i¦æ­pºâ¡¨¡A¤]´N¬O»¡¡A¥u­n¦³¤@¤ÀÄÁªº·s¼Æ¾Ú¦¬¨ì¡]¦Û°Ê¶ñ¤J¤U¤@¦æ¡^¡A§YIJµo¤U¤@¦¸­pºâ¡A¤£ª¾À³¸Ó¦p¦ó¹ê²{¡H

¦b¨ä¥L½×¥L½Ð±Ð¹L¡A±o¨ì¦p¤U¦^ÂÐÀ°§U¡G
1.¡§§ï¥Îevent driven¡A¤£­n¥Î°j°é¡¨
2.¡§¥Î¤@­Óvba¤u¨ã´N¥i¥H²³æ³B²z_¦³Åܰʤ~§ó·s.§ÖºC½Lºtºâ¤£·|º|tick.¡¨
3.¡§¥Î°j°éªº¸Ü¾ã­Óexcel ªºevents³£·|³Q­á¦í, µ¥¨ì°j°é°±¤î, §A¦pªG¸Õ¹LÀ³¸Ó´N¤£·|³o¼Ë°Ý¡¨
¤p§ÌÁÙ¬O¤£©ú¥Õ¥Î¤°麽¤è¦¡¥i¥H³ÌÀu¡H½Ð¥ý½ú­Ì½ç±Ð¡C
PS:¬Ý¨ì¤@ºØ¸Ñ¨M¤è®×¡G
Worksheet_Change event, worksheet¤W¦³ÅܤƤ~°õ¦æ°Ê§@, ¹³API tick ªºcell ¦ì¸m:
Private Sub Worksheet_Change(ByVal Target As Range)
'¦pªGA1 cell¸ê®Æ¦³ÅܰÊ
If Target.Address = "$A$1" Then
'°õ¦æ·Q°µªº¨Æ±¡
end if
¦ý¬O¤p§Ì¨S¬ÝÀ´¡C¡C¡C¡C¬O§_¯à请¤j¤j们´£¥Ü¡H
³Ì¦Z¡A¥ý¶i­Ì¬O¦p¦ó¹ê²{³o¼ËªºÄ²µoªº¡H¤p§ÌVBA¤£¼ô½m¡A¯à§_½Ð¥ý¶iªù¦b§Ú¤W¶Çªº¸ê®Æ¤WÀ°¦£­×§ï¡C
·P®¦~

auto trading.rar (678.64 KB)

http://itgroup.blueshop.com.tw/kenming/blog?n=convew&i=7699
¬Ý¨ì这个©«¤lªº内®e¡A¬O§Q¥Îsetlinkondata写DDEÅܤÆevent¡A¥¿¦n²Å¦X§Úªº­n¨D¡A
¦ý«ç¼Ë¨Ï¥Î¨S¦³¬ÝÀ´¡A½Ð¨D¤j¤j­ÌÁ¿¸Ñ¡C¡C

TOP

diabo µoªí©ó 2014-4-24 21:35

½Ð±Ð¤°麽·N«ä¡H¥Îcalculate¨Æ¥ó¬O§_»Ý­n¥Î°j°é¡H

TOP

¦^´_ 3# diabo
请参¦Ò¡G
¡§³o¥i¬O¬Û·í¬Û·íªº³Â·Ð¤F¡I ¦]¬°³z¹L²Ä¤@­Óµ{§Ç¤ºªº°Ñ¼Æ (Range Object)¡A¥i¥H«Ü¤è«K¦a±oª¾¬O­þ¤@­Ó CELL ªº¸ê®ÆÅܰʡA¦ý²Ä¤G­Óµ{¦¡«h§_¡C ©Ò¥H­Y­nª¾¹D¦b¬Y¤@­Ó¤u§@ªí¬O­þ¤@­Ó CELL ªº¸ê®ÆÅܰʡA´N¥²¶·¼g FOR LOOP °j°é¡A¤@­Ó¤@­Ó¨Ó§PÂ_¬O­þ¤@­Ó CELL Äæ¦ìªº¸ê®ÆÅܰʡC §Ú´X¥G¬Ý¨ì³\¦h¼g§PÂ_ Tick ¸ê®ÆÅܰʪºµ{¦¡¡A³£¬O¥H¸Ó¨Æ¥óµ{§Ç (Worksheet_Calculate) ¨Ó³B²z¡C ·íµM¡AÄæ¦ì¤£¦hÁÙ OK¡A¦ý¬O­Y¬O¹³§Ú³o¼Ë¡A¤@­Ó¤u§@ªí¬O¼´¬ù 100 ÀɪºÅv­È¦¨¥÷ªÑ¡B¬ù¦³ 500 ~ 800 ­Ó DDE Äæ¦ìªº¸Ü¡A¨ºªÖ©w®Ä¯à·|¤j¥X°ÝÃD¡A³s°Ê·íµM·|¼vÅT¨ì Tick ¸ê®Æªº¥¿½T©Ê¤F¡C ¾ã¾ãª¦¤å¤F¤@¾ã­Ó¦­¤W¡AÁ`ºâ¤~§ä¨ì¯u¥¿¥¿½T³B²z DDE CELL «¬ºAªº¨Æ¥óµ{§Ç¤F¡C ¤£À³¸Ó¨Ï¥Î "WorkSheet_Calculate()"¡B¦Ó¬O±Ä¥Î "SetLinkOnData()" µ{§Ç¤~¬O¡C¡¨
¤£ª¾¹D±zªº¸Ñ决¤è®×¬O§_¬O这样©O¡H

TOP

¦^´_ 6# bobomi
½Ð°Ý¦n¤èªk¬O¤°麽¼Ëªº©O¡H:'( :'( :'(

TOP

¦³¨S¦³¤j¯««üÂI¤p§Ì¤@¤U°Ú¡H
µ¥µÛ¥Î¦nµÛ«æ°Ú¡C¡C¡C¡C

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD