請問此功能有其他的方式解決嗎?

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

31^# 跳轉到 »

發表於 2024-1-9 08:05 | 只看該作者

回復 11# singo1232001

修正一堆bug
可以玩玩
excel 跟acces 須放在同資料夾下

變動紀錄v2.zip (226.46 KB)
1.啟動匯入access紀錄
2.啟動模擬DDE
3.查詢資料可以根據語法表查詢列出不同的資料

藍天麗池

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

32^#

發表於 2024-1-9 08:34 | 只看該作者

回復 29# 准提部林

感謝前輩回復，但我開這帖主要是想了解不記錄原始資料去求差的方式，但看前輩的程式好像也是要將資料來源記錄下來再去做運算
另外，我有試著修改我的程式，但出現堆疊空間不足的訊息，能請前輩幫忙看看是哪裡出問題嗎?

測試.rar (27.44 KB)

　暱稱: 厚臉皮的學生

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-11-28

33^#

發表於 2024-1-9 10:38 | 只看該作者

本帖最後由 Andy2483 於 2024-1-9 11:12 編輯

回復 30# 藍天麗池

可能是數據變動太快運算不及
實際需求是幾秒要記錄一次?
間隔時間到才運算

Option Explicit
Private Sub Worksheet_Calculate()
If Val(Format([A1], "SS")) Mod 3 = 0 Then'間隔3秒
Call RecordPrice
Call Price
End If
End Sub

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

singo1232001

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

34^#

發表於 2024-1-9 12:32 | 只看該作者

本帖最後由 singo1232001 於 2024-1-9 12:34 編輯

回復 31# singo1232001

變動紀錄v3.zip (271.37 KB)

因為excel 會卡
所以對於dde 我都只用access (就算用上arraylist 一樣卡)
先玩玩看這版超好玩

顯示筆數那裏可能要按兩次

singo1232001

　暱稱: 熱狗慶

帖子: 354
主題: 5
精華: 0
積分: 387
點名: 0
作業系統: windows7
軟體版本: vba,vb,excel2007
閱讀權限: 20
性別: 男
註冊時間: 2017-1-8
最後登錄: 2024-8-2

論壇榮譽勳章論壇贊助勳章

35^#

發表於 2024-1-9 12:38 | 只看該作者

本帖最後由 singo1232001 於 2024-1-9 12:39 編輯

回復 33# Andy2483

dde 快的時候很快 1秒3~5次
慢的時候很慢 1分鐘2~3次

平均一分鐘20~30次
一小時800~1500次
一早盤約3000~5000次

　暱稱: 厚臉皮的學生

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-11-28

36^#

發表於 2024-1-9 13:23 | 只看該作者

回復 35# singo1232001

謝謝前輩
羨慕前輩可以有很多軟體可以學習,後學不懂DDE,只是趁此機會多學習

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

藍天麗池

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

37^#

發表於 2024-1-9 13:36 | 只看該作者

回復 33# Andy2483

需要隨時記錄，我主要是要紀錄f14-f18，k14-k18
有其他的寫法可以有同樣的效果嗎？

　暱稱: 厚臉皮的學生

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-11-28

38^#

發表於 2024-1-9 16:14 | 只看該作者

回復 37# 藍天麗池

好難!猜著改改看

測試_20240109.zip (27.46 KB)

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流

藍天麗池

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

39^#

發表於 2024-1-9 20:28 | 只看該作者

本帖最後由藍天麗池於 2024-1-9 20:40 編輯

回復 38# Andy2483

剛剛試了一下可以運作，但不知道紀錄的量會不會有誤差，要明天測試才知道
這個程式碼主要的功用是啥啊?加上去就能運作了，好酷Application.EnableEvents = False
Andy有空能跟我解釋一下Application.EnableEvents = False的功用嗎?

　暱稱: 厚臉皮的學生

帖子: 1446
主題: 40
精華: 0
積分: 1470
點名: 0
作業系統: Windows 7
軟體版本: Excel 2010 & 2016
閱讀權限: 50
性別: 男
來自: 台灣
註冊時間: 2020-7-15
最後登錄: 2024-11-28

40^#

發表於 2024-1-9 20:56 | 只看該作者

回復 39# 藍天麗池
1.會不會有誤差不知道,後學只試著讓執行，裡面的邏輯計算沒研究
2.兩個副程式對調
3.Application.EnableEvents = False 是為了不讓執行的過程連續再觸發

用行動裝置瀏覽論壇學習很方便,謝謝論壇經營團隊
請大家一起上論壇來交流