c_c_lai

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

¤U¸ü¦¸¼Æ: 25

2016-6-21 19:28

c_c_lai

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

c_c_lai

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

areskevin

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

¨C¤À°O¿ý
¤U¸ü¦¸¼Æ: 15

2016-6-21 12:15

½Ð¦h«ü±Ð
ÁÂÁ±z

leonfans

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À°¦£

twispin

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

kissk66

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

weimr

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

c_c_lai

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

coco2376

¦^´_ 112# c_c_lai


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