[µo°Ý] ¦p¦ó±N¨C­Ó®É¬q¤ºªº«ü©w¼Æ­È©â¥X

donod

¦p¦ó§Q¥ÎVBA¡A±N¨C1¤ÀÄÁªº"OPEN""HIGH""LOW""CLOSE"¼Æ­È(¦pSheet1¤¤ªº¥ªÃä¨Ò¤l)¡AÂର¨C15¤ÀÄÁ(9:15-9:29, 9:30-9:44, 9:45-9:59, 10:00-10:14,...µ¥µ¥)¡A¨ä¤º(15¤ÀÄÁ)®É¬qªº²Ä1­Ó"OPEN"¼Æ­È¡A³Ì"HIGH"¼Æ­È¡A³Ì"LOW"¼Æ­È¤Î³Ì«áªº1­Ó"CLOSE"¼Æ­È¡A±N³o¨Ç¼Æ­È©â¥X¨Ó¡A­«·s±Æ¦C(¦pSheet1¤¤ªº¥kÃä¨Ò¤l)¡AÁÂÁÂ!
15min.rar (53.96 KB)

¤U¸ü¦¸¼Æ: 8

2013-8-23 17:50

donod

¦^´_ 2# cdkee
ÁÂÁ¤j¤j! ¤´µM¤£¦¨¥\!

donod

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

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

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

donod

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

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

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

donod

¦A½Ð±Ð¦p¦ó±NBÄ檺®É¶¡¦Û°Ê¼W¥[1¤ÀÄÁ(e.g. 9:15Âର9:16)
¤§«á¦bHÄæÅã¥Ü¬ÛÃöDate Code(e.g. 5130916 ¥Nªí5¤ë13¤é9:16)
ÁÂÁÂ!
A1min.rar (140.66 KB)

¤U¸ü¦¸¼Æ: 5

2013-9-5 12:58

donod

¦^´_ 15# GBKEE
¸ò±qGBKEEª©¤jªº«ü¾É¡A¦¨¥\¤F!¦A¤T·PÁÂ!

1. Option Explicit
   
2. 
   
3. Sub Ex()
   
4. 
   
5.     Dim D As Variant, E As Range, b As Date
   
6. 
   
7.     For Each E In Range("b2", [b2].End(xlDown))
   
8. 
   
9.         D = Split(E.Offset(, -1), "/")
   
10.         
    
11.         b = E + #12:01:00 AM#
    
12. 
    
13.         E.Value = E + #12:01:00 AM#
    
14. 
    
15.         'E.Offset(, 6) = D(0) & D(1) & Replace(E.Text, ":", "")
    
16.          E.Offset(, 6) = D(0) & D(1) & Application.Text(b, "hhmm")
    
17. 
    
18.     Next
    
19. 
    
20. End Sub

½Æ»s¥N½X