- ©«¤l
- 7
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 9
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2007
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-4-24
- ³Ì«áµn¿ý
- 2014-4-26
|
[µ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¤@¤ÀÄÁ±½´ypºâ¤@¦¸¡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¥un¦³¤@¤ÀÄÁªº·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)
|
|