ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

EXCEL§ì¨ú¸ê®Æ°ÝÃD

Book666.rar (22.16 KB) ¦^´_ 10# slip


    °ò¦excelªº¥\¯à­n¥[±j.....!!!:@

TOP

¦^´_ 10# slip

J4=IF(ISERROR(VLOOKUP("*"&B4&"*",Sheet2!$A$1:$D$100,4,)),0,TEXT(VLOOKUP("*"&B4&"*",Sheet2!$A$1:$D$100,4,)/100,"0.00%"))

TOP

¦^´_ 12# register313
ÁÂÁÂ,¥i¥H¥Î¤F..
slip

TOP

¥»©«³Ì«á¥Ñ slip ©ó 2012-5-8 16:57 ½s¿è

¦^´_ 9# c_c_lai


¦A½Ð±Ð¤j¤j¡Gexcel ¦p¦ó¨C¹j1¤ÀÄÁ¦Û°Ê§ìddeªº¸ê®Æ
§Ú¨Ï¥Îexcel³]©w´Á³f¬Ý½Lªºdde¥\¯à,®É¶¡¬O0845~1345

Sheet 1
A1      B1      C1     D1
¤º½L   ¥~½L    ¦¨¥æ   º¦¶^
A2      B2      C2     D2
xxxxx  xxxxx   xxxx    xxx

­n¦bsheet2¤¤ªº,¨C¹j¤@¤ÀÄÁ§ìsheet1ªº¼Æ¦r¸ê®Æ
A1      B1      C1     D1
xxxxx  xxxxx   xxxx    xxx


³Æµù:xxxx¬°¼Æ¦r
«ô°U°ª¤âÀ°¦£,ÁÂÁÂ!

´Á-¨C¤À.rar (23.79 KB)

slip

TOP

¦^´_ 14# slip
¸É¤WÀɮפθɥR»¡©ú

A2¬°¤º½Lªº¼Æ¶q
B2¬°¥~½Lªº¼Æ¶q
C2¬°¦¨¥æªº¼Æ¶q
D2¬°º¦¶^ªº­È

½Ð¨ó§U,±N³o¥|­Ó¼Æ¦r
¨C¹j¤@¤ÀÄÁ§ì¨ú¤@¦¸
¼Æ¦r¦Û°Ê¦bsheet2¤¤±Æ¦C¬°
²Ä¤@¤ÀÄÁA1,B1,C1,D1
²Ä¤G¤ÀÄÁA2,B2,C2,D2
¨Ì¦¹Ãþ±À
®É¶¡¶}©l¬O0845
µ²§ô¬O1345
ÁÂÁÂ

´Á-¨C¤À.rar (8.08 KB)

01

slip

TOP

¦^´_ 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. Private Sub Workbook_Open()
  6.     ' ¥H¤U¥|¦C¸ê®Æ¤§³]©w¡A¥i°t¦X¹ê§@¡B©Î´ú¸Õ¤§¥Øªº¡Aª½±µ¦b "sheet1" «ü©w¤§³]©wÄæ¡A±oÀH®É¤©¥H²§°Ê¡C
  7.     If (Sheets("sheet1").Range("BA1").Value = "") Then Sheets("sheet1").Range("BA1").Value = "08:45:00"   ' °²³]C6Äæ¦ì¬°ªÅ¥Õ¡A«h¼g¤J¶}½L°_©l®É¶¡
  8.     If (Sheets("sheet1").Range("BA2").Value = "") Then Sheets("sheet1").Range("BA2").Value = "13:45:59"   ' D6Äæ¦ì¥ç¦P¡C(¦¹¨âÄæ¬ö¿ý°_©l²×¤î®É¶¡)
  9.     If (Sheets("sheet1").Range("BB1").Value = "") Then Sheets("sheet1").Range("BB1").Value = "00:01:00"   ' ¬ö¿ý¸ê®Æ¶×¤J¬Û¹j®É¶¡¡A¦p¨C¹j¤@¤ÀÄÁ¼g¤J¤@¦¸¡C
  10.     If (Sheets("sheet1").Range("BB2").Value = "") Then Sheets("sheet1").Range("BB2").Value = 0            ' ¬ö¿ý¤w¶×¤J¸ê®Æ¦C¼Æ¡C

  11.     If (TimeValue(Now) > Sheets("sheet1").Range("BA2").Value) Then       ' ¦pªG¥Ø«e®É¶¡·~¤w¶W¹L D6 ªºÀç·~®É¬q¡A«h©I¥s.......
  12.         Call stopProcedure
  13.     Else                                                                 ' ¤Ï¤§¦b D6 ³]©w®É¶¡¥H«e¡A«h©I¥s.......
  14.         Call startProcedure
  15.     End If
  16. End Sub

  17. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  18.     On Error Resume Next
  19.     Call actStop
  20. End Sub

  21. Sub startProcedure()       ' «O¯d§@¬°±±¨î¶µ¤§À³¥Îµ{§Ç¡A¦p«ö¶s¤§¥¨¶°À³¥Îµ¥¡C
  22.     Call actStart
  23. End Sub

  24. Sub stopProcedure()        ' «O¯d§@¬°±±¨î¶µ¤§À³¥Îµ{§Ç¡A¦p«ö¶s¤§¥¨¶°À³¥Îµ¥¡C
  25.    Call actStop
  26. End Sub

  27. Sub newTitle()
  28.     Sheets(2).[A1].Resize(, 4) = Sheets(1).[A1:D1].Value  ' ®M¤W§A±ý¶×¤J¸ê®ÆªºªíÀY¦WºÙ
  29. End Sub

  30. Sub Starter()
  31.     If (actEnabled = True And TimeValue(Now) >= Sheets("sheet1").Range("BA1").Value And TimeValue(Now) <= Sheets("sheet1").Range("BA2").Value) Then
  32.         cIndex = Sheets("sheet1").Range("BB2").Value

  33.         If (cIndex = 0) Then Call newTitle  ' newTitle µ{§Ç (¥Ñ¨Ï¥ÎªÌ¦Û¦æ©w¸q) ¬O±N²Ä¤@¦Cªº¸ê®Æ©ïÀY¦WºÙ¼g¤J¨ìsheet2¡F¦p¤é´Á¡B®É¶¡ªº¹ïÀ³Äæ¦ì¸ê®Æµ¥¡C

  34.         Sheets("sheet1").Range("BB2").Value = cIndex + 1       ' ¬ö¿ý¦C¸¹¥[¤@¡C

  35.         ' ½Æ»s±q¨é°ÓDDE¶×¤J¤§¬Û¹ïÀ³¦ì¸m¸ê®Æ¡A¦p A1¡BB1¡BC1¡BD1 ¹ïÀ³ªº¥i¯à¬O¤º½L¡B¥~½L¡B¦¨¥æ¡Bº¦¶^µ¥µ¥¡A¥H¦¹Ãþ±À¡C
  36.         Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 4) = Sheets(1).[A2:D2].Value

  37.         cIndex = Sheets("sheet1").Range("BB2").Value      ' ¤Á°O Counter (­p¼Æ¾¹) ­n¥[¤@¡A§_«h¥Ã»·¬°¹s (·íµM¤w¤]¥i¥H¤£¤©¬ö¿ý¸ê®Æ¦C­z¡A¨Ì­Ó¤H²ß©Ê)¡C
  38.     End If
  39. End Sub

  40. Sub onStarter()
  41.     If Not IsError(Sheets(1).[A2]) Then Call Starter
  42.     If actEnabled Then Call actStart
  43. End Sub

  44. Sub actStart()
  45.     actEnabled = True
  46.    
  47.     Application.OnTime (Now + Sheets("sheet1").Range("BB1").Value), "ThisWorkBook.onStarter"     ' ¼g¤J¸ê®Æªº±Æµ{ (¥Ø«e¬O¨C¹j¤­¤ÀÄÁ¼g¤J¤@¦¸)
  48. End Sub

  49. Sub actStop()
  50.     actEnabled = False

  51.     On Error Resume Next
  52.     Application.OnTime Now, "ThisWorkBook.onStarter", , False
  53. End Sub
½Æ»s¥N½X

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

TOP

¦^´_ 16# c_c_lai
ÁÂÁÂc_c_lai ¤j¤j;
¤µ¤Ñ¶}©l¹B§@«á,¤@¤Á¶¶ºZ
·PÁ±zªºÀ°¦£
¸Û¤ß·PÁÂ
slip

TOP

¦^´_ 16# c_c_lai


    ¦A½Ð±Ðc¤j¡A§Ú±Ndde¶×¤Jªº¸ê®Æsheet1¸Ì¡A¦b5min©Î10min©ÎÀH¾÷¡Hmin­n§â¾ã­Ó2¦C´_»s¤U¨Ó¡AA2-D2¦]¬°¬O¶×¤Jªºdde¼Æ­È·|¸òµÛ¸õ°Ê¡A¤£ª¾¦³¦ó¤èªk¬O¥iÅý¨ä¦bÀH¾÷´_»s¤U¨Ó®É¼Æ­È¤£·|¸õ°Ê¡H

New´Á.rar (88.38 KB)

slip

TOP

¦^´_  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

TOP

¦^´_ 19# c_c_lai


    sorry§Úªº·N«ä¬O¡A­n¦b¤£¯S©wªº®É¶¡(¶}½L«áddeªº¼Æ­È¤@ª½¦b¸õ°Ê¡A¥i¬O¥i¯à§Ú¦b¬Y­Ó®É¶¡¬Ý¨ì¦³®Ä°µ³æªº°Ñ¦Ò¼Æ­È®É¡A§Ú·Q§â¾ã­Ó2¦C´_»s¤U¨Ó¡A¦ý¬O´_»s¤U¨Óªº­È¬Odde¨ç¼Æ¡A¦]¦¹¼Æ­ÈÁÙ¬O·|¸õ°Ê¡A¬O·Q¦³¨S¦³¿ìªk´_»s¤U¨Ó®Éªº¼Æ­È¬O©T©wªº)¡C³o¬O¦³¿ìªk°µ¨ìªº¡H
slip

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD