GBKEE

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

¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Dim i As Integer '(µu¾ã¼Æ)¸ê®Æ«¬ºA
   
3. 'Public i As interger => ¥X²{¨Ï¥ÎªÌ«¬ºA©|¥¼©w¸q, ¥¿½T: Integer
   
4. Sub Ex()
   
5.     Dim xTime As Date
   
6.     If Time >= #8:46:00 AM# And Time <= #1:45:00 PM# Then
   
7.         With Sheets("RTD").Cells(i + 2, "T")
   
8.                     'TÄ椽¦¡=IF(ISERROR(MATCH(U2,P:P,0)),"",MATCH(U2,P:P,0))
   
9.             .Range("A1") = "=IF(ISERROR(MATCH(RC[1],P:P,0)),"""",MATCH(RC[1],P:P,0))"
   
10.                     'UÄæ
    
11.             .Range("B1") = IIf(Minute(Time) Mod 2 = 0, Application.Sum(Range("A1:C1")), Application.Sum(Range("A2:C2")))
    
12.                     'VÄæ
    
13.             .Range("C1") = Time
    
14.                     'WÄ椽¦¡=IF(ISERROR(INDIRECT("O"&T2)),"",INDIRECT("O"&T2))
    
15.             .Range("D1") = "=IF(ISERROR(INDIRECT(""O""&RC[-3])),"""",INDIRECT(""O""&RC[-3]))"
    
16.                     'XÄ椽¦¡=IF(W2="","",IF(W2>54,-1,IF(W2<6,1,"")))
    
17.             .Range("E1") = "=IF(RC[-1]="""","""",IF(RC[-1]>54,-1,IF(RC[-1]<6,1,"""")))"
    
18.                     'YÄ椽¦¡=IF(ISERROR(INDIRECT("R"&T2)),Y1,INDIRECT("R"&T2))
    
19.             .Range("F1") = "=IF(ISERROR(INDIRECT(""R""&RC[-5])),R[-1]C,INDIRECT(""R""&RC[-5]))"
    
20.             .Resize(, 6) = .Resize(, 6).Value  '±N¤½¦¡¦^¼Æ­È
    
21.         End With
    
22.         i = i + 1
    
23.         xTime = Time + #12:01:00 AM#
    
24.         If xTime <= #1:45:00 PM# Then Application.OnTime xTime, "EX"
    
25.     ElseIf Time < #8:46:00 AM# Then
    
26.         Application.OnTime #8:46:00 AM#, "EX"
    
27.     Else
    
28.         MsgBox "®É¶¡¤w¹L"
    
29.     End If
    
30. End Sub

½Æ»s¥N½X

GBKEE

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

¬O³o¼Ë¶Ü?

1. With Sheets("RTD").Cells(i + 2, "T").Resize(, 7)
   
2.             .Offset(-1).Value = .Offset(-1).Value '¤W¤@¦C:±N¤½¦¡¦^¼Æ­È
   
3.             
   
4.                     'TÄ椽¦¡=IF(ISERROR(MATCH(U2,P:P,0)),"",MATCH(U2,P:P,0))
   
5.             .Range("A1") = "=IF(ISERROR(MATCH(RC[1],P:P,0)),"""",MATCH(RC[1],P:P,0))"
   
6.                     'UÄæ
   
7.             .Range("B1") = IIf(Minute(Time) Mod 2 = 0, Application.Sum(Range("A1:C1")), Application.Sum(Range("A2:C2")))
   
8.                     'VÄæ
   
9.             .Range("C1") = Time
   
10.                     'WÄ椽¦¡=IF(ISERROR(INDIRECT("O"&T2)),"",INDIRECT("O"&T2))
    
11.             .Range("D1") = "=IF(ISERROR(INDIRECT(""O""&RC[-3])),"""",INDIRECT(""O""&RC[-3]))"
    
12.                     'XÄ椽¦¡=IF(W2="","",IF(W2>54,-1,IF(W2<6,1,"")))
    
13.             .Range("E1") = "=IF(RC[-1]="""","""",IF(RC[-1]>54,-1,IF(RC[-1]<6,1,"""")))"
    
14.                     'YÄ椽¦¡=IF(ISERROR(INDIRECT("R"&T2)),Y1,INDIRECT("R"&T2))
    
15.             .Range("F1") = "=IF(ISERROR(INDIRECT(""R""&RC[-5])),R[-1]C,INDIRECT(""R""&RC[-5]))"
    
16.                     'ZÄ椽¦¡=IF(ISERROR(Y2-Y1),"",Y2-Y1)
    
17.             .Range("G1") = "=IF(ISERROR(RC[-1]-R[-1]C[-1]),"""",RC[-1]-R[-1]C[-1])"
    
18.            
    
19.         End With
    
20.         

½Æ»s¥N½X

GBKEE

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

1. Option Explicit
   
2. Dim NextTime As Date
   
3. Sub RecordPrice()
   
4.     Dim i As Integer
   
5.     i = Cells(2, Columns.Count).End(xlToLeft).Column
   
6.     'i: ¶Ç¦^¤u§@ªí³Ì¥kÃ䪺Àx¦s®æ, ¦V¥ª¨ì³Ì«á¦³¸ê®ÆªºÀx¦s®æªºÄ渹
   
7.     'Cells(¦C¸¹, Ä渹).END(¦V¥ª¨ì³Ì«á¦³¸ê®ÆªºÀx¦s®æ)
   
8.     'Columns.Count(¤u§@ªíÄ檫¥óªºÁ`­p)
   
9.     With Range("t2")
   
10.         If .Value = "" Then
    
11.             .Cells = "¤½¦¡A"          '§Aªº¤½¦¡
    
12.             .Cells(2) = "¤½¦¡B"       '¤U¤@¦Cªº¤½¦¡
    
13.         ElseIf i >= .Column Then      '
    
14.              '³o¸Ì¨S¦³.Cells ¬°³o¤u§@ªí¥HA1¬°°òÂIªºCells
    
15.             Cells(2, i) = Cells(2, i).Value
    
16.             Cells(3, i) = Cells(3, i).Value
    
17.             Cells(2, i + 1) = "¤½¦¡A" '¤U¤@Äæµ¹¤½¦¡
    
18.             Cells(3, i + 1) = "¤½¦¡B"
    
19.         End If
    
20.     End With
    
21. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 13# ÂŤÑÄR¦À
¬d¬ÝVBA Offset ÄÝ©Ê ªº»¡©ú

1. .Offset( ,-1).Value = .Offset( ,-1).Value '¥ª¤@Äæ:±N¤½¦¡¦^¼Æ­È            

½Æ»s¥N½X

i: ¶Ç¦^¤u§@ªí³Ì¥kÃ䪺Àx¦s®æ, ¦V¥ª¨ì³Ì«á¦³¸ê®ÆªºÀx¦s®æªºÄ渹
OÄæ¦bTÄ檺¥ªÃ䤣·|¼vÅTªº

¦pªG5.­×§ïµ{¦¡¼W¥[¤½¦¡¼Æ¶q¡A¨º6.ªº³¡¤À­n­×§ï¶Ü??
5¼W¥[¤½¦¡¼Æ¶q¡A·íµM 6.ªº³¡¤À­n­×§ï©Ò¼W¥[¤½¦¡¼Æ¶q

GBKEE

¦^´_ 15# ÂŤÑÄR¦À
VBA¤½¦¡¤å¦r¥i¥Î¥¨¶°¿ý»s: ¦b¤½¦¡©Ò¦bªºÀx¦s®æ§@¿é¤Jªº°Ê§@

1. Sub RecordPrice()
   
2.     Dim i As Integer, ¤½¦¡(1 To 2)
   
3.     i = Cells(2, Columns.Count).End(xlToLeft).Column
   
4.     ¤½¦¡(1) = "=MATCH(R[-1]C,R3C6:R50000C6,0) + 1"
   
5.     ¤½¦¡(2) = "=IF(SUMIF(INDIRECT(""D""&R2C[-1]+1):INDIRECT(""D""&R2C),RC9,INDIRECT(""E""&R2C[-1]+1):INDIRECT(""E""&R2C))=0,"""",SUMIF(INDIRECT(""D""&R2C[-1]+1):INDIRECT(""D""&R2C),RC9,INDIRECT(""E""&R2C[-1]+1):INDIRECT(""E""&R2C)))"
   
6.     With Range("J2")
   
7.         If .Value = "" Then
   
8.             .Cells = ¤½¦¡(1)         '§Aªº¤½¦¡"
   
9.             .Cells(2).Resize(200) = ¤½¦¡(2)
   
10.         ElseIf i >= .Column Then      '
    
11.             Cells(2, i) = Cells(2, i).Value
    
12.             Cells(3, i).Resize(200) = Cells(3, i).Resize(200).Value
    
13.             Cells(2, i + 1) = ¤½¦¡(1)
    
14.             Cells(3, i + 1).Resize(200) = ¤½¦¡(2)
    
15.         End If
    
16.     End With
    
17. End Sub

½Æ»s¥N½X

GBKEE

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

¤§«e¦³³]©w±q8:45¶}©l¨ì13:45µ²§ô¡A³o¦¸¨S¬Ý¨ì
Sub RecordPrice() ®M¤W¤£´N¥i¥H¤F¶Ü?
§A¹ïVBAÀ³¸Ó¦³»{ÃѤF,¦h½m²ß¤@¤U´N·|¶i¨Bªº.

GBKEE

¦^´_ 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

GBKEE

¦^´_ 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

GBKEE

¦^´_ 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

GBKEE

¦^´_ 32# ÂŤÑÄR¦À
¸Õ¸Õ¬Ý

1. Sub RecordPrice()
   
2.     Application.ScreenUpdating = False
   
3.     Calculate
   
4.     Application.ScreenUpdating = True
   
5. End Sub

½Æ»s¥N½X