Hsieh

¦^´_ 10# leefing

DDE³sµ²ÅÜ°Ê¡A¥u¯àIJµo Worksheet_Calculate¨Æ¥ó

Hsieh

¦^´_ 12# kobo

EXCEL¤¤¬O§Q¥ÎWorksheet_Calculate¨Æ¥ó
³z¹LSetLinkOnData ¤èªk¨ÓÅX°Ê©Ò­n°õ¦æªºµ{§Ç
©Ò¥HÁÙ¬O³z¹LCalculate¨Ó®·®»DDEªº§ïÅÜ

Hsieh

¦^´_ 16# leefing
§Ú¥u¦³yeswin¸Õ¥Îª©
°²³][J12]ªºDDE³sµ²¤½¦¡=YES|DQ!EXFB2.Volume
´£¨Ñ§A´ú¸Õ¬Ý¬Ý
¦bSheet1¼Ò²Õ¼W¥[Worksheet_Calculateµ{§Ç

1. Private Sub Worksheet_Calculate()
   
2. ThisWorkbook.SetLinkOnData "YES|DQ!EXFB2.Volume", "Catch_DDE"
   
3. End Sub

½Æ»s¥N½X

¦b¤@¯ë¼Ò²Õ

1. Sub Catch_DDE()
   
2. MsgBox "J1¼Æ­ÈÅÜ°Ê"  '¦¹¦æ´ú¸Õ¬O§_J12ªºDDE§ó·s¡A¥i¨ú®ø
   
3. With Sheet1
   
4. If .[J12].Value >= 10 Then
   
5.    If .[D12] = .[F12] Then .[U12] = .[U12] + .[J12]
   
6.    If .[E12] = .[F12] Then .[T12] = .[T12] + .[J12]
   
7. End If
   
8. End With
   
9. End Sub
   
10. 
    
11. Sub Auto_Open() '¶}Àɮɦ۰ʰõ¦æ
    
12. With Sheet1
    
13. .[U12:T12] .ClearContents
    
14. End With
    
15. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 18# leefing
³o¥i¯à¬O¶}±ÒÀɮ׮ɡADDEÁÙ¨S³s¤W®É¡A[J12]¥X²{#N/Aªº¿ù»~©Ò­P
Sub Catch_DDE()
MsgBox "J1¼Æ­ÈÅÜ°Ê"  '¦¹¦æ´ú¸Õ¬O§_J12ªºDDE§ó·s¡A¥i¨ú®ø
With Sheet1
If IsError(.[J12]) Then Exit Sub
If .[J12].Value >= 10 Then
   If .[D12] = .[F12] Then .[U12] = .[U12] + .[J12]
   If .[E12] = .[F12] Then .[T12] = .[T12] + .[J12]
End If
End With
End Sub

Hsieh

¦^´_ 20# leefing

¥»¤H¨ÃµLDDE¹ê»Ú¸gÅç¡A¨Ì¾Úkoboªº¸gÅç
ª½±µ©ó¶}ÀÉ»PÃöÀɨϥÎSetLinkOnData¤èªk´N¥i¹F¨ì¦Û°Ê¤Æ¤F

1. Sub Catch_DDE()
   
2. '³æ¶q10¡AµM«á¦¨¥æ=¶R¶i¡A©Ò¥H"ªÅ"¤U­±¨º¤@®æ¥X²{10
   
3. If IsError([J12]) Then Exit Sub  '³æ¶q³sµ²¿ù»~´N°±¤î­pºâ
   
4. If [J12] >= 10 Then  '³æ¶q10¥H¤W°õ¦æ
   
5.    If [D12] = [F12] Then [U12] = [U12] + [J12]
   
6.    If [E12] = [F12] Then [T12] = [T12] + [J12]
   
7. End If
   
8. End Sub
   
9. 
   
10. Sub auto_open()
    
11. ThisWorkbook.SetLinkOnData "YES|DQ!EXFB2.Volume", "Catch_DDE"  '±Ò°ÊSetLinkOnData¤èªk
    
12. End Sub
    
13. 
    
14. Sub auto_close()
    
15. ThisWorkbook.SetLinkOnData "YES|DQ!EXFB2.Volume", ""   'Ãö³¬SetLinkOnData¤èªk
    
16. End Sub

½Æ»s¥N½X