Hsieh

回復 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
   
3. 
   
4. Private Sub Worksheet_calculate()
   
5. 
   
6. Dim tmpResult As String
   
7. Dim OrderInfo_1 As String  '下單的參數
   
8. 
   
9. OrderInfo_1 = "" '裡面有個資,所以沒有辦法公開
   
10. '這應該是你下單的參數
    
11. 
    
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

複製代碼

Hsieh

回復 20# shy
以上程式碼以邏輯來看，開啟檔案會執行重算沒錯，會觸發Worksheet_Calculate程序
在程序內判斷D4是否符合條件而判斷是否執行送單動作
接下來當DDE收到更新後都會觸發Worksheet_Calculate
但是，若D4結果不符合條件也不該有送單動作
而且每次送單後都應該會出現對話方塊才對
實在看不出哪個環節出錯?