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

帖子: 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)

singo1232001

　暱稱: 熱狗慶

帖子: 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

30^#

發表於 2024-1-8 22:42 | 只看該作者

回復 27# Andy2483

Andy，請教一下，我照你的方式改了之後會出現堆疊空間不足的問題，能幫我看一下問題出在哪嗎?

測試.rar (27.44 KB)

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

29^#

發表於 2024-1-7 16:47 | 只看該作者

沒法使用DDE, 只能另寫模擬程序, 套用時要自己去改//

DDE變動記錄-v01.rar (14.95 KB)

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

28^#

發表於 2024-1-7 10:36 | 只看該作者

回復 27# Andy2483

好的，感謝

Andy2483

　暱稱: 厚臉皮的學生

碩士班 Rank: 5 Rank: 5

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

27^#

發表於 2024-1-6 22:20 | 只看該作者

回復 26# 藍天麗池
如果是這種邏輯我覺得
1.A1如果是為了顯示最後的差值，就不要再用公式計算，因爲B1值換位到C1時A1公式值都是0，A1值改由VBA給值
2. VBA裡寫：
如果跳動的B1<>C1,就令A1=B1-C1,再令C1=B1,這樣的方式只有B1變動時if 判斷式才會成立，且A1也不會是0
最後把A1值也填入A欄的第一個空白格

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