GBKEE

¦^´_ 1# jiuhtsair

1. Sub Ex()
   
2.         Dim A As Date
   
3.         A = Time
   
4.         Do
   
5.           DoEvents
   
6.           If Time > A Then
   
7.             A = Time
   
8.             Sheet2.Range("A" & Rows.Count).End(xlUp).Offset(1) = Time & Sheet1.[A1]
   
9.             '½Ð¦Û¦æ­×§ï->EXCELªº¸ê®Æ(®É¶¡¡B¶}½L»ù¡B³Ì°ª»ù¡B³Ì§C»ù¡B¦¬½L»ù¡B³æ¶q¡B¦¨¥æ¶q)
   
10.           End If
    
11.         Loop
    
12. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 7# jiuhtsair


¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.         Dim A As Single
   
3.         A = 0.361111   '®É¶¡ ¤W¤È 08:40:00
   
4.         j = 2
   
5.         Do
   
6.           DoEvents
   
7.           'If Sheets(2).Cells(j, 2) > A Then
   
8.           '  A = Sheets(2).Cells(j, 2)
   
9.           If Sheets(1).Cells(2, 1) > A Then   'SHEETS(1)ªºA2¤j©ó ®É¶¡
   
10.             A = Sheets(1).Cells(2, 1)         '§ó§ï®É¶¡¬°SHEETS(1)ªºA2
    
11.         '  -- ªþÀÉ Sheets(1).Cells(3, 5)......   ¬°ªÅ¥Õ  --
    
12.         'Sheets(2).Cells(j, 2) = Sheets(1).Cells(3, 5)
    
13.         'Sheets(2).Cells(j, 3) = Sheets(1).Cells(3, 6)
    
14.         'Sheets(2).Cells(j, 4) = Sheets(1).Cells(3, 7)
    
15.         'Sheets(2).Cells(j, 5) = Sheets(1).Cells(3, 8)
    
16.         'Sheets(2).Cells(j, 6) = Sheets(1).Cells(3, 9)
    
17.         'Sheets(2).Cells(j, 7) = Sheets(1).Cells(3, 10)
    
18.         Sheets(2).Cells(j, 2).Resize(1, 6) = Sheets(1).Cells(2, 5).Resize(1, 6).Value
    
19.         O = 0
    
20.         H = -99999
    
21.         l = 99999
    
22.         cumVol = V
    
23.         j = j + 1
    
24.           End If
    
25.         Loop
    
26. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 11# ABK

Sheets("1")ªºA 2 ¤½¦¡=RTD("money.excel",,"*SYSTEM","ServerTime")
¬O§_¶Ç¦^#N/A (¿ù»~­È),¾É­Pµ{¦¡¿ù»~¸Õ¸Õ¬Ý

1. Sub Ex()
   
2. Set MyBook = ThisWorkbook
   
3. Set Sht1 = MyBook.Sheets("1")
   
4.         Dim A As Single
   
5.         A = 0.361111   '®É¶¡ ¤W¤È 08:40:00
   
6.         j = 2
   
7.         Do
   
8.             DoEvents
   
9.             '********´ú¸Õ¥Î  ******************************************
   
10.             If IsError(Sht1.Cells(2, 1)) Then Stop  '¶Ç¦^¿ù»~­È µ{¦¡¼È°±
    
11.             '**********************************************************
    
12.             If Not IsError(Sht1.Cells(2, 1)) Then
    
13.                 If Sht1.Cells(2, 1) > A Then   'SHEETS(1)ªºA2¤j©ó ®É¶¡
    
14.                     A = Sht1.Cells(2, 1)         '§ó§ï®É¶¡¬°SHEETS(1)ªºA2
    
15.                     Sht1.Cells(j, 2).Resize(1, 6) = Sht1.Cells(2, 5).Resize(1, 6).Value
    
16.                     O = 0
    
17.                     H = -99999
    
18.                     l = 99999
    
19.                     cumVol = V
    
20.                     j = j + 1
    
21.                 End If
    
22.             End If
    
23.         Loop
    
24. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 13# ABK

=RTD("money.excel",,"*SYSTEM","ServerTime")
³o ¦¡§Ú¨S¦³§AªºÀÉ®×µLªk´ú¸Õ

¤U¸ü (171.37 KB)

2018-4-25 18:46

GBKEE

¦^´_ 15# ABK
§Ú¥u¦³¥x·sÃҨ餽¥qªº´¼¦h¬P¥i¥Î.

¥i¦A¸Õ¸Õ¬Ý

1. Sub Ex()
   
2.     Dim Sht1 As Worksheet, MyBook As Workbook, A As Date
   
3.     Set MyBook = ThisWorkbook
   
4.     Set Sht1 = MyBook.Sheets("1")
   
5.         A = #8:40:00 AM#
   
6.         'Date ¨ç¼Æ ¶Ç¦^¤@ Variant (Date)¡A¤º®e¬°¨t²Î¤é´Á (¹q¸£©Ò°O¿ýªº²{¦b¤é´Á)¡C
   
7.         j = 2
   
8.         Do
   
9.             DoEvents
   
10.             '********´ú¸Õ¥Î  ******************************************
    
11.            ' If IsError(Sht1.Cells(2, 1)) Then Stop  '¶Ç¦^¿ù»~­È µ{¦¡¼È°±
    
12.             '**********************************************************
    
13.             If Not IsError(Sht1.Cells(2, 1)) Then
    
14.               '''  MsgBox TypeName(Sht1.Cells(2, 1).Value)
    
15.                 If Sht1.Cells(2, 1) > A Then   'SHEETS(1)ªºA2¤j©ó ®É¶¡
    
16.                     A = Sht1.Cells(2, 1)         '§ó§ï®É¶¡¬°SHEETS(1)ªºA2
    
17.                     Sht1.Cells(j, 2).Resize(1, 6) = Sht1.Cells(2, 5).Resize(1, 6).Value
    
18.                     O = 0
    
19.                     H = -99999
    
20.                     l = 99999
    
21.                     cumVol = V
    
22.                     j = j + 1
    
23.                 End If
    
24.             End If
    
25.         Loop
    
26. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 17# ABK
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sht1 As Worksheet, MyBook As Workbook, Rng As Range
   
4.     Dim xTime As Date
   
5.     Set MyBook = ThisWorkbook
   
6.     Set Sht1 = MyBook.Sheets("1")
   
7.     xTime = Time       '¤£­nºÞSht1.Cells(2, 1)ªº®É¶¡
   
8.     Do
   
9.             DoEvents
   
10.            If Time >= xTime Then  
    
11.                 xTime = TimeSerial(Hour(Time), Minute(Time) + 1, 0)   '¤U¤@¤ÀÄÁ
    
12.                 Set Rng = Nothing
    
13.                 If Time >= #8:40:00 AM# And Time <= #1:30:00 PM# Then    '¤é½L
    
14.                     Set Rng = [N2:W2]
    
15.                 ElseIf Time >= #2:59:50 PM# Or Time <= #5:00:10 AM# Then
    
16.                 '®É¶¡­n¸ó¹L¹j¤é
    
17.                 'http://forum.twbts.com/thread-20727-1-1.html
    
18.                 '©]½L StartTime 14:59:50  /  EndTime ¹j¤é 05:00:10
    
19.                     Set Rng = [A2:J2]
    
20.                
    
21.                 End If
    
22.                 If Not Rng Is Nothing Then
    
23.                     With Cells(Rows.Count, "A").End(xlUp).Offset(1)
    
24.                         .Resize(, Rng.Count) = Rng.Value
    
25.                     End With
    
26.                 End If
    
27.             End If
    
28.         Loop
    
29. End Sub

½Æ»s¥N½X