shy

¦^´_ 11# GBKEE

¤j­ô
³o¼Ë¦n¹³¥i¥H¤F
¦ý¬O¤S¦³·sªº°ÝÃD
²{¦bÅܦ¨¤£ºÞ¦³¨S¦³²Å¦X±ø¥ó
³£·|¥h°õ¦æµ{¦¡
µM«á³£·|¥X²{ msgBox "SUCDEDEDSUCEEDED"
®t§O¥u¬O¦b©ó¦³¨S¦³¦Û°Ê¥á³æ(²Å¦X´N·|¦Û°Ê¥á³æ, ¨S¦³²Å¦X´N¨S¦³¥á³æ....)
§Ú¥i¥H§ï¦¨
¨S¦³²Å¦X±ø¥ó==> ¤£°Ê§@
¦³²Å¦X±ø¥ó==> °õ¦æ¥á³æ°Ê§@==> ¤~¦^¶Ç msgBox "SUCDEDEDSUCEEDED"



§Ú¥i¥H½Ð±Ð§A¤@­Ó°ÝÃD¶Ü
§Ú³o­ÓÀɮ׬O¥~±µDDE
§A¨S¦³§Úªº³nÅé
¨º»ò§Ú§âÀɮפW¶Ç¨ì©³¦³¬Æ»ò·N¸q?
¦]¬°¥´¶}«á
³£¬O#N/A, ¤£µM´N¬O#REF!
¦ý¬O§Ú¦³§â§Ú¼gªºµ{¦¡½X§Ë¤W¨Óªü.....
ÁÙ¬O§A¦³¿ìªk¸Ñ¨M¥~±µDDEªº°ÝÃD??

c_c_lai

¦^´_  GBKEE

§Úª¾¹D­n³o¼Ë¤W¶Çªü
¦ý¬O«ö¤F¤W¶Ç«á
·|¥X²{
¹ï¤£°_¡A¤£¤ä«ù¤W¶Ç¦¹ÃþÂX®i¦Wªºªþ¥ó¡C
³o ...
shy µoªí©ó 2013-5-9 12:13

§A¥²¶·¥ý±N¬ÛÃöÀɮ׶°¤¤¡AµM«á¥þÀ£ÁY¦¨ .rar (¨Ï¥Î Winrar.exe) ÀɮסA
¤~¥i¥H¤W¶Ç ( .rar ÀÉ®×)¡C

GBKEE

¦^´_ 10# shy
¨S¦³ÀÉ®×¥u¦n¥Î²qªº
Private Sub Worksheet_Calculate()  '¹w³]¤u§@ªíIJ°Ê¨Æ¥ó:   ¤u§@ªí­«ºâ¨Æ¥ó
³oµ{§Ç½X¶·¬O¦b DEE ¤½¦¡©Ò¦b¤u§@ªí¼Ò²Õ¤¤

¤U¸ü (29.63 KB)

2013-5-9 13:18

shy

¦^´_ 9# GBKEE

sorry
¬Otrue¤~¹ï

©Ò¥H¬O³o¼Ë??

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
tmpResult = ""

OrderInfo_1 = "" ' ¸Ì­±¬O­Ó¸ê, ¤U³æªº³]©w
tmpResult = PlaceOrderVB(OrderInfo_1)
MsgBox tmpResult

Application.EnableEvents = False

If Range("D4") >= 0 Then
PlaceOrderVB (OrderInfo_1)

End If

Application.EnableEvents =true

End Sub


ÁÙ¬O¤£·|¦Û¤v°Ê....

GBKEE

¦^´_ 8# shy
¤£¬O ture ¬O TRUE

shy

¦^´_ 6# GBKEE

Åܦ¨³o¼Ë??
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
tmpResult = ""

OrderInfo_1 = "" ' ¸Ì­±¬O­Ó¸ê, ¤U³æªº³]©w
tmpResult = PlaceOrderVB(OrderInfo_1)
MsgBox tmpResult

Application.EnableEvents = False

If Range("D4") >= 0 Then
PlaceOrderVB (OrderInfo_1)

End If

Application.EnableEvents =ture

End Sub

shy

¦^´_ 6# GBKEE

§Úª¾¹D­n³o¼Ë¤W¶Çªü
¦ý¬O«ö¤F¤W¶Ç«á
·|¥X²{
¹ï¤£°_¡A¤£¤ä«ù¤W¶Ç¦¹ÃþÂX®i¦Wªºªþ¥ó¡C
³o¼Ëªº¦r...

GBKEE

¦^´_ 5# shy
2# µ{¦¡¤¤§A­n«ì´_£«
09.    Application.EnableEvents = True
17.    Application.EnableEvents = True

¤U¸ü (25.04 KB)

2013-5-9 11:47

shy

¦^´_ 4# GBKEE

§Ú¨S¦³¿ìªk¤W¶ÇÀÉ®×
¦n©Ç³á

§Ú¶K§Ú¼gªº

        A                 B                   C                  D
1   ¥N½X           °Ó«~            ¦¨¥æ            ¬Q¦¬
2   2330          ¥x¿n¹q           115.5           114.5
3                       
4                                                                             1

§Ú¥´¦bthis workbook

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
tmpResult = ""

OrderInfo_1 = "" ' ¸Ì­±¬O­Ó¸ê, ¤U³æªº³]©w
tmpResult = PlaceOrderVB(OrderInfo_1)
MsgBox tmpResult

Application.EnableEvents = False

If Range("D4") >= 0 Then
PlaceOrderVB (OrderInfo_1)

End If


End Sub

GBKEE

¦^´_ 3# shy
½Ð§A¤W¶ÇÀɮפ~²M·¡°ÝÃDÄpµ²