- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 142
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2025-6-12
               
|
本帖最後由 Hsieh 於 2013-5-12 15:51 編輯
回復 18# shy
TOUCHANCE說明- tmpResult = PlaceOrderVB(OrderInfo)
- tmpResult:請宣告為String,接收函式回傳值。
- OrderInfo:請宣告為String,內容為下單字串。
- tmpResult數說明:
- 變數
- 說明
- tmpResult
- 您可以改變變數名稱,當下單失敗時會回傳一組字串存入
複製代碼 所以,不需考慮你DDE程序
你要以D4 作為下單依據- Private Declare Function PlaceOrderVB Lib "TC_Excel_Addin.xll" (ByVal OrderInfo As String) As String
- Option Explicit
- Private Sub Worksheet_calculate()
- Dim tmpResult As String
- Dim OrderInfo_1 As String '下單的參數
- OrderInfo_1 = "" '裡面有個資,所以沒有辦法公開
- '這應該是你下單的參數
- If Range("D4") >= 0 Then
- Application.EnableEvents = False
- tmpResult = PlaceOrderVB(OrderInfo_1) '執行你所謂的下單動作
- MsgBox "Run PlaceOrderVB OK!:" & tmpResult '如果有執行就會出現此警示視窗
- Application.EnableEvents = True
- End If
- End Sub
複製代碼 |
|