c_c_lai

¦^´_ 1# slip
½Ð±N¹ê»ÚªºÀɮפW¶Ç¡A¥H«K¤j®a¯à¤F¸Ñ§A¹ê»Úªº»Ý¨D­±¡A
ÁÂÁ¡I

c_c_lai

¦^´_ 5# slip
¤w¤W¶Ç¡H

c_c_lai

¦^´_ 8# register313
¦^´_ 7# slip
ÁÂÁ Angela »P register313 ¨â¦ìªº¸Ñ»¡¡I
J4=TEXT(VLOOKUP("*"&B4&"*",Sheet2!$A$1:$D$100,4,)/100,"0.00%")

¤U¸ü (50.1 KB)

2012-5-7 20:33

c_c_lai

¦^´_ 14# slip
¥Ø«e§AÅv­­¤£¨¬®£©ÈµLªk¤U¸ü¡A©Ò¥H§Ú±Nµ{¦¡½X¶K¤W¡A
§A½Æ»s«á±N¦o¶K¤J¨ì ThisWorkbook µ{¦¡°Ï¤ºÀx¦s§Y¥i¡A
¦Ü©ó Sheet1 ¬Y¨Ç³]©wÄæ¦ì½Ð°Ñ·Óªþ¹Ï·Óµe¸¬§Y¥i¡C

1. ' DDE ¸ê®Æ¬ö¿ý°ÝÃD
   
2. Option Explicit
   
3. Dim actEnabled As Boolean
   
4. Dim cIndex As Single
   
5. 
   
6. Private Sub Workbook_Open()
   
7.     ' ¥H¤U¥|¦C¸ê®Æ¤§³]©w¡A¥i°t¦X¹ê§@¡B©Î´ú¸Õ¤§¥Øªº¡Aª½±µ¦b "sheet1" «ü©w¤§³]©wÄæ¡A±oÀH®É¤©¥H²§°Ê¡C
   
8.     If (Sheets("sheet1").Range("BA1").Value = "") Then Sheets("sheet1").Range("BA1").Value = "08:45:00"   ' °²³]C6Äæ¦ì¬°ªÅ¥Õ¡A«h¼g¤J¶}½L°_©l®É¶¡
   
9.     If (Sheets("sheet1").Range("BA2").Value = "") Then Sheets("sheet1").Range("BA2").Value = "13:45:59"   ' D6Äæ¦ì¥ç¦P¡C(¦¹¨âÄæ¬ö¿ý°_©l²×¤î®É¶¡)
   
10.     If (Sheets("sheet1").Range("BB1").Value = "") Then Sheets("sheet1").Range("BB1").Value = "00:01:00"   ' ¬ö¿ý¸ê®Æ¶×¤J¬Û¹j®É¶¡¡A¦p¨C¹j¤@¤ÀÄÁ¼g¤J¤@¦¸¡C
    
11.     If (Sheets("sheet1").Range("BB2").Value = "") Then Sheets("sheet1").Range("BB2").Value = 0            ' ¬ö¿ý¤w¶×¤J¸ê®Æ¦C¼Æ¡C
    
12. 
    
13.     If (TimeValue(Now) > Sheets("sheet1").Range("BA2").Value) Then       ' ¦pªG¥Ø«e®É¶¡·~¤w¶W¹L D6 ªºÀç·~®É¬q¡A«h©I¥s.......
    
14.         Call stopProcedure
    
15.     Else                                                                 ' ¤Ï¤§¦b D6 ³]©w®É¶¡¥H«e¡A«h©I¥s.......
    
16.         Call startProcedure
    
17.     End If
    
18. End Sub
    
19. 
    
20. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
21.     On Error Resume Next
    
22.     Call actStop
    
23. End Sub
    
24. 
    
25. Sub startProcedure()       ' «O¯d§@¬°±±¨î¶µ¤§À³¥Îµ{§Ç¡A¦p«ö¶s¤§¥¨¶°À³¥Îµ¥¡C
    
26.     Call actStart
    
27. End Sub
    
28. 
    
29. Sub stopProcedure()        ' «O¯d§@¬°±±¨î¶µ¤§À³¥Îµ{§Ç¡A¦p«ö¶s¤§¥¨¶°À³¥Îµ¥¡C
    
30.    Call actStop
    
31. End Sub
    
32. 
    
33. Sub newTitle()
    
34.     Sheets(2).[A1].Resize(, 4) = Sheets(1).[A1:D1].Value  ' ®M¤W§A±ý¶×¤J¸ê®ÆªºªíÀY¦WºÙ
    
35. End Sub
    
36. 
    
37. Sub Starter()
    
38.     If (actEnabled = True And TimeValue(Now) >= Sheets("sheet1").Range("BA1").Value And TimeValue(Now) <= Sheets("sheet1").Range("BA2").Value) Then
    
39.         cIndex = Sheets("sheet1").Range("BB2").Value
    
40. 
    
41.         If (cIndex = 0) Then Call newTitle  ' newTitle µ{§Ç (¥Ñ¨Ï¥ÎªÌ¦Û¦æ©w¸q) ¬O±N²Ä¤@¦Cªº¸ê®Æ©ïÀY¦WºÙ¼g¤J¨ìsheet2¡F¦p¤é´Á¡B®É¶¡ªº¹ïÀ³Äæ¦ì¸ê®Æµ¥¡C
    
42. 
    
43.         Sheets("sheet1").Range("BB2").Value = cIndex + 1       ' ¬ö¿ý¦C¸¹¥[¤@¡C
    
44. 
    
45.         ' ½Æ»s±q¨é°ÓDDE¶×¤J¤§¬Û¹ïÀ³¦ì¸m¸ê®Æ¡A¦p A1¡BB1¡BC1¡BD1 ¹ïÀ³ªº¥i¯à¬O¤º½L¡B¥~½L¡B¦¨¥æ¡Bº¦¶^µ¥µ¥¡A¥H¦¹Ãþ±À¡C
    
46.         Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 4) = Sheets(1).[A2:D2].Value
    
47. 
    
48.         cIndex = Sheets("sheet1").Range("BB2").Value      ' ¤Á°O Counter (­p¼Æ¾¹) ­n¥[¤@¡A§_«h¥Ã»·¬°¹s (·íµM¤w¤]¥i¥H¤£¤©¬ö¿ý¸ê®Æ¦C­z¡A¨Ì­Ó¤H²ß©Ê)¡C
    
49.     End If
    
50. End Sub
    
51. 
    
52. Sub onStarter()
    
53.     If Not IsError(Sheets(1).[A2]) Then Call Starter
    
54.     If actEnabled Then Call actStart
    
55. End Sub
    
56. 
    
57. Sub actStart()
    
58.     actEnabled = True
    
59.    
    
60.     Application.OnTime (Now + Sheets("sheet1").Range("BB1").Value), "ThisWorkBook.onStarter"     ' ¼g¤J¸ê®Æªº±Æµ{ (¥Ø«e¬O¨C¹j¤­¤ÀÄÁ¼g¤J¤@¦¸)
    
61. End Sub
    
62. 
    
63. Sub actStop()
    
64.     actEnabled = False
    
65. 
    
66.     On Error Resume Next
    
67.     Application.OnTime Now, "ThisWorkBook.onStarter", , False
    
68. End Sub

½Æ»s¥N½X

¤U¸ü (95.19 KB)

2012-5-8 18:43

´Á³f¨C¤ÀÄÁ¸ê®Æ¶×¤J.rar (27.93 KB)

¤U¸ü¦¸¼Æ: 26

2012-5-8 18:44

c_c_lai

¦^´_  c_c_lai
    ¦A½Ð±Ðc¤j¡A§Ú±Ndde¶×¤Jªº¸ê®Æsheet1¸Ì¡A¦b5min©Î10min©ÎÀH¾÷¡Hmin­n§â¾ã­Ó2¦C´_»s ...
slip µoªí©ó 2012-5-16 15:44

¦b5min©Î10min©ÎÀH¾÷¡Hmin­n§â¾ã­Ó2¦C´_»s ...
¯à§_½Ð§A´y­z²M·¡(©ú¥Õ)¤@ÂI¡H

c_c_lai

¦^´_ 20# slip
¸Õ¸Õ¬Ý³o¬O¤£¬O§Aªº·N«ä¡G

1. Sub Test1()
   
2.   '  °²³]§A­n½Æ»s A2:E2 ªº§Y®É¸ê°T¨ìM14:Q14 (µ¥5­ÓÄæ¦ì) ªº¦ì¸m¤W
   
3.    Sheets("Sheet1").[M14].Resize(, 5) = Sheets("Sheet1").[A2:E2].Value
   
4. End Sub

½Æ»s¥N½X

¦pªG³o¬O§A­nªº¡A§A´N¥i¥H¼W¥[¤@«ö¶s¡A±N¨ä«ü©w¥¨¶°«ü¦V Test1¡C

c_c_lai

¦^´_ 22# slip
¸Õ¸Õ¬Ý¡I

1. Sub duplicate_Click()
   
2.     Dim nextRows As Single
   
3.    
   
4.     With Sheets("Sheet1")
   
5.         nextRows = .Range("A" & Rows.Count).End(xlUp).Row + 1
   
6.         .Range("A" & nextRows & ":AH" & .UsedRange.Rows.Count).ClearContents
   
7.    
   
8.         .Range("A" & nextRows & ":E" & nextRows).Value = Sheets("Sheet1").[A2:E2].Value                ' A-E
   
9.         .Range("I" & nextRows & ":AH" & nextRows).Value = Sheets("Sheet1").[I2:AH2].Value              ' I-AH
   
10.         .Cells(nextRows, 6).Formula = "=C" & nextRows & "-P" & nextRows                                ' F
    
11.         If .Cells(nextRows, 6).Value < 0 Then .Cells(nextRows, 6).Font.Color = 1
    
12.         .Cells(nextRows, 7).Formula = "=D" & nextRows & IIf(nextRows = 3, "", "-D" & nextRows - 1)     ' G
    
13.         If .Cells(nextRows, 7).Value < 0 Then .Cells(nextRows, 7).Font.Color = 1
    
14.         .Cells(nextRows, 8).Formula = "=E" & nextRows & IIf(nextRows = 3, "", "-E" & nextRows - 1)     ' H
    
15.         If .Cells(nextRows, 8).Value < 0 Then .Cells(nextRows, 8).Font.Color = 1
    
16.     End With
    
17. End Sub

½Æ»s¥N½X

¤U¸ü (25.15 KB)

2012-5-18 20:44

c_c_lai

¦^´_ 24# slip
¦]¬°§AµLªk¤U¸ü#23ªºªþ¥ó¡A©Ò¥HµLªk±oª¾Excel¤Wªº¼W«Ø«ö¶sªº§@¥Î¡A§A¥i¥H«ö·Ó¥H¤U¹Ï¥Ü¾Þ§@¡G

¤U¸ü (105.88 KB)

2012-5-21 15:00

·í§A­nÂ^¨ú¸ê®Æ®É¥u­n«ö¨º«ö¶s¤£¬O«Ü¬Ù¨Æ¶Ü¡H