[發問] 檔案開啟自動更新外部連線資料，如何在更新完成後自動觸發巨集？

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

14^#

發表於 2022-12-12 17:21 | 只看該作者

回復 10# 准提部林

感謝分享，我再花時間好好研究研究，感恩！

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

13^#

發表於 2022-12-12 17:18 | 只看該作者

回復 9# 准提部林

您好，我不是很清楚DDE是甚麼，我的資料是透過 Oracle驅動程式以ODBC連線方式從資料庫抓取資料，
如前面所提，我另外新增一個工作表，並僅在該工作表設定一個COUNTA的公式，
然後在該工作表透過Private Sub Worksheet_calculate() 來處理，就能避免頻繁觸發的問題了，
謝謝您，問題大致上解決了。

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

12^#

發表於 2022-12-12 17:14 | 只看該作者

回復 8# jackyq

您好，我另外新增一個工作表，並僅在該工作表設定一個COUNTA的公式，
然後在該工作表透過Private Sub Worksheet_calculate() 來處理，就能避免頻繁觸發的問題了，
謝謝您，問題大致上解決了。

帖子: 151
主題: 25
精華: 0
積分: 194
點名: 0
作業系統: WINDOWS 10
軟體版本: Office 2010 或 2021
閱讀權限: 20
性別: 男
註冊時間: 2011-9-6
最後登錄: 2024-11-8

11^#

發表於 2022-12-12 17:13 | 只看該作者

回復 7# singo1232001

您好，我另外新增一個工作表，並僅在該工作表設定一個COUNTA的公式，
然後在該工作表透過Private Sub Worksheet_calculate() 來處理，就能避免頻繁觸發的問題了，
謝謝您，問題大致上解決了。

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

10^#

發表於 2022-12-9 16:34 | 只看該作者

這帖子有幾個範例檔, 參考看看
http://forum.twbts.com/viewthread.php?tid=15062

版主 Rank: 7 Rank: 7 Rank: 7

准提部林

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

9^#

發表於 2022-12-9 16:32 | 只看該作者

1) 檔案是連結外部檔案的公式? 或dde?
2) 公式值有變動與更新是否完成是不同概念
3) 用Worksheet_Calculate的話, 如果公式有很多個, 那可能造成頻繁觸發
4) 除了這個檔案, 是否可能在這檔案其它工作表操作? 甚或同時開啟其它檔案操作?

jackyq

帖子: 323
主題: 6
精華: 0
積分: 313
點名: 0
作業系統: xp
軟體版本: 2k
閱讀權限: 20
性別: 男
註冊時間: 2015-6-24
最後登錄: 2026-1-5

8^#

發表於 2022-12-9 13:15 | 只看該作者

try .......

Private Sub Worksheet_Calculate()

End Sub

singo1232001

　暱稱: 熱狗慶

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

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

7^#

發表於 2022-12-9 12:49 | 只看該作者

回復 6# singo1232001

Thisworkbook內有一段巨集

Private Sub Workbook_Open()
On Error Resume Next
Sheets("啟動中").Name = "已停止"
Sheets("啟動中").Tab.Color = 255
On Error GoTo 0
End Sub

這些刪掉我改完忘了刪

singo1232001

　暱稱: 熱狗慶

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

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

6^#

發表於 2022-12-9 10:59 | 只看該作者

回復 5# jsleee

看你要主動還是被動

主動計時就不靠事件了

定時執行.zip (16.07 KB)