返回列表 上一主題 發帖

excel VBA calculate 的疑問

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
86  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-4-10 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
1# 跳轉到 »
發表於 2013-5-11 23:27 | 顯示全部帖子
本帖最後由 Hsieh 於 2013-5-12 15:51 編輯

回復 18# shy
TOUCHANCE說明
  1. tmpResult = PlaceOrderVB(OrderInfo)
  2. tmpResult：請宣告為String，接收函式回傳值。
  3. OrderInfo：請宣告為String，內容為下單字串。
  4. tmpResult數說明：
  5. 變數
  6. 說明
  7. tmpResult
  8. 您可以改變變數名稱，當下單失敗時會回傳一組字串存入
複製代碼
所以，不需考慮你DDE程序
你要以D4 作為下單依據
  1. Private Declare Function PlaceOrderVB Lib "TC_Excel_Addin.xll" (ByVal OrderInfo As String) As String
  2. Option Explicit

  4. Private Sub Worksheet_calculate()

  6. Dim tmpResult As String
  7. Dim OrderInfo_1 As String  '下單的參數

  9. OrderInfo_1 = "" '裡面有個資,所以沒有辦法公開
  10. '這應該是你下單的參數

  12. If Range("D4") >= 0 Then
  13. Application.EnableEvents = False
  14. tmpResult = PlaceOrderVB(OrderInfo_1) '執行你所謂的下單動作
  15. MsgBox "Run PlaceOrderVB OK!：" & tmpResult  '如果有執行就會出現此警示視窗
  16. Application.EnableEvents = True
  17. End If
  18. End Sub
複製代碼
學海無涯_不恥下問

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
86  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2025-4-10 

2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2013-5-12 20:43 | 顯示全部帖子
回復 20# shy
以上程式碼以邏輯來看，開啟檔案會執行重算沒錯，會觸發Worksheet_Calculate程序
在程序內判斷D4是否符合條件而判斷是否執行送單動作
接下來當DDE收到更新後都會觸發Worksheet_Calculate
但是，若D4結果不符合條件也不該有送單動作
而且每次送單後都應該會出現對話方塊才對
實在看不出哪個環節出錯?
學海無涯_不恥下問

TOP

        靜思自在 : 君子立恆志，小人恆立志。
返回列表 上一主題