Board logo

標題: [期指即時趨勢]請版大Excel高手們賜教; [打印本頁]

作者: cfuxiong    時間: 2012-4-3 14:15     標題: [期指即時趨勢]請版大Excel高手們賜教;

[期指即時趨勢]請版大Excel高手們賜教;
如何能每分鐘,登錄[主力控盤][趨勢]值計算。
[趨勢]欄是每分鐘會更新→偵測到變動→登錄。
謝謝賜教~~
作者: c_c_lai    時間: 2012-4-3 14:28

你可以參考 Excel 程式集->盤中 DDE 存檔與 VBA 的實際應用範例
依你個人需求稍加修改變成為你實用的 VBA 程式了。
作者: cfuxiong    時間: 2012-4-3 15:23

回復 2# c_c_lai
感謝回應,我試看看...謝謝!!
作者: cfuxiong    時間: 2012-4-11 10:23

回復 2# c_c_lai
c_c_lai大大:你好
摸索多日《盤中 DDE 存檔與 VBA 的實際應用範例》
進不了狀況,今附上檔案,懇請不吝指導!謝謝~~
作者: GBKEE    時間: 2012-4-11 18:37

本帖最後由 GBKEE 於 2012-4-13 06:26 編輯

回復 4# cfuxiong
[attach]10422[/attach]

你附檔 Sheet1  '趨勢研判 A欄的時間請改成  08:40:00 AM 的內容   
不要是 日期+時間 的內容 以配合程式的執行.
請將程式碼複製於 ThisWorkbook 模組裡
  1. Option Explicit
  2. Private Sub Workbook_Open()         '活頁簿開啟時 自動執行的預設程序
  3.     With Sheet1.Range("a9:a" & Sheet1.[a9].End(xlDown).Row)
  4.         .Parent.Activate
  5.         .Offset(, 1).Resize(, 3).Clear
  6.         .Interior.ColorIndex = xlNone
  7.     End With
  8.     Dee
  9. End Sub
  10. Private Sub Workbook_BeforeClose(Cancel As Boolean)    '活頁簿關閉時 自動執行的預設程序
  11.      With Sheet1.QueryTables(1)       '第一個 外部資料
  12.         .RefreshOnFileOpen = False    '外部資料 於活頁簿開啟時自動匯入 設定為False
  13.                                       '可停止 活頁簿開啟時詢問  外部資料是否更新
  14.         .RefreshPeriod = 0            '外部資料 自動e更新時間的間格 為0
  15.     End With
  16.     Save                              '存檔
  17. End Sub
  18. Private Sub Dee()
  19.     Dim xf As Range, Rng As Range, xlQuery As QueryTable
  20.      With Sheet1  '趨勢研判
  21.         Set Rng = .Range("a9:a" & .[a9].End(xlDown).Row)    '於A欄的時間範圍內
  22.         If Time < Rng(1) Then                               '時間 小於 [A9]的時間
  23.             Application.OnTime Rng(1), "ThisWorkbook.Dee"   '設定A9]的時間  執行 DEE 程序
  24.         ElseIf Time > Rng(Rng.Rows.Count) Then              '時間 大於 A欄最後一列的時間
  25.             Exit Sub
  26.         Else
  27.             Sheet1.QueryTables(1).Refresh False                 '外部資料 更新
  28.             With Rng.Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas)     '尋找到A欄的時間
  29.                 .Parent.Activate
  30.                 .Cells.Select
  31.                 .Cells(1, 2).Resize(, 3) = Application.Transpose(.Parent.[D3:D5].Value)    '找到A欄的時間: 右三欄的的值
  32.                 .Resize(, 4).Interior.ColorIndex = 34                                      '找到A欄的時間四欄的圖樣
  33.                 .Cells(0).Resize(, 4).Interior.ColorIndex = xlNone                         '取消: 找到A欄的時間上一列的四欄圖樣
  34.                 If .Cells(2) <> "" Then
  35.                     Application.OnTime .Cells(2), "ThisWorkbook.Dee"                    '設定於下一分鐘時間 執行 DEE 程序
  36.                 Else
  37.                     MsgBox "已過 收盤 時間 " & Rng(Rng.Rows.Count).Text
  38.                 End If
  39.             End With
  40.         End If
  41.     End With   
  42. End Sub
複製代碼

作者: cfuxiong    時間: 2012-4-11 20:47

回復 5# GBKEE
GBKEE大大:你好
能否拜託GBKEE大大,因我是Excel生手,正學習中。
請幫我[程式碼複製於 ThisWorkbook 模組裡]給我Zip檔,將感激不盡。謝謝~~
作者: cfuxiong    時間: 2012-4-12 15:55

回復 5# GBKEE
開啟[檔案]按[啟用巨集]→會跑出如[圖示]的圖=>請指教如何處理~~謝謝
作者: GBKEE    時間: 2012-4-12 17:43

回復 7# cfuxiong
Private Sub Dee()  修改 這裡
  1.   If Time < Rng(1) Then                               '時間 小於 [A9]的時間
  2.             'Application.OnTime Rng(1), "ThisWorkbook.Dee"   
  3.              '這裡我加上註解 程式不會執行 請取消如下式
  4.             Application.OnTime Rng(1), "ThisWorkbook.Dee"   '設定A9]的時間  執行 DEE 程序
  5.         ElseIf Time > Rng(Rng.Rows.Count) Then              '時間 大於 A欄最後一列的時間
  6.            ' Exit Sub         
  7.             '這裡我加上註解 程式不會執行 請取消如下式
  8.             Exit Sub
  9.         End If
複製代碼

作者: loveking53    時間: 2012-4-12 21:20

可否寄來研究看看呢
[email protected]
作者: cfuxiong    時間: 2012-4-12 23:20

回復 8# GBKEE
GBKEE大大:你好
是如圖這樣嗎?謝謝更正,但我還是搞不來~~
能幫我生成OK~~Zip檔,我知道這樣是偷懶,但還是拜託GBKEE。
但還是請撥空指導。感激不盡。謝謝~~
作者: GBKEE    時間: 2012-4-13 06:14

本帖最後由 GBKEE 於 2012-4-13 09:06 編輯

回復 10# cfuxiong
你確實是個VBA新手   
圖片中有看到 複製代碼  程式信息指的是它吧
5#的檔案已更新 你重新下載吧
作者: cfuxiong    時間: 2012-4-13 09:05

回復 11# GBKEE
GBKEE大大:早安
開電腦的第一時間,就看是否有你的佳音。
不失我望...感激在心...開盤了...
測試結果向你報告...一切滿意...給你按無數個『讚』
在此容我再說聲...[謝謝你的指導]~~謝謝




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)