GBKEE

¦^´_ 10# cfuxiong
¸Õ¸Õ¬Ý

1. Option Explicit             '¦b¼Ò²Õ¼h¦¸¤¤±j­¢¨C­Ó¦b¼Ò²ÕùتºÅܼƳ£¥²¶·©ú½Tªº«Å§i¡C
   
2. Dim Rng As Range
   
3. Private Sub AUTO_OPEN()     '¦¹¥¨¶°©óÀɮ׶}±Ò®É·|¦Û°Ê°õ¦æ
   
4.     Sheets("¬ö¿ý").UsedRange.Offset(2).Clear                '²M°£ «e¤@¤éªº¼Æ¾Ú
   
5. '***   Offset(1).Clear  §ï¦¨   Offset(2).Clear    '********
   
6.     If Time < TimeValue("08:45") Then             '¦­©ó¶}½L®É¶¡
   
7.         Application.OnTime TimeValue("08:45"), "MyDee"    '³]©w©ó08:45 °õ¦æ MyDee µ{§Ç
   
8.     ElseIf Time >= TimeValue("08:45") And Time <= TimeValue("13:30") Then '©ó¥æ©ö®É¶¡¤º
   
9.         MyDee                                     ' °õ¦æ MyDee µ{§Ç
   
10.     End If
    
11. End Sub
    
12. Private Sub MyDee()
    
13.     Dim Sh As Worksheet, ¥N¸¹ As String
    
14.     If Time > TimeValue("13:30") Then Exit Sub     ' ¦¬½L®É¶¡«á °±¤î°õ¦æ
    
15.    On Error Resume Next
    
16.    Set Sh = Sheets("¬ö¿ý")
    
17.     With Sh
    
18.         ¥N¸¹ = .[C1]
    
19.         .[C1].Select
    
20.         .Activate
    
21.         Application.ScreenUpdating = False
    
22.         With Rng
    
23.             .Interior.ColorIndex = xlNone
    
24.             .Borders.LineStyle = xlLineStyleNone
    
25.         End With
    
26.         If Err <> 0 Then
    
27.             Err.Clear
    
28.             On Error GoTo 0
    
29.             .UsedRange.Interior.ColorIndex = xlNone
    
30.             .UsedRange.Borders.LineStyle = xlLineStyleNone
    
31.         End If
    
32.     End With
    
33.     With Sheets("¶×¤J").QueryTables(1)
    
34.         .Connection = "URL;http://tw.stock.yahoo.com/q/q?s=" & ¥N¸¹
    
35.        .Refresh False
    
36.         Application.EnableEvents = False
    
37.         Set Rng = Sh.Range("A" & Rows.Count).End(xlUp).Offset(1).Resize(1, .ResultRange.Columns.Count - 1)
    
38.         Rng.Value = .ResultRange.Rows(3).Value
    
39.         With Rng
    
40.             If .Row >= 20 Then
    
41.                 ActiveWindow.ScrollRow = .Row - 17
    
42.             Else
    
43.               ActiveWindow.ScrollRow = 3
    
44.             End If
    
45.             .Interior.ColorIndex = 4
    
46.             .BorderAround xlContinuous, 2, 5
    
47.         End With
    
48.         Application.EnableEvents = True
    
49.         Application.ScreenUpdating = True
    
50.     End With
    
51.      Application.OnTime Now + TimeValue("00:00:10"), "MyDee" '³]©w 10¬í«á °õ¦æ MyDee µ{§Ç
    
52.    
    
53.    '10¬íÄÁ: ¿é¤J¦¹®æ¦¡  #00:00:10# «áVBA ¦Û°Ê¥Í¦¨   ->  #12:00:10 AM#
    
54.    '5¤ÀÄÁ:  ¿é¤J¦¹®æ¦¡  #00:05:00# «áVBA ¦Û°Ê¥Í¦¨   ->  #12:05:00 AM#
    
55.    '1¤p®É:  ¿é¤J¦¹®æ¦¡  #1:00:00#  «áVBA ¦Û°Ê¥Í¦¨   ->  #1:00:00 AM#
    
56.    
    
57.     'Application.OnTime Now + #12:00:10 AM#, "MyDee" '³]©w 10¬í«á  °õ¦æ MyDee µ{§Ç
    
58.     'Application.OnTime Now + #12:05:00 AM#, "MyDee" '³]©w 5¤ÀÄÁ«á °õ¦æ MyDee µ{§Ç
    
59.     'Application.OnTime Now + #1:00:00 AM#, "MyDee"  '³]©w 1¤p®É«á °õ¦æ MyDee µ{§Ç
    
60.    
    
61.     Exit Sub
    
62. End Sub

½Æ»s¥N½X

cfuxiong

¦^´_ 8# Hsieh
ÁÂÁÂHsiehª©¤j²Ó¤ß«ü¾É¡F¤wOK¤F¡KÁÂÁÂ~~

cfuxiong

¦^´_ 6# c_c_lai
ÁÂÁÂc_c_laiªº«ü¾É»PÀ°¦£¡A«D±`º¡·N¡K¦A»¡ÁnÁÂÁÂ~~

Hsieh

¦^´_ 7# cfuxiong


   ¨Ã«D§ó§ï¬d¸ß
¦]¬°§Aªº±ø¥ó¤w¸g¦bµ{¦¡½X¤¤¨Ï¥Î¬ö¿ý¤u§@ªíC1ªº­È§@±ø¥ó
©Ò¥H¥u­n±N¬ö¿ý¤u§@ªíC1ªº­È§ï¦¨·Q­nªº¥N½X§Y¥i

cfuxiong

¦^´_ 5# Hsieh
ÁÂÁÂHsiehª©¤j«ü¾É¡F
¡m§A§â¬ö¿ý¤u§@ªí¨Æ¥óµ{§Ç§R°£«á°õ¦æ¬Ý¬Ý¡AÀ³¸Ó´N·|®ø°£³oºØ²{¶H¡n§Ú§@¤F¥H¤U°Ê§@¡F
1.¥´¶}Àɮס÷[°±¥Î¥¨¶°]¶i¤J¡÷¦b[¶×¤J]Äæ¡A¾Þ§@[¸ê®Æ]¡÷[¶×¤J¥~³¡¸ê®Æ]¡÷[½s¿è¬d¸ß]¡÷§â[2303Áp¹q]§ï¦¨[2330¥x¿n¹q]=>µe­±¬Ý¨Ó¬OOK¡÷Àx¦s¡÷Â÷¶}¡C
2.¦A¥´¶}Àɮס÷[±Ò¥Î¥¨¶°]¶i¤J¡÷¤SÁÙ­ì±Ò©l¸ê®Æ¡C
½Ðª©¤j°ª¤â«ü¾É¡KÁÂÁÂ~~

c_c_lai

¦^´_ 3# cfuxiong
' Sh.Activate                       ' *************
' Rng.Select                        ' *************
³o¨â³B§Ú±N¥¦§ï¦¨µùÄÀ¡A¦]¬°¥¦·|±Nµe­±¤£Â_¤Á¨ì "¬ö¿ý" ¤u§@ªí³æ¡A
¦pªG§A¬O¥¿¦bÀˬd "¶×¤J"¤u§@ªí³æ®É¡A³]©w®É¬q¤@¨ìµe­±
«K·|³Q±j¨î¤Á¨ì "¬ö¿ý" ¤u§@ªí³æ¤W¡A«D±`§xÂZ¡I

' Application.OnTime Now + TimeValue("00:00:10"), "MyDee"  ­×§ï¦¨
Application.OnTime (Now + Sheets("¶×¤J").Range("P2").Value), "MyDee"
¦]¬°§Aªºµ{¦¡½X¨Ã¤£¬O©ñ¸m¦b ThisWorkBook °Ï¶ô¤º¡A©Ò¥H "ThisWorkBook.MyDee"
§ï¦¨ "MyDee"¡C

¤U¸ü (56.38 KB)

2012-4-27 15:02

ªÑ²¼¬ö¿ý.rar (12.55 KB)

¤U¸ü¦¸¼Æ: 7

2012-4-27 15:02

Hsieh

¦^´_ 3# cfuxiong

·|µo²{§ó§ïªÑ¸¹«á¤S¥X²{¥ý«eªºªÑ²¼¸ê°T¡A¦³¥i¯à¬O®É¶¡®tªºÃö«Y¡A·í«e¤@­Ó¬d¸ß©|¥¼¬d¸ßµ²§ô(¥¿¦b¬d¸ß¤¤)
§A§ó§ï¤FC1ªºªÑ¸¹³o®ÉIJµo¨Æ¥óµ{§Ç¦Ó°õ¦æ§ó·s¡Aµ²ªG¦¹¦¸§ó·s¤ñ«e¤@¦¸§ó·s³t«×§Ö¡A´N¶K¨ì¸ê®Æ°Ï¡Aµ²ªG«e¤@¦¸§ó·s±µµÛ§¹¦¨
©Ò¥H³y¦¨³o¼Ë²{¶H¡A³o»Pºô¸ô¦³Ãö¡A§A§â¬ö¿ý¤u§@ªí¨Æ¥óµ{§Ç§R°£«á°õ¦æ¬Ý¬Ý¡AÀ³¸Ó´N·|®ø°£³oºØ²{¶H
¥t´£¨ì5¤ÀÄÁ°õ¦æ¬O§ï¦¨Now + TimeValue("00:05:00")¨S¿ù
  Application.OnTime Now + TimeValue("00:05:00"), "MyDee"  '³]©w 5¤ÀÄÁ«á °õ¦æ MyDee µ{§Ç

c_c_lai

¦^´_ 3# cfuxiong
½Ð§A¥ýÀˬd¤@¤U
¥N¸¹ = Sheets("¬ö¿ý").[C1]

µ¥½L«á§Ú¦A¬Ý¬Ý¡A­è¤~¤@°õ¦æ§Aªºµ{¦¡¡A´N¥X²{ 400 ªº¿ù»~°T®§¡A
µ²ªG³s±aªº§Úªº§@·~µ{¦¡³ºµM¦Û°Ê°±¤î¤F§ÚªºDDE¸ê®Æ¶×¤J¡I

cfuxiong

¦^´_ 2# c_c_lai
ÁÂÁÂc_c_laiªº«ü¾É»PÀ°¦£¡A¨ì¥Ø«e¬°¤î¡A¥Î¡mApplication.OnTime Now + TimeValue("00:05:00"), "MyDee"  '³]©w 5¤À«á °õ¦æ MyDee µ{§Ç¡n¬OOK
¤]¸Õ¹L§A«ü¾Éªº¤èªk¡A¦ý«o¥X²{¡¨¶¥¬q¿ù»~13¡¨¤£ª¾¦ó³B¥X¿ù¡H
²{¦b¬O·Q­n§ó§ï[ªÑ¸¹]«o¤£ª¾¦p¦ó¤U¤â¡F
§Ú¦b[¶×¤J]Äæ¡A¾Þ§@[¸ê®Æ]¡÷[¶×¤J¥~³¡¸ê®Æ]¡÷[½s¿è¬d¸ß]¡÷§â[2303Áp¹q]§ï¦¨[2330¥x¿n¹q]¡÷[°O¿ý]Äæ«o¤£¯à§ó·s¦¨[2330¥x¿n¹q]Data¡A5¤ÀÄÁ«á¤SÁÙ­ì[2303Áp¹q]½Ð°Ý¦p¦ó³B¸m¡H§ó§ï¨ä¥LªÑ¸¹¡A­n­þ¨Ç¨BÆJ¡HÁÂÁÂ~~

c_c_lai

¦^´_ 1# cfuxiong
¨º§A¬°¦ó¤£³o»ò°µ¡G °²³]¦b§Aªº "¶×¤J" ¤u§@ªí³æ¤ºªº P1 Äæ¦ì¿é¤J -> "®É¬q³]©w"¡A  P2 Äæ¦ì¿é¤J -> "00:05:00"¡A¦Ó±N
Application.OnTime Now + TimeValue("00:00:10"), "MyDee" ­×§ï¦¨
Application.OnTime (Now + Sheets("¶×¤J").Range("P2").Value), "ThisWorkBook.MyDee"¡A¦p¦¹¡A¥H«á¥u­n§A¤£°ª¿³´N¨ì
P2 Äæ¦ì¨Ó­×§ï§A°ª¿³ªº³]©w®É¬q¡A¨º¤£´Nµ²¤F¡I