excel VBA calculate 的疑問

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2013-5-8 13:03 | 顯示全部帖子

回復 1# shy

Option Explicit
Private Sub Worksheet_Calculate() '工作表重算事件
'主動改A1(改為101)的值之後: A1沒有=公式不會啟動 [工作表重算事件]
'如A1=公式公式的值有變動會啟動 [工作表重算事件]
Application.EnableEvents = False
'程式碼.(修改到工作表公式參照到的儲存格)...... '當沒有 Application.EnableEvents = False'會一直送單送個不停
'程式碼.(修改到工作表公式參照到的儲存格)......
'程式碼.......
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range) '工作表內容有變動事件
'主動改A1(改為101)的值之後: A1沒有=公式會啟動 [工作表內容有變動事件]
Application.EnableEvents = False
'程式碼..(有修改到工作表的內容).... '當沒有 Application.EnableEvents = False'會一直送單送個不停
'程式碼..(有修改到工作表的內容)....
'程式碼..(有修改到工作表的內容)....
Application.EnableEvents = True
End Sub

複製代碼

EnableEvents 屬性
請參閱套用至範例特定如果指定物件能觸發事件，則本屬性為 True。讀/寫 Boolean。
本範例會在儲存檔案之前停用事件，從而使 BeforeSave 事件不會發生。
Application.EnableEvents = False
ActiveWorkbook.Save
Application.EnableEvents = True

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-5-9 10:43 | 顯示全部帖子

回復 3# shy
請你上傳檔案才清楚問題癥結

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2013-5-9 11:47 | 顯示全部帖子

回復 5# shy
2# 程式中你要恢復ㄚ
09. Application.EnableEvents = True
17. Application.EnableEvents = True

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2013-5-9 12:27 | 顯示全部帖子

回復 8# shy
不是 ture 是 TRUE

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2013-5-9 13:13 | 顯示全部帖子

本帖最後由 GBKEE 於 2013-5-9 13:19 編輯

回復 10# shy
沒有檔案只好用猜的
Private Sub Worksheet_Calculate() '預設工作表觸動事件: 工作表重算事件
這程序碼須是在 DEE 公式所在工作表模組中

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2013-5-11 13:27 | 顯示全部帖子

回復 13# shy
Q:現在變成不管有沒有符合條件,都會去執行程式,然後都會出現 msgBox "SUCDEDEDSUCEEDED"

Private Sub Worksheet_calculate()
'DEE 數值有變動會執行此程式 ********
Dim tmpResult As String
Dim OrderInfo_1 As String
tmpResult = ""
OrderInfo_1 = "" ' 裡面是個資, 下單的設定
tmpResult = PlaceOrderVB(OrderInfo_1)
'***************
MsgBox tmpResult '當然都會出現 msgBox "SUCDEDEDSUCEEDED"
'*************************
Application.EnableEvents = False
If Range("D4") >= 0 Then '這是你說的符合條件嗎??
PlaceOrderVB (OrderInfo_1)
MsgBox tmpResult '如果你程式碼置於此符合條件才會 msgBox "SUCDEDEDSUCEEDED"
End If
Application.EnableEvents = ture
End Sub

複製代碼

Q 我這個檔案是外接DDE,你沒有我的軟體,那麼我把檔案上傳到底有甚麼意義?

10#  Application.EnableEvents =true  ,還是不會自己動....
10#你的回覆:對我還是唰無帳.....

11# 沒有檔案只好用猜的
   Private Sub Worksheet_Calculate()  '預設工作表觸動事件: 工作表重算事件
   這程序碼須是在 DEE 公式所在工作表模組中
請問我11#這回覆對你有幫助嗎??? 如有那把檔案上傳就不必瞎子摸象!!!

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2013-5-11 16:23 | 顯示全部帖子

本帖最後由 GBKEE 於 2013-5-12 18:58 編輯

回復 16# shy

Private Declare Function PlaceOrderVB Lib "TC_Excel_Addin.xll" (ByVal OrderInfo As String) As String
Option Explicit
Private Sub Worksheet_calculate()
'Static 陳述式在程序層次中用來宣告變數並配置儲存空間。以 Static 陳述式宣告的變數，在程式執行期間，會一直保留內容。
'Boolean 資料型態 Boolean 變數係以 16 位元( 2 個位元組)數字的形式儲存，但只能是 True 或是 False。Boolean 變數的值不是 True 就是 False
Static Msg(1 To 2) As Boolean '程式一開始執行時,預設值為 False
Dim tmpResult As String
Dim OrderInfo_1 As String
Application.EnableEvents = False
'**********DEE的內容在這裡執行的用意....???
tmpResult = ""
OrderInfo_1 = "" '裡面有個資,所以沒有辦法公開
tmpResult = PlaceOrderVB(OrderInfo_1)
'***************************************
'*********猜猜你的想法: 符合條件一次=> 只執行一次
If Range("D4") >= 0 And Msg(1) = False Then
'執行一次後: "D4" 一直是 >= 0,不再執行直到 "D4" < 0 後在次執行
Msg(1) = True '一直是 >= 0
Msg(2) = False ' < 0 可執行
'******** 請看圖示 *********************
'程式執行期間，一直保留 Msg(1) = True
'除非...程式重新執行: 程式預設值為 False
'****************************************
PlaceOrderVB (OrderInfo_1)
' MsgBox tmpResult 執行自動下單(有沒有出現msgbox沒有關係..)
ElseIf Range("D4") < 0 And Msg(2) = False Then '符合條件一次=> 只執行一次
'執行一次後: 如"D4" 一直是 < 0,不再執行直到 "D4" >= 0 後在次執行
Msg(1) = False '>= 0 可執行
Msg(2) = True '一直是 < 0
PlaceOrderVB (OrderInfo_1)
' MsgBox tmpResult 執行自動下單(有沒有出現msgbox沒有關係..)
End If
Application.EnableEvents = True
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2013-5-12 17:26 | 顯示全部帖子

本帖最後由 GBKEE 於 2013-5-12 19:28 編輯

回復 18# shy
Q: 就是不管Range("D4") 是不是>=0 都會自動送單
是我程式沒寫好
17# 30. ElseIf Range("D4") > 0 And Msg(2) = False Then  '符合條件一次=> 只執行一次
須改為 ElseIf Range("D4") < 0 And Msg(2) = False Then
Q:你有需要說明書嗎?
去瀏覽一下寫的很清楚:  使用Excel收取委託回報,使用Excel查詢帳務兩節  不是你問的問題嗎!!!

回復 22# shy
只要工作表中的儲存格有公式:例 =A1+C1,且這工作表模組有Sub Worksheet_Calculate()程序
檔案開啟後,每一工作表的 Sub Worksheet_Calculate()程序,都會執行一次

Private Sub Worksheet_Calculate() '活頁簿中每一工作表的重算事件中
Stop '請加上後存檔,再開檔案
'***程式執行到此可按 F8 一行,一行..的執行程式碼試試看.********
'程式碼....
'程式碼....
'程式碼....
'程式碼....
End Sub

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

9^#

發表於 2013-5-13 14:16 | 顯示全部帖子

回復 26# shy
基本概念:工作表上的DEE公式變動一次,執行Sub Worksheet_Calculate() 一次.

Q 但是EXCEL還是一直在執行             ->股市營業中 : 工作表上的DEE公式會有變動對嗎?

Q 但之後理論上應該不會再執行送單了    ->工作表上的DEE公式有一個以上對嗎?

Q 間隔20秒會是EXCEL的問題嗎?             ->股市營業中,會每秒每分都有交易嗎?

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2013-5-13 20:31 | 顯示全部帖子

回復 28# shy
基本概念:工作表上的公式傳回的數值變動一次,執行Sub Worksheet_Calculate() 一次.
你說工作表上的DDE公式不會有變動: 是公式沒變動,且公式傳回的數值也都不變嗎? (那股市在營業時間中有在交易嗎?)
你說工作表上每個儲存格都只有對應一個DDE公式? 那這工作表上不是有許多儲存格有公式嗎?(不只一個公式對嗎)

17# 的程式碼已修正好,再試一次看看

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

TOP

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]