cfuxiong

¦^´_ 11# c_c_lai
DDE¶×¤J¦r¦ê¤½¦¡ J2 §ï¦¨ K2=>§ä¤£¨ì¦ì§}¦A­þ¡H¥i¥H§i¶D§Ú¶Ü¡H

cfuxiong

DDE¶×¤J¦r¦ê¤½¦¡ J2 §ï¦¨ K2=>§ä¤£¨ì¦ì§}¦A­þ¡H¥i¥H§i¶D§Ú¶Ü¡H

c_c_lai

¦^´_ 10# cfuxiong
§Aª½±µ±NDDE¶×¤J¦r¦ê¤½¦¡ J2 §ï¦¨ K2 ´N OK ¤F¡C

cfuxiong

¦^´_ 9# c_c_lai
c_c_laiª©¤j§A¦n¡F¤µ¤Ñ´«­ÜDDE¤S­n­«·s«Ø¥ß¡A¨º§Ú­Ì©Ò½s¿èªºVBA­n¦p¦ó²¾Âà¡C
½Ðµ¹¤©«ü¾É...ÁÂÁÂ!!

c_c_lai

¦^´_  c_c_lai
c_c_laiª©¤j§A¦n¡F¬Q¤Ñ¹ê´ú¬O¦³»P[¶qºA]¦P®É¨Ï¥Î....
¤µ¤Ñ´N¨S°ÝÃD¤F...¨º­n»P[¶qºA]¨Ö¥Î ...
cfuxiong µoªí©ó 2012-10-4 19:10

¯à¤£¯à±N¥¦­Ì¦X¨Ö¦b¤@­Ó EXCEL ¤ºÀ³¥Î¡H
³o¤]¬O§Ú¤@ª½ªº§xÂZ¡A¤£ª¾¬O EXCEL ªº VBA ¬Û¤¬¶¡³B²z©Ò¾É­P¡AÁÙ¬O¨ä¥¦¦]¯À¡H

cfuxiong

¦^´_ 7# c_c_lai
c_c_laiª©¤j§A¦n¡F¬Q¤Ñ¹ê´ú¬O¦³»P[¶qºA]¦P®É¨Ï¥Î....
¤µ¤Ñ´N¨S°ÝÃD¤F...¨º­n»P[¶qºA]¨Ö¥Î¬O§_´NµL¸Ñ¡H
¦]¬Ý½L³nÅédde¦³[©e¶R½æ¶q]¨S¦³[©e¶R½æµ§¼Æ]¤£¯à­pºâ[¶qºA]~
ÁÂÁ¦^À³»P«ü¾É~~
¯à§_µ¹»P«ü¾É [email protected]

c_c_lai

¦^´_ 5# cfuxiong
ÁÙ¦³¦pªG¨é°Óªº³nÅé±¾¤F­«·s¶}±Ò¡A EXCEL ¥ç­n¤@¨Ö¥ý¤©Ãö³¬«á¦A¶} (­«·s³sµ²DDE)¡C

c_c_lai

¦^´_ 5# cfuxiong
¦b¶]³o¤äµ{¦¡°õ¦æ¤¤¡A¤Á°O¤Å¶}±Ò¥t¤@°¦Excel µ{¦¡¡A½Ð¦^¾Ð¬Ý¬Ý¬O§_¦³³oºØ±¡§Î¡H
¦pªG¥u¬O³æ¯Â¶]³o°¦ªº¸Ü¡A°£«D¬O¹q¸£¥»¨­¦³ª¬ªp¡A§A»¡ªº±¡ªp¬O¤£¥i¯à·|µo¥Íªº¡I

cfuxiong

¦^´_ 4# c_c_lai
c_c_laiª©¤j§A¦n¡F¸g¹L¤T¤Ñªº¹ê´ú¡A¦³®É·|·í¾÷(¸ê®Æ¨S¶i¨Ó)«Ý¦hÆ[´ú´X¤é¦A½Ð±Ð¤F¡A
¾ãÅé¤W«D±`º¡·N~~...ÁÂÁÂ!!

c_c_lai

¬°¤FÅý§ó¦h¤H¶i¤@¨B©úÁA¾ãÅ骺§@·~¹Lµ{¡A¥¼¨Ó¤]¥i¥H¦Û¤v¦b¹ê°È¤W¹ê»Úºt½m
¤Î¼¯ÀÀ¡A¬G±N§@·~µe­±»Pµ{¦¡¤@¨Ö¶Kªþ¤W¨Ó¤À¨É¡C
§Æ±æ¨C­Ó¤H³£¯à±q¤¤¾Ç²ß»â®©¡B¼g¥X§ó¨Îªºµ{¦¡¡A¦A±N¦¨ªG¤À¨É´£¨Ñµ¹¤j®a¡I

1. Option Explicit
   
2. 
   
3. Dim Ov As Single, Hv As Single, Lv As Single, Cv As Single
   
4. Dim timerEnabled As Boolean    ' §P©w¶}±Ò¥»¤u§@ªí³æªº®É¬q¬O§_¬°¶}½L«e±Ò°Ê¡C
   
5. Public turnKey As Integer
   
6. 
   
7. Private Sub Workbook_Open()
   
8.     timerEnabled = False
   
9.     Sheets("Sheet4").[I2] = Sheets("Sheet4").[H2]     ' ³]©w«e¦¨¥æ¶q
   
10.     Call timerStart            ' µ{¦¡¤@±Ò©l¡A«K¥h¦Û°Ê°õ¦æ timerStart
    
11. End Sub
    
12. 
    
13. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
14.     On Error Resume Next
    
15.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.RTimer", , False
    
16.    
    
17.     Me.Save
    
18. End Sub
    
19. 
    
20. Public Sub RTimer(tm As Date)
    
21.     Dim TimeRange As Range, Rng As Range
    
22.     Dim pos As Integer
    
23.    
    
24.     On Error Resume Next
    
25.     If (TimeValue(Now) > TimeValue("13:45:00")) Then Exit Sub
    
26.    
    
27.     If (TimeValue(Now) >= TimeValue("08:45:00")) Then         ' ¶}½L¡B¦¬½L®É¬q³]©w
    
28.         ' ½L¤¤³B²z¡A±N¸ê®Æ¶×¤J¼g¤J¤u§@ªí³æ¤ºÀx¦s¡C
    
29.         With Sheets("Sheet1")
    
30.             If Not IsError(.[B2]) Then
    
31.                 .[B1] = "¦¨¥æ»ù"
    
32.                 .[C1] = "³Ì°ª»ù"
    
33.                 .[D1] = "³Ì§C»ù"
    
34.                 .[E1] = "¦¨¥æ¶q"
    
35.                
    
36.                 Set TimeRange = .[A:A].Find(TimeSerial(Hour(tm), Minute(tm), 0))  ' Àˬd "A" Äæ¦ì¹ïÀ³¤§®É¶¡¸ê®Æ
    
37.                 Set Rng = TimeRange.Offset(, 1).Resize(1, 4)
    
38.                
    
39.                 Rng(1) = Cv                                             ' ¦¨¥æ»ù
    
40.                 Rng(2) = Hv                                             ' ³Ì°ª»ù
    
41.                 Rng(3) = Lv                                             ' ³Ì§C»ù
    
42.                 Rng(4) = Sheets("Sheet4").[H2] - Sheets("Sheet4").[I2]  ' ¦¨¥æ¶q
    
43.                 Sheets("Sheet4").[I2] = Sheets("Sheet4").[H2]           ' ­«·s³]©w«e¦¨¥æ¶q
    
44.             End If
    
45.         End With
    
46.     End If
    
47. End Sub
    
48. 
    
49. Sub timerStart()
    
50.     turnKey = 0                  ' ­p¼Æ¾¹­«·sÂk¹s
    
51.     Sheets("Sheet4").[A3] = "( " & turnKey & " ¬í )"
    
52.    
    
53.     If timerEnabled Then
    
54.         ' ²Ä¤G¦¸(§t)¥H«á§¡¥H³]©w¤§ "¶¡¹j®É¬q" ¨Ó³B²z°õ¦æ§Çªº§@·~¡C
    
55.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.inProcess"
    
56.     Else
    
57.         timerEnabled = True
    
58.         
    
59.         ' ±N²Ä¤@¦¸±Ò°Ê®É¶¡§ó§ï¬°³]©w "¶}½L®É¶¡"«e¡A¦pªG¶}±Ò Excel ®É¡A¤w¸g¹L¤F³]©w "¶}½L®É¶¡"¡A«h¤@¶i¤J¨t²Î§Yª½±µ¥h°õ¦æ¬ö¿ý§@·~¡C
    
60.         If (TimeValue(Now) <= TimeValue("08:45:00")) Then
    
61.             Sheets("Sheet1").[B2:E301].ClearContents      ' ²M°£«e¤@¤é¤§¸ê®Æ
    
62.             Application.OnTime (TimeValue("08:45:00")), "ThisWorkbook.inProcess"
    
63.         Else
    
64.             ' ¨t²Î­è³s¤W DDE ¦Ü¸ê®Æ¶×¤JExcel¤u§@ªí³æ¡A¶·¦³¤@­Ó½w½Ä®É¬q¡A
    
65.             ' ³o®É¦pªG°¨¤W¥h§ì¨úDDE¸ê®Æ¡A·|¦³«¬ºA¤£²Åªº¿ù»~°T®§²£¥Í¡A¨Ã¤¤Â_°õ¦æ§Çªº§@·~¡C
    
66.             Application.OnTime (Now + TimeValue("00:00:05")), "ThisWorkbook.inProcess"
    
67.         End If
    
68.     End If
    
69. End Sub
    
70. 
    
71. Private Sub inProcess()
    
72.     Static Msg As Boolean          ' ¥Î¥H§P©w¬O§_¬°¨C¤é²Ä¤@¦¸°õ¦æ
    
73.     Static timeCalc As Date        ' °O¿ý¨C¤ÀÄÁªº®É¶¡
    
74.    
    
75.     On Error Resume Next
    
76.     If (TimeValue(Now) < TimeValue("08:45:00") Or TimeValue(Now) > TimeValue("13:46:01")) Then Exit Sub
    
77.       
    
78.     If Msg = False Then
    
79.         timeCalc = TimeSerial(Hour(Time), Minute(Time), 0)   ' ³]©w¥Ø«e°_©lªº®É¶¡
    
80.         Msg = True
    
81.     End If
    
82.    
    
83.     If IsError(Sheets("Sheet4").Range("B2").Value) Then
    
84.         Cv = 0
    
85.     Else
    
86.         Cv = Sheets("Sheet4").Range("B2").Value    ' ¦¨¥æ»ù
    
87.     End If
    
88.          
    
89.     If (turnKey = 0 Or Ov = 0) Then
    
90.         Ov = Cv                                      ' ¶}½L»ù
    
91.         Hv = Cv                                      ' ³Ì°ª»ù
    
92.         Lv = Cv                                      ' ³Ì§C»ù
    
93.     End If
    
94.         
    
95.     If (Cv > Hv) Then Hv = Cv                        ' ³Ì°ª»ù
    
96.     If (Cv < Lv) Then Lv = Cv                        ' ³Ì§C»ù
    
97.          
    
98.     turnKey = turnKey + 1
    
99.     Sheets("Sheet4").[A3] = "( " & turnKey & " ¬í )"
    
100.     If Time >= timeCalc + #12:01:00 AM# Then
     
101.         If (Cv > 0) Then Call RTimer(Time)
     
102.         timeCalc = TimeSerial(Hour(Time), Minute(Time), 0)   ' ­«·s³]©w¤U¤@¤ÀÄÁ¤ñ¹ïªº®É¶¡
     
103.         If timerEnabled Then Call timerStart
     
104.     Else
     
105.         Application.OnTime (Now + TimeValue("00:00:01")), "ThisWorkbook.inProcess"
     
106.     End If
     
107. End Sub

½Æ»s¥N½X

¤U¸ü (132.88 KB)

2012-9-29 20:56