123456
返回列表 上一主題 發帖

關於資料比對的寫法

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-7-17 21:12 | 只看該作者

關於資料比對的寫法

資料暫存.rar (54.84 KB)
如果要寫兩個功能1.總量變動就將股價寫入E列
                                2.下次總量再變動時再將E列的資料寫入F列，作這一秒(E列)跟前一秒(F列)的股價作比對
例如：台積電 9:00:00 成交價是100元，先將100寫入E2，之後9:00:10 成交價是101，同時執行將前一秒的100元寫入F2，這一秒的101寫入E2，一直持續下去要如何寫成VBA呢??
還請版上大大幫幫忙，謝謝
收藏 分享

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
59#
發表於 2016-9-13 17:08 | 只看該作者
本帖最後由 藍天麗池 於 2016-9-13 17:09 編輯

回復 57# c_c_lai

http://forum.twbts.com/viewthread.php?tid=18350&extra=

C大，小弟又來跟你請教了，在請C大有空的時候指導小弟一下

TOP

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
58#
發表於 2016-8-2 13:58 | 只看該作者
回復 57# c_c_lai


    c大抱歉，今天早上比較忙，現在才回，目前可以運作了

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
57#
發表於 2016-8-1 16:50 | 只看該作者
回復 56# 藍天麗池
Z1 是前版本留下的暫存欄，在本程式中
是無作用的，可以將它清除。

TOP

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
56#
發表於 2016-8-1 16:11 | 只看該作者
本帖最後由 藍天麗池 於 2016-8-1 16:12 編輯

回復 55# c_c_lai


    改了，剛好也1328，所以要明天才能測試，明天再跟c大報告
z1??
另外最下面那個程式的功能是？？請教一下c大

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
55#
發表於 2016-8-1 15:58 | 只看該作者
回復 54# 藍天麗池
#53 (Range) 的改了嗎？ 我是可以運行的。
但是現已過 13:30 無從測試。

TOP

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
54#
發表於 2016-8-1 13:28 | 只看該作者
本帖最後由 藍天麗池 於 2016-8-1 13:30 編輯

回復 53# c_c_lai


    c大，還是不行欸，照你說的將ar刪除，且做更改也是不行
另外，請教c大，z1那邊有個數字，那個數字的功用是什麼阿？

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
53#
發表於 2016-8-1 13:02 | 只看該作者
回復 52# 藍天麗池
你把 AR 欄資料清除，檔案儲存再從新進來
觀看AR欄有沒有資料。
請將
Private Sub Workbook_Open()
    Dim rng As Variant
修改成
Private Sub Workbook_Open()
    Dim rng As Range
就 OK 了。

TOP

藍天麗池

帖子
364 
主題
39 
精華
0 
積分
404 
點名
0  
作業系統
Win 7 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2012-12-11 
最後登錄
2024-4-18 
52#
發表於 2016-8-1 12:16 | 只看該作者
回復 51# c_c_lai


    c大，ar欄有數字阿！

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
51#
發表於 2016-8-1 11:59 | 只看該作者
回復 50# 藍天麗池
你看看 AR欄有沒有數據？

TOP

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
123456
返回列表 上一主題