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

½Ð°Ý°ª¤â­n±N¥H¤UDDE ¨C¤ÀÄÁ°O¿ý§ï¬°30¬í¦Û°Ê°O¿ý¤@¦¸­n«ç§ï

¦^´_ 120# areskevin
¥[¤J¦Û°Ê§PÂ_½s¦C¤é´Á¤§¹ïÀ³¼g¤J¡A
¨Ñ§A´ú¸Õ°Ñ¦Ò¡G
¨C¤À°O¿ý2.rar (15.64 KB)

TOP

¦^´_ 120# areskevin
¸Õ¸Õ¬Ý¬O§_¬O§Aªº´£°Ý¡G
  1. Public Sub Timer()
  2.     Dim Pos As Long, HHMM As Integer
  3.         
  4.     With Sheets("¨C¤À°O¿ý")
  5.         HHMM = Hour(Now) * 100 + Minute(Now)
  6.         If (HHMM < 900 Or HHMM > 1333) Then Exit Sub
  7.    
  8.         .Cells(2, 4) = Now
  9.         Pos = .Range("A" & Rows.Count).End(xlUp).Row + 1
  10.         .Cells(Pos, 1) = Format(.Cells(2, 4), "HH:MM:SS")
  11.         .Cells(Pos, 2) = .Cells(2, 2)
  12.         .Cells(Pos, 3) = .Cells(2, 3)
  13.     End With
  14.    
  15.     '  Application.OnTime Now + TimeValue(LastMin), "ThisWorkbook.Timer"
  16.     Application.OnTime Now + TimeValue("00:01:00"), "ThisWorkbook.Timer"
  17. End Sub
½Æ»s¥N½X

TOP

¦^´_ 120# areskevin
§A³]¤F¤@­Ó Public Sub Timer() ªº¼Ò²Õªº¶}©l¡A
«o¨S¦³¼Ò²Õªºµ²§ô (End Sub)¡A©Ò¥H·|²£¥Í°õ¦æ¤§¿ù»~¡C
§¹¾ãªº¼Ò²ÕÀ³¬°¡G
  1. Public Sub Timer()
  2.     Dim Pos, i, HHMM As Integer, RangeStr As String
  3.         
  4.     On Error Resume Next
  5.     Sheets("¨C¤À°O¿ý").Cells(2, 4) = Time
  6.    
  7.     HHMM = Hour(Time) * 100 + Minute(Time)
  8.     If (HHMM < 900 Or HHMM > 1333) Then Exit Sub
  9.         
  10.     With Sheets("¨C¤À°O¿ý")
  11.         .Cells(2, 2) = .Cells(2, 2) + 1
  12.         Pos = .Cells(2, 2)
  13.         .Cells(Pos, 1) = Time
  14.         .Cells(Pos, 2) = .Cells(2, 2)
  15.         .Cells(Pos, 3) = .Cells(2, 3)
  16.     End With
  17.    
  18.     Application.OnTime Now + TimeValue(LastMin), "ThisWorkbook.Timer"
  19. End Sub
½Æ»s¥N½X
¦ý¬O§Ú¹ê¦b¬Ý¤£À´ With Sheets("¨C¤À°O¿ý") ùØÀY
¨s³º¦b´y­z¬Æ»ò¡A·Q­n°µ¬Æ»ò¡C
¦]¬° .Cells(2, 2) ¤º®e¹ê»Ú¤W«üªº¬O "=(¤º¥~½L!D35)"¡C

TOP

¦^´_ 12# c_c_lai

DEAR c_c_lai¤j¡G

³Ìªñ¦]¬°¦³¨C¤À°O¿ý»Ý¨D¡A
©Ò¥H¦b¥¿¾Ç²ß
¥¿¦n¬Ý¨ì©«¤l«á
´N­×§ï¤F¤@¤U±zµ¹ªºµ{¦¡½X¡A
¦ý¥Ø«eµLªk¦p´Á±Ò°Ê
¥i§_ªþ¤WÀÉ®×µ¹±z¬Ý¤@¤U¬O­þ¸Ì¥X¿ù¤F¶Ü¡H
¥i§_Åý¥L¨C¤Ñ¦sÀÉ¡A
¹j¤é¥i¥H¦Û¤v¸õ¨ìÀ³¦³ªº®É¶¡¥h©O¡H
¨C¤À°O¿ý.rar (148.43 KB)
½Ð¦h«ü±Ð
ÁÂÁ±z

TOP

C_C lai ¤j¤j ±z¦n:
   ¤p§Ì¬O¤p¾Ç¥Í¡A¦]Åv­­¤£¨¬¡A¨S¿ìªk¬Ý¨ì¨ä¤¤ªºµ{¦¡½X¡C
       1.¦Û°Ê°O¿ý¨C¤ÀÄÁ©e¶R½æ§¡­È.rar
       2.¤¸¤j½L¤¤DDE¬ö¿ý(office 2010ª©)
       ¬O§_¯à±H¨ì§Úªº«H½c¡C·P®¦!!
  [email protected]
ÁÂÁ¤j¤jÀ°¦£

TOP

¦^´_ 111# c_c_lai

C_C lai ¤j¤j ±z¦n:
   ¤p§Ì¬Oµæ³¾¡A¦]Åv­­¤£¨¬¡A¨S¿ìªk¬Ý¨ì¨ä¤¤ªºµ{¦¡½X¡C
       1.¦Û°Ê°O¿ý¨C¤ÀÄÁ©e¶R½æ§¡­È.rar
       2.¤¸¤j½L¤¤DDE¬ö¿ý(office 2010ª©)
       ¬O§_¯à±H¨ì§Úªº«H½c¡C·P®¦!!
   [email protected]

TOP

¦^´_ 111# c_c_lai

C_C lai ¤j¤j ±z¦n:
     ±ß½ú¬O³Ìªñ­è±µÄ²VBAªº·s¾Ç¥Í¡A¦]Åv­­¤£¨¬¡A¨S¿ìªk¬Ý¨ì¨ä¤¤ªºµ{¦¡½X¡C
       1.¦Û°Ê°O¿ý¨C¤ÀÄÁ©e¶R½æ§¡­È.rar
       2.¤¸¤j½L¤¤DDE¬ö¿ý(office 2010ª©)
       ¬O§_¯à±H¨ì§Úªº«H½c¡C

TOP

¦^´_ 88# c_c_lai

C_C lai ¤j¤j ±z¦n:

§Ú¤]¬O·s¾Ç¥Í¡A¦]Åv­­¤£¨¬¡A½Ð°Ý¥i§_§â
1.¦Û°Ê°O¿ý¨C¤ÀÄÁ©e¶R½æ§¡­È.rar
2.¤¸¤j½L¤¤DDE¬ö¿ý(office 2010ª©)

±H¨ì¤p§Ìªº«H½c,·P®¦!

TOP

¦^´_ 114# coco2376
¤H¥ÍÁ`¬O·|²Â¤@¦¸¡A²Ä¤G¦¸«K¦¨¤F¦Ñ³¾¤F¡I

TOP

¦^´_ 112# c_c_lai


    C¤j§Ú·d©w¤F ­ì¨Óª½±µ§â¸ê®Æ§R±¼ ¥L´N·|­«ÀY¶}©l°µ §Ú§Ë¦n¤F §Ú²Â²Â
ÁÂÁ±z©Ô:lol

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD