[¤À¨É] ½L¤¤ DDE ¦sÀÉ»P VBA ªº¹ê»ÚÀ³¥Î½d¨Ò

c_c_lai

¶K¤W½L¤¤ DDE ¦sÀÉ»P VBA ªº¹ê»ÚÀ³¥Î½d¨Ò¡A¨Ñ¤j®a°Ñ¦ÒÀ³¥Î (¬è¯à´¶´ç²³¥Í)
³o¤]¬O¤@¯ë¤H¦b¹ê°È¹B¥Î¤W±`¸I¨ìªº°ÝÃDª¼ÂI¡A»P¨ä­W«ä§x´b¤£ª¾¦p¦ó°_µ§
¤£¦p¤À¨É©Òª¾¨Ï¤HÁŵM¹y®©¡C
§Æ±æ¤j®a¥H«á³£¯à¦¨¬°°ª¤H¡A¨Ã¬è«ü¾É«ü¥¿¡I
½L¤¤ DDE ¦sÀɪº¹ê»ÚÀ³¥Î½d¨Ò.rar (1.11 KB)

¤U¸ü¦¸¼Æ: 174

2012-3-29 12:54

c_c_lai

§Ú®tÂI§Ñ¤F»P§Ú¾Ö¦³¤p¾Ç¥Íµ¥¯Åªº¦P¾Ç­Ì¬OµLªk¤U¸üªþ¥óªº¡A
©Ò¥H§Ú¤S±N¥¦ª½±µ¶K¤F¥X¨Ó¡A¤è«K¤j®a¾\Äý¡C

1. ' ½L¤¤ DDE ¦sÀɪº¹ê»ÚÀ³¥Î½d¨Ò
   
2. 
   
3. Option Explicit
   
4. 
   
5. Dim actEnabled As Boolean
   
6. Dim index As Single
   
7. 
   
8. Private Sub Workbook_Open()
   
9.     If (Sheets("¤u§@ªí1").Range("AA1").Value = "") Then Sheets("¤u§@ªí1").Range("AA1").Value = "08:45:00"   ' °²³]AA1Äæ¦ì¬°ªÅ¥Õ¡A«h¼g¤J¶}½L°_©l®É¶¡
   
10.     If (Sheets("¤u§@ªí1").Range("AA2").Value = "") Then Sheets("¤u§@ªí1").Range("AA2").Value = "13:45:59"   ' AA2Äæ¦ì¥ç¦P¡C(¦¹¨âÄæ¬ö¿ý°_©l²×¤î®É¶¡)
    
11.     If (Sheets("¤u§@ªí1").Range("AA3").Value = "") Then Sheets("¤u§@ªí1").Range("AA3").Value = 0            ' ¬ö¿ý³Ì«á¸ê®Æ¶×¤J¤§¦C¸¹ (Rows)¡C
    
12.     If (Sheets("¤u§@ªí1").Range("AA4").Value = "") Then Sheets("¤u§@ªí1").Range("AA4").Value = "00:00:10"   ' ¬ö¿ý¸ê®Æ¶×¤J¬Û¹j®É¶¡¡A¦p¨C¹j¤Q¬í¼g¤J¤@¦¸¡C
    
13. 
    
14.     If (TimeValue(Now) > Sheets("¤u§@ªí1").Range("AA2").Value) Then       ' ¦pªG¥Ø«e®É¶¡·~¤w¶W¹LAA2ªº®É¬q¡A«h©I¥s.......
    
15.         Call stopProcedure
    
16.     Else                                                                  ' ¤Ï¤§¡A«h©I¥s.......
    
17.         Call startProcedure
    
18.     End If
    
19. End Sub
    
20. 
    
21. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
22.     On Error Resume Next
    
23.     Call actStop
    
24. End Sub
    
25. 
    
26. 
    
27. Private Sub startProcedure()       ' «O¯d§@¬°±±¨î¶µ¤§À³¥Îµ{§Ç¡A¦p«ö¶s¤§¥¨¶°À³¥Îµ¥¡C
    
28.     Call actStart
    
29. End Sub
    
30. 
    
31. Private Sub stopProcedure()        ' «O¯d§@¬°±±¨î¶µ¤§À³¥Îµ{§Ç¡A¦p«ö¶s¤§¥¨¶°À³¥Îµ¥¡C
    
32.    Call actStop
    
33. End Sub
    
34. 
    
35. Sub Starter()
    
36.     If (actEnabled = True And TimeValue(Now) >= Sheets("¤u§@ªí1").Range("AA1").Value And TimeValue(Now) <= Sheets("¤u§@ªí1").Range("AA2").Value) Then
    
37.         index = Sheets("¤u§@ªí1").Range("AA3").Value
    
38. 
    
39.         If (Index = 0) Then Call newTitle  '°²³]newTitleµ{§Ç(¥Ñ¨Ï¥ÎªÌ¦Û¦æ©w¸q)¬O±N²Ä¤@¦Cªº¸ê®Æ©ïÀY¦WºÙ¼g¤J¨ì¤u§@ªí2¡C ¦p¡G¤é´Á¡B®É¶¡¡BR1C5ªº¹ïÀ³Äæ¦ì¸ê®Æµ¥¡C
    
40. 
    
41.         Sheets("¤u§@ªí1").Range("AA3").Value = index + 1       ' ¬ö¿ý¦C¸¹¥[¤@¡C
    
42.         Sheets("¤u§@ªí2").Cells(index + 2, 1).Value = Date
    
43.         Sheets("¤u§@ªí2").Cells(index + 2, 2).Value = TimeValue(Now)
    
44.         ' Sheets("¤u§@ªí2").Cells(index + 2, 3).Value = Sheets("¤u§@ªí1").Cells(1, 5).Value
    
45.         '
    
46.         ' ½Æ»s±q¨é°ÓDDE¶×¤J¤§¬Û¹ïÀ³¦ì¸m¸ê®Æ¡A¦p R1C5 ¹ïÀ³ªº¥i¯à¬O¦¬½L»ùµ¥µ¥¡C
    
47.         '
    
48.     End If
    
49. End Sub
    
50. 
    
51. 
    
52. Sub onStarter()
    
53.     Call Starter
    
54.     If actEnabled Then Call actStart
    
55. End Sub
    
56. 
    
57. Sub actStart()
    
58.     actEnabled = True
    
59.     Application.OnTime (Now + Sheets("¤u§@ªí1").Range("AA4").Value), "ThisWorkBook.onStarter"   ' ¼g¤J¸ê®Æªº±Æµ{ (¥Ø«e¬O¨C¹j¤Q¬í¼g¤J¤@¦¸)
    
60. End Sub
    
61. 
    
62. Sub actStop()
    
63.     actEnabled = False
    
64. 
    
65.     On Error Resume Next
    
66.     Application.OnTime Now, "ThisWorkBook.onStarter", , False
    
67. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 3# ajagow
³o­Ó¼Ò²Õ¦®¦b´£¨Ñ§A¦p¦ó¦b¹ê°È¤W¼¶¼g¤@­ÓÄÝ©ó§A­Ó¤Hªºµ{¦¡½X½d¨Ò¡A
¥¦ªº½T¬O¤@²Õ¯uªºµ{¦¡¼Ò²Õ¡A§A¥u¬O§â¹ïÀ³ªºÄæ¦ì¥[¥H­×¹¢¡A¦A¥[¤W§A­Ó¤Hªº«ä¦Ò¼Ò¦¡¥[¥H®M¤J²Õ¦X¡A
´N¦¨¤F§A©Ò»Ý­nªº§¹¾ã¤§µ{¦¡½X¤F¡C
§Ú¦A§â¥¦¶K¤@¦¸¡Aµ{¦¡½X½Ð½Æ»s¨ì ThisWorkbook ¤º¡Aª½±µ½sĶ¤]µL°ÝÃDªº¡C

1. ' ½L¤¤ DDE ¦sÀɪº¹ê»ÚÀ³¥Î½d¨Ò
   
2. 
   
3. Option Explicit
   
4. 
   
5. Dim actEnabled As Boolean
   
6. Dim index As Single
   
7. 
   
8. Private Sub Workbook_Open()
   
9.     If (Sheets("¤u§@ªí1").Range("AA1").Value = "") Then Sheets("¤u§@ªí1").Range("AA1").Value = "08:45:00"   ' °²³]AA1Äæ¦ì¬°ªÅ¥Õ¡A«h¼g¤J¶}½L°_©l®É¶¡
   
10.     If (Sheets("¤u§@ªí1").Range("AA2").Value = "") Then Sheets("¤u§@ªí1").Range("AA2").Value = "13:45:59"   ' AA2Äæ¦ì¥ç¦P¡C(¦¹¨âÄæ¬ö¿ý°_©l²×¤î®É¶¡)
    
11.     If (Sheets("¤u§@ªí1").Range("AA3").Value = "") Then Sheets("¤u§@ªí1").Range("AA3").Value = 0            ' ¬ö¿ý³Ì«á¸ê®Æ¶×¤J¤§¦C¸¹ (Rows)¡C
    
12.     If (Sheets("¤u§@ªí1").Range("AA4").Value = "") Then Sheets("¤u§@ªí1").Range("AA4").Value = "00:00:10"   ' ¬ö¿ý¸ê®Æ¶×¤J¬Û¹j®É¶¡¡A¦p¨C¹j¤Q¬í¼g¤J¤@¦¸¡C
    
13. 
    
14.     If (TimeValue(Now) > Sheets("¤u§@ªí1").Range("AA2").Value) Then       ' ¦pªG¥Ø«e®É¶¡·~¤w¶W¹LAA2ªº®É¬q¡A«h©I¥s.......
    
15.         Call stopProcedure
    
16.     Else                                                                  ' ¤Ï¤§¡A«h©I¥s.......
    
17.         Call startProcedure
    
18.     End If
    
19. End Sub
    
20. 
    
21. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
22.     On Error Resume Next
    
23.     Call actStop
    
24. End Sub
    
25. 
    
26. 
    
27. Sub startProcedure()       ' «O¯d§@¬°±±¨î¶µ¤§À³¥Îµ{§Ç¡A¦p«ö¶s¤§¥¨¶°À³¥Îµ¥¡C
    
28.     Call actStart
    
29. End Sub
    
30. 
    
31. Sub stopProcedure()        ' «O¯d§@¬°±±¨î¶µ¤§À³¥Îµ{§Ç¡A¦p«ö¶s¤§¥¨¶°À³¥Îµ¥¡C
    
32.    Call actStop
    
33. End Sub
    
34. 
    
35. Sub nnewTitle()
    
36.    ' ®M¤W§A±ý¶×¤J¸ê®ÆªºªíÀY¦WºÙ
    
37. End Sub
    
38. 
    
39. Sub Starter()
    
40.     If (actEnabled = True And TimeValue(Now) >= Sheets("¤u§@ªí1").Range("AA1").Value And TimeValue(Now) <= Sheets("¤u§@ªí1").Range("AA2").Value) Then
    
41.         index = Sheets("¤u§@ªí1").Range("AA3").Value
    
42. 
    
43.         If (index = 0) Then Call newTitle  '°²³]newTitleµ{§Ç(¥Ñ¨Ï¥ÎªÌ¦Û¦æ©w¸q)¬O±N²Ä¤@¦Cªº¸ê®Æ©ïÀY¦WºÙ¼g¤J¨ì¤u§@ªí2¡C ¦p¡G¤é´Á¡B®É¶¡¡BR1C5ªº¹ïÀ³Äæ¦ì¸ê®Æµ¥¡C
    
44. 
    
45.         Sheets("¤u§@ªí1").Range("AA3").Value = index + 1       ' ¬ö¿ý¦C¸¹¥[¤@¡C
    
46.         Sheets("¤u§@ªí2").Cells(index + 2, 1).Value = Date
    
47.         Sheets("¤u§@ªí2").Cells(index + 2, 2).Value = TimeValue(Now)
    
48.         ' Sheets("¤u§@ªí2").Cells(index + 2, 3).Value = Sheets("¤u§@ªí1").Cells(1, 5).Value
    
49.         '
    
50.         ' ½Æ»s±q¨é°ÓDDE¶×¤J¤§¬Û¹ïÀ³¦ì¸m¸ê®Æ¡A¦p R1C5 ¹ïÀ³ªº¥i¯à¬O¦¬½L»ùµ¥µ¥¡C
    
51.         '
    
52.     End If
    
53. End Sub
    
54. 
    
55. 
    
56. Sub onStarter()
    
57.     Call Starter
    
58.     If actEnabled Then Call actStart
    
59. End Sub
    
60. 
    
61. Sub actStart()
    
62.     actEnabled = True
    
63.     Application.OnTime (Now + Sheets("¤u§@ªí1").Range("AA4").Value), "ThisWorkBook.onStarter"   ' ¼g¤J¸ê®Æªº±Æµ{ (¥Ø«e¬O¨C¹j¤Q¬í¼g¤J¤@¦¸)
    
64. End Sub
    
65. 
    
66. Sub actStop()
    
67.     actEnabled = False
    
68. 
    
69.     On Error Resume Next
    
70.     Application.OnTime Now, "ThisWorkBook.onStarter", , False
    
71. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 5# Hsieh
ÁÂÁ±zªº«ü¥¿¡I
¤µ«á§Ú·|¯S§O¥h¯d·NVBAªº«O¯d¦r¡A §Ú¤w±N index §ó§ï¦¨ cIndex (Check Index ¤§·N¡A¥i¨Ì¨C­Ó¤H½s½X²ßºD¦Û¦æ¥h©w¸q)
¯u¤£¦n·N«ä¯d¤U¤F¤£¦nªº¿ù»~¥Ü½d¡C

c_c_lai

¦^´_ 7# ajagow
¹ï¤£°_¡I
¦b½d¨Ò¤¤ Sub newTitle()  (¤§«e¥»·Q¥Ñ¨Ï¥ÎªÌ¦Û¦æ¥[¤W¡A¦ý¬°¼W¶i§AªºÁA¸Ñ¡AÁ{®É¥[¤Jªº) »~¥´¦¨ Sub nnewTitle() ½Ð§A¦Û¦æ§ó¥¿¡A
½Ð¯d·N ThisWorkBook.onStarter¡A¦b ThisWorkBook.onStarter¤¤¬O¦³¤@ÂI "." ªº (ThisWorkBook + "." +  onStarter)¡A
¦¹·N§Y¬O "·í³]©w®É¬q¨ì®É§Y¤©°õ¦æ onStarter¦¹µ{¦¡¬q"

Sub onStarter()
    Call Starter
    If actEnabled Then Call actStart
End Sub

onStarter µ{¦¡¬q·|¥h°õ¦æ Starter (¦¹µ{¦¡¬q­t³d±N±qDDE¶×¤J¤§½L¤¤¸ê°T¡A¹ê»Ú¼g¤J¨ì§A«ü©w½s¼gªº¤u§@ªí³æ¤º)¡A
°õ¦æ§¹²¦¤S·|¨ì actStart ªº±Æµ{¡C ¦p¦¹¤£Â_´`Àô§@·~¡Aª½¨ì±ø¥óº¡¨¬¬°¤î¡C

c_c_lai

¦^´_ 9# ajagow
³Â·Ð¤W¶ÇÀɮסI

c_c_lai

¦^´_ 11# ajagow
Äæ¦ìªº½T»{«D±`­«­n¡A§Aªº»yªk§Úµy¥[­×§ï¤F¤@¤U¡A¤jÅé¤W¤]³£¤£¿ù¡A¥u¬O®É¶¡Äæ¦ìªº»{©w¼Ò½k¦Ó¤w¡A
§Ú±N­×§ï¤§³B¥Î  ' ******** ¥[¥H¼Ð¥Ü¥X¨Ó¡A¤è«K§AÁA¸ÑµLªk°õ¦æªº­ì¦]¡A¤U¦^§A´N·|¹ê»ÚÀ³¥Î¤F¡C
ªþ¤W¤w°õ¦æªº½d¨Ò¡A¥H¤Î§Aªº­×§ï«á¤§µ{¦¡½X (¦]§A©|µLªk¤U¸ü¡A©Ò¥H±N¥¦¶K¥Ü¥X¨Ó)¡A§A±Nµ{¦¡½X½Æ»s¨ì ThisWorkbook ¤º¡A¦Ó±N¼Ò²Õ²¾°£±¼¡C

¤U¸ü (90.13 KB)

2012-4-15 09:41

1. ' ½L¤¤ DDE ¦sÀɪº¹ê»ÚÀ³¥Î½d¨Ò
   
2. Option Explicit
   
3. Dim actEnabled As Boolean
   
4. Dim CIndex As Single
   
5. 
   
6. Private Sub Workbook_Open()
   
7.     If (Sheets("¤u§@ªí1").Range("A1").Value = "") Then Sheets("¤u§@ªí1").Range("A1").Value = "01:11:00"   ' °²³]A1Äæ¦ì¬°ªÅ¥Õ¡A«h¼g¤J¶}½L°_©l®É¶¡
   
8.     If (Sheets("¤u§@ªí1").Range("A2").Value = "") Then Sheets("¤u§@ªí1").Range("A2").Value = "13:45:59"   ' A2Äæ¦ì¥ç¦P¡C(¦¹¨âÄæ¬ö¿ý°_©l²×¤î®É¶¡)
   
9.     If (Sheets("¤u§@ªí1").Range("A3").Value = "") Then Sheets("¤u§@ªí1").Range("A3").Value = 0            ' ¬ö¿ý³Ì«á¸ê®Æ¶×¤J¤§¦C¸¹ (Rows)¡C
   
10.     If (Sheets("¤u§@ªí1").Range("A4").Value = "") Then Sheets("¤u§@ªí1").Range("A4").Value = "00:00:10"   ' ¬ö¿ý¸ê®Æ¶×¤J¬Û¹j®É¶¡¡A¦p¨C¹j¤Q¬í¼g¤J¤@¦¸¡C
    
11. 
    
12.     ' If (TimeValue(Now) > Sheets("¤u§@ªí1").Range("A2").Value) Then     ' ********  §A¥´ºâ¦ó®É¶}©l¹B§@¡H13:45:59 ¥H«á¡H
    
13.     If (TimeValue(Now) > Sheets("¤u§@ªí1").Range("A1").Value) Then       ' ¦pªG¥Ø«e®É¶¡·~¤w¶W¹LA2ªº®É¬q¡A«h©I¥s.......
    
14.         ' Call stopProcedure         ' ***** ®É¶¡¨ì¤F¡AÃø¹D§A¤£­n°õ¦æ¡H
    
15.         Call startProcedure
    
16.     Else                                                                  ' ¤Ï¤§¡A«h©I¥s.......
    
17.         Call stopProcedure
    
18.         ' Call startProcedure        ' ***** ½Ð°Ý§A¬O­n¥¦¦b 14:00 ~ 01:09 ¶¡°õ¦æ¡H
    
19.     End If
    
20. End Sub
    
21. 
    
22. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
23.     On Error Resume Next
    
24.     Call actStop
    
25. End Sub
    
26. 
    
27. Sub startProcedure()       ' «O¯d§@¬°±±¨î¶µ¤§À³¥Îµ{§Ç¡A¦p«ö¶s¤§¥¨¶°À³¥Îµ¥¡C
    
28.     Call actStart
    
29. End Sub
    
30. 
    
31. Sub stopProcedure()        ' «O¯d§@¬°±±¨î¶µ¤§À³¥Îµ{§Ç¡A¦p«ö¶s¤§¥¨¶°À³¥Îµ¥¡C
    
32.    Call actStop
    
33. End Sub
    
34. 
    
35. Sub newTitle()
    
36.    ' ®M¤W§A±ý¶×¤J¸ê®ÆªºªíÀY¦WºÙ
    
37. End Sub
    
38. 
    
39. Sub Starter()
    
40.     If (actEnabled = True And TimeValue(Now) >= Sheets("¤u§@ªí1").Range("A1").Value And TimeValue(Now) <= Sheets("¤u§@ªí1").Range("A2").Value) Then
    
41.         CIndex = Sheets("¤u§@ªí1").Range("A3").Value
    
42. 
    
43.         If (CIndex = 0) Then Call newTitle  '°²³]newTitleµ{§Ç(¥Ñ¨Ï¥ÎªÌ¦Û¦æ©w¸q)¬O±N²Ä¤@¦Cªº¸ê®Æ©ïÀY¦WºÙ¼g¤J¨ì¤u§@ªí2¡C ¦p¡G¤é´Á¡B®É¶¡¡BR1C5ªº¹ïÀ³Äæ¦ì¸ê®Æµ¥¡C
    
44. 
    
45.         Sheets("¤u§@ªí1").Range("A3").Value = CIndex + 1       ' ¬ö¿ý¦C¸¹¥[¤@¡C
    
46.         Sheets("¤u§@ªí2").Cells(CIndex + 2, 1).Value = Date
    
47.         Sheets("¤u§@ªí2").Cells(CIndex + 2, 2).Value = TimeValue(Now)
    
48.         ' Sheets("¤u§@ªí2").Cells(CIndex + 2, 3).Value = Sheets("¤u§@ªí1").Cells(1, 5).Value
    
49.         Sheets("¤u§@ªí2").Cells(CIndex + 2, 3).Value = Sheets("¤u§@ªí1").Cells(6, 1).Value         ' ´ú¸Õ¡A ¦]¤µ¤Ñ¤£½æ³½¡A §Aªº«ü©wÄæ¦ì¦³ÂI..........
    
50. 
    
51.         '
    
52. 
    
53.         ' ½Æ»s±q¨é°ÓDDE¶×¤J¤§¬Û¹ïÀ³¦ì¸m¸ê®Æ¡A¦p R1C5 ¹ïÀ³ªº¥i¯à¬O¦¬½L»ùµ¥µ¥¡C
    
54. 
    
55.         '
    
56.         CIndex = Sheets("¤u§@ªí1").Range("A3").Value      ' ********* ¼W¥[³¡¤À  (Counter ­n¥[¤@¡A§_«h¥Ã»·¬°¹s)
    
57.     End If
    
58. End Sub
    
59. 
    
60. Sub onStarter()
    
61.     Call Starter
    
62.     If actEnabled Then Call actStart
    
63. End Sub
    
64. 
    
65. Sub actStart()
    
66.     actEnabled = True
    
67.     ' Application.OnTime (Now + Sheets("¤u§@ªí2").Range("A4").Value), "ThisWorkBook.onStarter"   ' ***** ¤u§@ªí 2 ªº A4 ­þ¨Ó­Ó®É¶¡³]©w¡H
    
68.     Application.OnTime (Now + Sheets("¤u§@ªí1").Range("A4").Value), "ThisWorkBook.onStarter"     ' ¼g¤J¸ê®Æªº±Æµ{ (¥Ø«e¬O¨C¹j¤Q¬í¼g¤J¤@¦¸)
    
69. End Sub
    
70. 
    
71. Sub actStop()
    
72.     actEnabled = False
    
73. 
    
74.     On Error Resume Next
    
75.     Application.OnTime Now, "ThisWorkBook.onStarter", , False
    
76. End Sub

½Æ»s¥N½X

DDE-4-14 ½L¤¤ DDE ¦sÀÉ»P VBA ªº¹ê»ÚÀ³¥Î½d¨Ò.rar (14.01 KB)

¤U¸ü¦¸¼Æ: 76

2012-4-15 09:43

c_c_lai

¦^´_ 16# ajagow
½Ð±z¯d·N¬Ý¬Ý¡A¦b±zµ{¦¡°õ¦æªº¶¥¬q¬O§_¦P®É·|¥h°õ¦æ§O¤ä Excel µ{¦¡¡H
¦pªG¦³ªº¸Ü¡A½Ð¤Å¾Þ§@§O¤ä Excel¡A¦]¬°¥¦­Ìªº°õ¦æ§Ç¥i¯à³Q¤zÂZ¨ì¤F¡C

c_c_lai

¦^´_  c_c_lai


    ¨º½Ð¸û¤@¤U¡A­Y¦P®É¨ú¥Î¤£¦P°T¸¹¨Ó·½®É¡A­n¦p¦ó³WÁ×±z©Ò»¡ªº¿ù»~­·ÀI©O?
ribbits µoªí©ó 2012-9-9 11:07

«D "¤£¦P°T¸¹¨Ó·½"¡A§Ú«üªº¬OºÉ¥i¯à¤£­n¦b¦P¤@®É¬q¥h
¦P®É°õ¦æ¤@¤ä¥H¤W±a¦³VBAµ{¦¡°õ¦æ½Xªº Excel ÀɮסC
ªþ¤W¹Ï¤ù§Æ±æ¯àÀ°§U§A¤F¸Ñ¡G

¤U¸ü (19.62 KB)

2012-9-9 11:21

§A¥i¥H¦b¤@ªí³æ¤º¦P®É¶×¤J¤@¤ä¥H¤W¤£¦P DDE °T¸¹¨Ó·½¡A³oµ´¹ï¬O OK ªº¡A
¦ý¬O¦pªG§A¦b¦P¤@®É¬q¦P®É°õ¦æ¤@¤ä¥H¤WÃþ¦ü¦p¦¹¤§VBA
°õ¦æµ{¦¡¡AVBA µ{¦¡·¥¦³¥i¯à·|ÀH®É²ö¦W¨ä§®¦a³Q¤¤Â_ (Interrupt)¡C
(§Ú­Ó¤HÅéÅç¡A¹ð¸Õ¤£²n)    ¦]¦¹¤~·|¦p¦¹«Øijªº¡C

c_c_lai

¦^´_ 24# ribbits
ºÝµø§Aµ{¦¡¼¶¼gªº§Þ¥©¡A¬O¥i¥H°µ¨ìªº¡I