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

³oºØ¨Ì®É¶¡¹Bºâªº¥¨¶°­n¦p¦ó¼g??

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-12-11 06:24 ½s¿è

¦^´_ 20# ÂŤÑÄR¦À

°ÝÃD¥X¦b³o¨Ç¨é°Óªº API ¨ç¼Æ  http://www.coco-in.net/thread-24599-1-1.html
½Ð¦A¦Û¦æ¸ß°Ý¨é°Ó¦p¦ó¸Ñ¨M.
  1. Declare Function SKQuoteLib_Initialize Lib "SKQuoteLib.dll" (ByRef strID As Byte, ByRef strPass As Byte) As Long
  2. Declare Function SKQuoteLib_EnterMonitor Lib "SKQuoteLib.dll" () As Long
  3. Declare Function SKQuoteLib_AttachConnectionCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
  4. Declare Function SKQuoteLib_AttachQuoteCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
  5. Declare Function SKQuoteLib_AttachTicksCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
  6. Declare Function SKQuoteLib_AttachBest5CallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
  7. Declare Function SKQuoteLib_RequestStocks Lib "SKQuoteLib.dll" (ByRef Page As Integer, ByVal Stocks As String) As Long
  8. Declare Function SKQuoteLib_RequestTicks Lib "SKQuoteLib.dll" (ByRef Page As Integer, ByVal Stock As String) As Long
  9. Declare Function SKQuoteLib_GetStockByNo Lib "SKQuoteLib.dll" (ByVal strStockNo As String, ByRef Stock As TStock) As Long
  10. Declare Function SKQuoteLib_GetStockByIndex Lib "SKQuoteLib.dll" (ByVal Market As Integer, ByVal Index As Integer, ByRef Stock As TStock) As Long
  11. Declare Function SKQuoteLib_GetTick Lib "SKQuoteLib.dll" (ByVal Market As Integer, ByVal Index As Integer, ByVal Ptr As Long, ByRef Tick As TTick) As Long
  12. Declare Function SKQuoteLib_GetBest5 Lib "SKQuoteLib.dll" (ByVal Market As Integer, ByVal Index As Integer, ByRef Best5 As TBest5) As Long
  13. Declare Function SKQuoteLib_AttachTicksGetCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
  14. Declare Function SKQuoteLib_AttachBest5GetCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
  15. Declare Function SKQuoteLib_GetKLine Lib "SKQuoteLib.dll" (ByVal strStockNo As String, ByVal KLineType As Integer) As Long
  16. Declare Function SKQuoteLib_AttachKLineDataCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
  17. Declare Function SKQuoteLib_RequestServerTime Lib "SKQuoteLib.dll" () As Long
  18. Declare Function SKQuoteLib_GetServerTime Lib "SKQuoteLib.dll" (ByRef ServerTime As CFormat05) As Long
  19. Declare Function SKQuoteLib_AttchServerTimeCallBack Lib "SKQuoteLib.dll" (ByVal Func As Long) As Long
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2014-12-11 07:39 ½s¿è

¦^´_ 21# GBKEE

G¤j¡A¤£¬O¨é°Óªº°ÝÃD¡A§Ú¬Q¤Ñ¤U¤ÈÁÙ¥i¥H¥Î¡A¦ý¬Q¤Ñ¶}teamview«áªí³æªº³¡¤À´NµLªkÂIÀ»¡A§Ú¦b·Q¬O¤£¬Oµ{¦¡¦³½Ä¨ì¡A¤Wºô¬d¤F¤@¤U¤£ª¾¹D¬O§_¬OactiveX±±¨î¶µªº°ÝÃD¡A©Ò¥H¤~·Q»¡¨Ó½Ð±ÐG¤j¡A¦]¬°§Ú¤£¬O¥u¦³¨º­ÓÀɮפ£¦æ¡A¬O©Ò¦³Àɮתºªí³æ³£µLªkÂIÀ»

TOP

¥i¥H¤]¤À¨Éµ¹§Ú¡H
§Ú³Ìªñ¤]¦b·Q³o°ÝÃD
ÁÂÁÂ

TOP

¥»©«³Ì«á¥Ñ ÂŤÑÄR¦À ©ó 2014-12-22 23:25 ½s¿è

¦^´_ 21# GBKEE


    G¤j¡A½Ð±Ð¤@¤U¦pªG§Ú¦bªþ¥ó³o­Óµ{¦¡­n¥[¤J¨C¬í¦V¤Uºu°Ê¤@¦C­n«ç»ò¥[©O?? ¤ÀªR.rar (88.77 KB)
·PÁÂ

TOP

¦^´_ 21# GBKEE


    G¤j¡A¥i¥H¶¶«KÀ°¤p§Ì¬Ý¤@¤U³o­Óªþ¥ó¶Ü?? ©e¶R½æ(¸s¯q)Rev.rar (18.06 KB)
¤p§Ì¸ÕµÛ¼g¡A¥»¨Ó¥\¯à³]©w¬OB2-K2¨ä¤¤ªº­È¤j©ó700´N°O¿ý¡A¦ý¤£ª¾¹Dµo¥Í¬Æ»ò°ÝÃD¡A«oµLªk°õ¦æ¡A­È¨S¦³¨ì700¤]°O¿ý¡A¦b³Â·ÐG¤jÀ°¦£«ü±Ð¤@¤U

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-12-24 12:29 ½s¿è

¦^´_ 25# ÂŤÑÄR¦À
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub RecordPrice()
  3.     Dim WR As Long, I As Byte, SH As Worksheet
  4.     Set SH = shtRTD '¤u§@ªíª«¥ó¼Ò²Õªº¦WºÙ
  5.     Set SH = Sheets("RTD") '¬¡­¶Ã¯¤u§@ªíªº¦WºÙ
  6.     With SH
  7.         .Activate
  8.         If IsError(.Range("F2")) Or IsError(.Range("G2")) Then Exit Sub
  9.         If .Range("F2") < 20 Then Exit Sub
  10.         WR = .Range("A1").End(xlDown).Row + 1
  11.         If WR = 3 Or Application.Max(.Range("B2").Resize(, 10)) > 700 Then
  12.             .Cells(WR, 1).Resize(, 11) = .Range("A2").Resize(, 11).Value
  13.             With ActiveWindow
  14.                 If Intersect(SH.Cells(WR, "A"), .VisibleRange) Is Nothing Then
  15.                     SH.Cells(WR, "A").Select
  16.                 End If
  17.             End With
  18.         End If
  19.     End With
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 26# GBKEE

G¤j·PÁ§Aµ¥µ¥¨Ó¸Õ¸Õ¬Ý

TOP

¦^´_ 26# GBKEE

G¤j¡A¤§«eªºµ{¦¡´ú¸Õ¹L«á¥i¥H¤F¡A¦ý¬O¥t¤@­Ó½Ð±Ð¤@¤UG¤j¦pªG§Ú¦bªþ¥ó³o­Óµ{¦¡­n¥[¤J¨C¬í¦V¤Uºu°Ê¤@¦C­n«ç»ò¥[©O?? ¤ÀªR.rar (88.77 KB)
¨ä¥Lªº§ÚÁÙ¥i¥H¸ÕµÛ¼g¼g¬Ý¡A¦ý³oºØªº´N...¡AÁÙ±æG¤jÀ°¦£¤@¤U¡A¤£¦n·N«äG¤jÁ`¬O³Â·Ð§A

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2014-12-25 08:48 ½s¿è

¦^´_ 28# ÂŤÑÄR¦À

¬O³o¼Ë¶Ü?
  1. Sub RecordPrice()
  2.     Dim WR As Long, R As Long
  3.     Dim I As Long
  4.     WR = Range("A1").End(xlDown).Row + 1
  5.     [A2] = TimeValue(Now)
  6.     For I = 1 To 24
  7.         Cells(WR, I) = Cells(2, I)
  8.     Next 'I
  9.     With ActiveWindow
  10.         If Intersect(Cells(WR, "A"), .VisibleRange) Is Nothing Then
  11.            Cells(WR, "A").Select
  12.         End If
  13.         .SmallScroll .VisibleRange.Cells.End(xlDown).Row - .VisibleRange.Cells(1).Row
  14.     End With
  15. End Sub
½Æ»s¥N½X
ÁÙ¬O³o¼Ë?
  1. With ActiveWindow
  2.         If Intersect(Cells(WR, "A"), .VisibleRange) Is Nothing Then .SmallScroll 1
  3.     End With
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 29# GBKEE

G¤j¬O¤U­±¨º¼Ë¡AÁÂÁ§A

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD