12
返回列表 上一主題 發帖

[期指即時趨勢]請版大Excel高手們賜教；

cfuxiong

帖子
93 
主題
18 
精華
0 
積分
111 
點名
0  
作業系統
XP 
軟體版本
OFFICE 
閱讀權限
20 
性別
男 
來自
台灣•高雄 
註冊時間
2010-10-22 
最後登錄
2023-3-3 

論壇贊助勳章
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-4-3 14:15 | 只看該作者

[期指即時趨勢]請版大Excel高手們賜教；

[期指即時趨勢]請版大Excel高手們賜教；
如何能每分鐘，登錄[主力控盤][趨勢]值計算。
[趨勢]欄是每分鐘會更新→偵測到變動→登錄。
謝謝賜教~~

0402.jpg (88.52 KB)

0402.jpg

收藏 分享
50 字節以內
不支持自定義 Discuz! 代碼

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
2#
發表於 2012-4-3 14:28 | 只看該作者
你可以參考 Excel 程式集->盤中 DDE 存檔與 VBA 的實際應用範例
依你個人需求稍加修改變成為你實用的 VBA 程式了。

TOP

cfuxiong

帖子
93 
主題
18 
精華
0 
積分
111 
點名
0  
作業系統
XP 
軟體版本
OFFICE 
閱讀權限
20 
性別
男 
來自
台灣•高雄 
註冊時間
2010-10-22 
最後登錄
2023-3-3 

論壇贊助勳章
3#
發表於 2012-4-3 15:23 | 只看該作者
回復 2# c_c_lai
感謝回應，我試看看...謝謝!!
50 字節以內
不支持自定義 Discuz! 代碼

TOP

cfuxiong

帖子
93 
主題
18 
精華
0 
積分
111 
點名
0  
作業系統
XP 
軟體版本
OFFICE 
閱讀權限
20 
性別
男 
來自
台灣•高雄 
註冊時間
2010-10-22 
最後登錄
2023-3-3 

論壇贊助勳章
4#
發表於 2012-4-11 10:23 | 只看該作者
回復 2# c_c_lai
c_c_lai大大：你好
摸索多日《盤中 DDE 存檔與 VBA 的實際應用範例》
進不了狀況，今附上檔案，懇請不吝指導!謝謝~~

期指即時趨勢.zip (10.57 KB)

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2012-4-11 18:37 | 只看該作者
本帖最後由 GBKEE 於 2012-4-13 06:26 編輯

回復 4# cfuxiong
期指即時.rar (17.22 KB)

你附檔 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
複製代碼

TOP

cfuxiong

帖子
93 
主題
18 
精華
0 
積分
111 
點名
0  
作業系統
XP 
軟體版本
OFFICE 
閱讀權限
20 
性別
男 
來自
台灣•高雄 
註冊時間
2010-10-22 
最後登錄
2023-3-3 

論壇贊助勳章
6#
發表於 2012-4-11 20:47 | 只看該作者
回復 5# GBKEE
GBKEE大大：你好
能否拜託GBKEE大大，因我是Excel生手，正學習中。
請幫我[程式碼複製於 ThisWorkbook 模組裡]給我Zip檔，將感激不盡。謝謝~~
50 字節以內
不支持自定義 Discuz! 代碼

TOP

cfuxiong

帖子
93 
主題
18 
精華
0 
積分
111 
點名
0  
作業系統
XP 
軟體版本
OFFICE 
閱讀權限
20 
性別
男 
來自
台灣•高雄 
註冊時間
2010-10-22 
最後登錄
2023-3-3 

論壇贊助勳章
7#
發表於 2012-4-12 15:55 | 只看該作者
回復 5# GBKEE
開啟[檔案]按[啟用巨集]→會跑出如[圖示]的圖=>請指教如何處理~~謝謝

執行階段錯誤.jpg (14.26 KB)

執行階段錯誤.jpg

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
8#
發表於 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
複製代碼

TOP

loveking53

帖子
3 
主題
0 
精華
0 
積分
3 
點名
0  
作業系統
Windows XP 
軟體版本
Office 2007 
閱讀權限
10 
性別
男 
註冊時間
2012-4-12 
最後登錄
2013-12-3 
9#
發表於 2012-4-12 21:20 | 只看該作者
可否寄來研究看看呢
[email protected]

TOP

cfuxiong

帖子
93 
主題
18 
精華
0 
積分
111 
點名
0  
作業系統
XP 
軟體版本
OFFICE 
閱讀權限
20 
性別
男 
來自
台灣•高雄 
註冊時間
2010-10-22 
最後登錄
2023-3-3 

論壇贊助勳章
10#
發表於 2012-4-12 23:20 | 只看該作者
回復 8# GBKEE
GBKEE大大：你好
是如圖這樣嗎？謝謝更正，但我還是搞不來~~
能幫我生成OK~~Zip檔，我知道這樣是偷懶，但還是拜託GBKEE。
但還是請撥空指導。感激不盡。謝謝~~

編譯錯誤.jpg (103.05 KB)

編譯錯誤.jpg

50 字節以內
不支持自定義 Discuz! 代碼

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
12
返回列表 上一主題