標題:
[期指即時趨勢]請版大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 模組裡
Option Explicit
Private Sub Workbook_Open() '活頁簿開啟時 自動執行的預設程序
With Sheet1.Range("a9:a" & Sheet1.[a9].End(xlDown).Row)
.Parent.Activate
.Offset(, 1).Resize(, 3).Clear
.Interior.ColorIndex = xlNone
End With
Dee
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean) '活頁簿關閉時 自動執行的預設程序
With Sheet1.QueryTables(1) '第一個 外部資料
.RefreshOnFileOpen = False '外部資料 於活頁簿開啟時自動匯入 設定為False
'可停止 活頁簿開啟時詢問 外部資料是否更新
.RefreshPeriod = 0 '外部資料 自動e更新時間的間格 為0
End With
Save '存檔
End Sub
Private Sub Dee()
Dim xf As Range, Rng As Range, xlQuery As QueryTable
With Sheet1 '趨勢研判
Set Rng = .Range("a9:a" & .[a9].End(xlDown).Row) '於A欄的時間範圍內
If Time < Rng(1) Then '時間 小於 [A9]的時間
Application.OnTime Rng(1), "ThisWorkbook.Dee" '設定A9]的時間 執行 DEE 程序
ElseIf Time > Rng(Rng.Rows.Count) Then '時間 大於 A欄最後一列的時間
Exit Sub
Else
Sheet1.QueryTables(1).Refresh False '外部資料 更新
With Rng.Find(TimeSerial(Hour(Time), Minute(Time), 0), LookIn:=xlFormulas) '尋找到A欄的時間
.Parent.Activate
.Cells.Select
.Cells(1, 2).Resize(, 3) = Application.Transpose(.Parent.[D3:D5].Value) '找到A欄的時間: 右三欄的的值
.Resize(, 4).Interior.ColorIndex = 34 '找到A欄的時間四欄的圖樣
.Cells(0).Resize(, 4).Interior.ColorIndex = xlNone '取消: 找到A欄的時間上一列的四欄圖樣
If .Cells(2) <> "" Then
Application.OnTime .Cells(2), "ThisWorkbook.Dee" '設定於下一分鐘時間 執行 DEE 程序
Else
MsgBox "已過 收盤 時間 " & Rng(Rng.Rows.Count).Text
End If
End With
End If
End With
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() 修改 這裡
If Time < Rng(1) Then '時間 小於 [A9]的時間
'Application.OnTime Rng(1), "ThisWorkbook.Dee"
'這裡我加上註解 程式不會執行 請取消如下式
Application.OnTime Rng(1), "ThisWorkbook.Dee" '設定A9]的時間 執行 DEE 程序
ElseIf Time > Rng(Rng.Rows.Count) Then '時間 大於 A欄最後一列的時間
' Exit Sub
'這裡我加上註解 程式不會執行 請取消如下式
Exit Sub
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/)