donod

¦^´_ 12# GBKEE
­n·PÁªº¤Ó¦h¤F!·PÁÂGEKEEª©¤j±Ð¾É!

GBKEE

¦^´_ 11# donod

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Rng(1 To 3) As Range, i  As Integer, Ar(), S
   
4.     Set Rng(1) = Sheets("Sheet1").Range("b:b")
   
5.     Ar = Array(#9:14:00 AM#, #12:59:00 PM#, #4:59:00 PM#, #4:15:00 PM#, #12:00:00 PM#, #11:00:00 PM#)
   
6.     For i = 0 To UBound(Ar)
   
7.         Set Rng(2) = Rng(1).Find(Ar(i), LookIn:=xlFormulas)
   
8.         If Not Rng(2) Is Nothing Then
   
9.             S = Rng(2).Address
   
10.             Do
    
11.                 If i <= Int(UBound(Ar) / 2) Then
    
12.                     Rng(2).Offset(1, 1) = Rng(2).Offset(, 1)
    
13.                 Else
    
14.                     Rng(2).Offset(-1, 4) = Rng(2).Offset(, 4)
    
15.                 End If
    
16.                 If Not Rng(3) Is Nothing Then
    
17.                     Set Rng(3) = Union(Rng(3), Rng(1).Parent.Range(Rng(1).Parent.Cells(Rng(2).Row, "a"), Rng(1).Parent.Cells(Rng(2).Row, "g")))
    
18.                 Else
    
19.                     Set Rng(3) = Rng(1).Parent.Range(Rng(1).Parent.Cells(Rng(2).Row, "a"), Rng(1).Parent.Cells(Rng(2).Row, "g"))
    
20.                 End If
    
21.                 Set Rng(2) = Rng(1).FindNext(Rng(2))
    
22.             Loop Until S = Rng(2).Address
    
23.         End If
    
24.     Next
    
25.      If Not Rng(3) Is Nothing Then Rng(3).Delete
    
26. End Sub

½Æ»s¥N½X

donod

A1min.rar (135.22 KB)

¤U¸ü¦¸¼Æ: 7

2013-9-2 15:56

¦A½Ð±Ð¦p¦ó±N«ü©w®É¬q¤ºªº«ü©w¼Æ­È¨ú¥N¤W¤@­Ó/¤U¤@­Ó®É¬q¤º¬ÛÃö¼Æ­È?¤§«á­«·s±Æ¦C(¦pSheet1¤¤ªº¥kÃä¨Ò¤l)¡A¦A¤TÁÂÁÂ!
«ü©w®É¬q:
9:14, 12:59, 16:59 ³o3­Ó®É¬qªº"Open"¼Æ­È¨ú¥N¤U¤@­Ó®É¬q9:15, 13:00, 17:00ªº"Open"¼Æ­È
16:15, 12:00, 23:00 ³o3­Ó®É¬qªº"Close"¼Æ­È¨ú¥N¤W¤@­Ó®É¬q16:14, 11:59, 22:59ªº"Close"¼Æ­È

donod

¦^´_ 9# GBKEE
¥i¥H¤F¡A®ø¤Æ¤¤¡A·PÁÂGBKEEª©¤jµL¨p±Ð¾É!ÁÂÁÂ!

GBKEE

¦^´_ 8# donod

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim AR(), Rng As Range, i As Integer, A(1 To 6), T As Integer
   
4.     Dim RT(1 To 2) As Single                       '****«ü©wÅܼƫ¬ºA
   
5.     ReDim AR(0)
   
6.     With Sheets("Sheet1")
   
7.         .[B:B].Replace "000", "00", xlPart         '­×§ï¬°®É¶¡®æ¦¡
   
8.         AR(0) = .[A1:F1]
   
9.         Set Rng = .Range("b2")
   
10.         T = 14 - Abs(Minute(Rng) Mod 15)        '¶Z¤U¤@­Ó15¤ÀÄÁªº¤ÀÄÁ¼Æ
    
11.         RT(1) = Rng + TimeValue("00:" & T)
    
12.         i = 1
    
13.         Do
    
14.             RT(2) = Rng.Offset(i)
    
15.             If RT(2) > RT(1) Or Rng.Offset(i, -1) <> Rng.Offset(, -1) Or Rng.Offset(i) = "" Then
    
16.                 A(1) = Rng.Resize(i).Cells(1).Offset(, -1)         'Date
    
17.                 A(2) = Rng.Cells(1).Text                               'Time
    
18.                 A(3) = Rng.Cells(1, 2)                             'Open
    
19.                 A(4) = Application.Max(Rng.Resize(i).Offset(, 2))  'High
    
20.                 A(5) = Application.Min(Rng.Resize(i).Offset(, 3))  'Low
    
21.                 A(6) = Rng.Resize(i).Offset(, 4).Cells(i)         'Close
    
22.                 ReDim Preserve AR(UBound(AR) + 1)
    
23.                 AR(UBound(AR)) = A
    
24.                 Set Rng = Rng.Offset(i)
    
25.                 T = 14 - Abs(Minute(Rng) Mod 15)                    '¶Z¤U¤@­Ó15¤ÀÄÁªº¤ÀÄÁ¼Æ
    
26.                 RT(1) = Rng + TimeValue("00:" & T)
    
27.                 i = 1
    
28.             Else
    
29.                 i = i + 1
    
30.             End If
    
31.         Loop Until Rng.Offset(i) = ""
    
32.         .[J1].CurrentRegion = ""
    
33.         .[J1].Resize(UBound(AR) + 1, 6) = Application.Transpose(Application.Transpose(AR))
    
34.     End With
    
35. End Sub

½Æ»s¥N½X

donod

¦^´_ 7# GBKEE
B15min2.rar (778.96 KB)

¤U¸ü¦¸¼Æ: 4

2013-8-28 18:19

·PÁª©¤j±Ð¾É!
¦ý16:00-1614³o­Ó®É¬q¤´µM¥u­pºâ¤F14¤ÀÄÁ®É¬q¡C

2/1/2013        15:15:00        23212        23235        23206        23231
2/1/2013        15:30:00        23230        23300        23230        23300
2/1/2013        15:45:00        23298        23322        23288        23295
2/1/2013        16:00:00        23295        23300        23241        23244
2/1/2013        16:14:00        23244        23249        23222        23222
2/1/2013        16:15:00        23226        23226        23226        23226
3/1/2013        9:14:00        23358        23358        23358        23358
3/1/2013        9:15:00        23358        23381        23309        23318

GBKEE

¦^´_ 6# donod

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim AR(), Rng As Range, i As Integer, A(1 To 6), T As Integer
   
4.     ReDim AR(0)
   
5.     With Sheets("Sheet1")
   
6.         .[B:B].Replace "000", "00", xlPart         '­×§ï¬°®É¶¡®æ¦¡ **********
   
7.         AR(0) = .[A1:F1]
   
8.         Set Rng = .Range("b2")
   
9.         T = 14 - Abs(Minute(Rng) Mod 15)        '¶Z¤U¤@­Ó15¤ÀÄÁªº¤ÀÄÁ¼Æ
   
10.         i = 1
    
11.         Do
    
12.            If Rng.Offset(i) > Rng + TimeValue("00:" & T) Or Rng.Offset(i, -1) <> Rng.Offset(, -1) Or Rng.Offset(i) = "" Then
    
13.                 A(1) = Rng.Resize(i).Cells(1).Offset(, -1)         'Date
    
14.                 A(2) = Rng.Cells(1).Text                               'Time
    
15.                 A(3) = Rng.Cells(1, 2)                             'Open
    
16.                 A(4) = Application.Max(Rng.Resize(i).Offset(, 2))  'High
    
17.                 A(5) = Application.Min(Rng.Resize(i).Offset(, 3))  'Low
    
18.                 A(6) = Rng.Resize(i).Offset(, 4).Cells(i)          'Close
    
19.                 ReDim Preserve AR(UBound(AR) + 1)
    
20.                 AR(UBound(AR)) = A
    
21.                 Set Rng = Rng.Offset(i)
    
22.                 T = 14 - Abs(Minute(Rng) Mod 15)                    '¶Z¤U¤@­Ó15¤ÀÄÁªº¤ÀÄÁ¼Æ
    
23.                 i = 1
    
24.             Else
    
25.                 i = i + 1
    
26.             End If
    
27.         Loop Until Rng.Offset(i) = ""
    
28.         .[J1].CurrentRegion = ""
    
29.         .[J1].Resize(UBound(AR) + 1, 6) = Application.Transpose(Application.Transpose(AR))
    
30.     End With
    
31. End Sub

½Æ»s¥N½X

donod

¦^´_ 4# GBKEE
B15min1.rar (754.08 KB)

¤U¸ü¦¸¼Æ: 4

2013-8-26 23:38

½Ð±Ðª©¤j¬O¨º¸Ì¥X¤F°ÝÃD¡A¥O¨ì13:00-13:14,13:45-13:59,14:30-14:44,15:15-15:29,16:00-1614³o¨Ç®É¬q¥u­pºâ¤F14¤ÀÄÁ®É¬q¡C
2/1/2013        13:00:000        23145        23152        23112        23130
2/1/2013        13:14:000        23128        23128        23126        23128
2/1/2013        13:15:000        23127        23140        23127        23128
2/1/2013        13:30:000        23129        23170        23129        23165
2/1/2013        13:45:000        23166        23193        23165        23187
2/1/2013        13:59:000        23187        23193        23184        23193
2/1/2013        14:00:000        23193        23204        23171        23180
2/1/2013        14:15:000        23181        23196        23173        23191
2/1/2013        14:30:000        23190        23216        23173        23189
2/1/2013        14:44:000        23190        23198        23190        2319
2/1/2013        14:45:000        23197        23224        23189        23214
2/1/2013        15:00:000        23214        23237        23200        23212
2/1/2013        15:15:000        23212        23230        23206        23229
2/1/2013        15:29:000        23230        23235        23229        23231
2/1/2013        15:30:000        23230        23300        23230        23300
2/1/2013        15:45:000        23298        23322        23288        23295
2/1/2013        16:00:000        23295        23300        23241        23244
2/1/2013        16:14:000        23244        23249        23222        23222

donod

¦^´_ 4# GBKEE
ÁÂÁÂGBKEEª©¤j!
³o­Ó¥i¦æ¤F¡A¤´µM®ø¤Æ¤¤¡C

GBKEE

¦^´_ 3# donod

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim AR(), Rng As Range, i As Integer, A(1 To 6), T As Integer
   
4.     ReDim AR(0)
   
5.     With Sheets("Sheet1")
   
6.         AR(0) = .[A1:F1]
   
7.         Set Rng = .Range("b2")
   
8.         T = 14 - Abs(Minute(Rng) Mod 15)        '¶Z¤U¤@­Ó15¤ÀÄÁªº¤ÀÄÁ¼Æ
   
9.         i = 1
   
10.         Do
    
11.             If TimeValue(Rng.Offset(i)) > TimeValue(Rng) + TimeValue("00:" & T) Or Rng.Offset(i, -1) <> Rng.Offset(, -1) Or Rng.Offset(i) = "" Then          '
    
12.                 A(1) = Rng.Resize(i).Cells(1).Offset(, -1)         'Date
    
13.                 A(2) = Rng.Cells(1)                                'Time
    
14.                 A(3) = Rng.Cells(1, 2)                             'Open
    
15.                 A(4) = Application.Max(Rng.Resize(i).Offset(, 2))  'High
    
16.                 A(5) = Application.Min(Rng.Resize(i).Offset(, 3))  'Low
    
17.                 A(6) = Rng.Resize(i).Offset(, 4).Cells(i)          'Close
    
18.                 ReDim Preserve AR(UBound(AR) + 1)
    
19.                 AR(UBound(AR)) = A
    
20.                 Set Rng = Rng.Offset(i)
    
21.                 T = 14 - Abs(Minute(Rng) Mod 15)                    '¶Z¤U¤@­Ó15¤ÀÄÁªº¤ÀÄÁ¼Æ
    
22.                 i = 1
    
23.             Else
    
24.                 i = i + 1
    
25.             End If
    
26.         Loop Until Rng.Offset(i) = ""
    
27.         .[J1].CurrentRegion = ""
    
28.         .[J1].Resize(UBound(AR) + 1, 6) = Application.Transpose(Application.Transpose(AR))
    
29.     End With
    
30. End Sub

½Æ»s¥N½X