變動紀錄的程式

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

2^#

發表於 2016-3-21 23:18 | 顯示全部帖子

回復 3# jackyq

大大你好厲害，另外再請教你一個問題，如果目前是將A2-C2的資料往下寫，改成把資料放在C2-E2然後往下寫要怎麼改程式碼??
就是將圖一改成圖二，上圖不是改好的，是我用拉的

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

3^#

發表於 2016-3-22 08:30 | 顯示全部帖子

本帖最後由藍天麗池於 2016-3-22 08:43 編輯

回復 5# jackyq

J大，裡面的(DDE_總量)，是要用甚麼替換嗎，我看不太懂是甚麼意思??
可以幫我說明一下嗎??
我原附件裡面沒有這個東西，感謝你喔

測試後沒有動作

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

4^#

發表於 2016-3-22 08:58 | 顯示全部帖子

本帖最後由藍天麗池於 2016-3-22 09:05 編輯

回復 7# jackyq
C大我了解了，感謝妳我試試看
可是用你的版本我測試是沒有動作的

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

5^#

發表於 2016-3-22 09:13 | 顯示全部帖子

回復 9# jackyq

這個，我甚麼都沒改
Sub RecordPrice()
Dim WR As Long
Dim I As Byte

Excel.Application.EnableEvents = 0

Dim DDE_總量 As Range
Set DDE_總量 = Range("D2")

If IsError(DDE_總量.Value) Then Exit Sub
If DDE_總量.Value <= 0 Then Exit Sub

WR = DDE_總量.CurrentRegion.Row + DDE_總量.CurrentRegion.Rows.Count
'ActiveWindow.ScrollRow = WR - 5 '只顯示最新幾筆資料
If (WR = 3) Or _
(Cells(WR - 1, DDE_總量.Column) <> DDE_總量.Value) Then '總量有異動時才記錄
Cells(WR, DDE_總量.Column).Offset(, -1).Resize(, 3).Value = _
DDE_總量.Offset(, -1).Resize(, 3).Value
End If

Excel.Application.EnableEvents = 1
End Sub

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

6^#

發表於 2016-3-22 09:22 | 顯示全部帖子

除錯 - 複製.rar (35.1 KB) 回復 11# jackyq

請大大看看

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

7^#

發表於 2016-3-22 09:43 | 顯示全部帖子

回復 13# jackyq

還是不行

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

8^#

發表於 2016-3-22 10:24 | 顯示全部帖子

本帖最後由藍天麗池於 2016-3-22 10:27 編輯

回復 16# jackyq

123.rar (329.21 KB)
J大其實我是要將附件裡面的東西整合在一起，裡面有群益的API，我是要擷取資料，但因為群益在加權的資料有誤，所以加權的部分改用變動紀錄的方式抓取
但是我將程式結合之後去無法執行了，想請J大幫我看看，要怎麼更改，更新的部分要維持原本的2秒更新一次才行，感謝大大

J大不好意思這樣麻煩你

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

9^#

發表於 2016-3-22 11:32 | 顯示全部帖子

本帖最後由藍天麗池於 2016-3-22 11:34 編輯

回復 18# jackyq

大大，這個是改好的嗎??
我是要讓資料都出現在sheet4，後面多個加權DDE是??
不太懂大大的意思

帖子: 365
主題: 40
精華: 0
積分: 406
點名: 0
作業系統: Win 7
軟體版本: OFFICE 2003
閱讀權限: 20
註冊時間: 2012-12-11
最後登錄: 2024-8-24

10^#

發表於 2016-3-22 11:44 | 顯示全部帖子

本帖最後由藍天麗池於 2016-3-22 11:50 編輯

回復 20# jackyq
是沒錯，但是可以同時執行嗎??
sheet4執行API,sheet5執行抓價格??
可是我剛剛試過sheet5沒動作
所以J大，我的檔案無法整合在同一個sheet嗎??
因為我到時候還會做一些運算，所以整合在同sheet裡面會比較好