c_c_lai

¦^´_  c_c_lai
c_c_lai¤j§A¦n¡F
¯à§_§â ªþ¥ó¡iµ¦²¤°O¿ý¡jÄæ[¼¯¥x][Áú°ê][¤é¥»]¤]¼W¦C¨C30¬í°O¿ý¡H
³s¦P ...
cfuxiong µoªí©ó 2012-12-8 12:53

¬Ý¤F§Aµ¦²¤°O¿ýªº¤º®e¡A¶×¤J®É¶¡¬O©T©wÄæ¬ö¿ý®É¶¡
(¥Ø«e¬O¨C¤@¤ÀÄÁ°O¿ý¤@µ§)¡A§A»¡ªº "¤]¼W¦C" ¨C30¬í°O¿ý¡H
¤£¤Ó©ú¥Õ§A·Qªº¬O¬Æ»ò¡H
¤S¡B [¼¯¥x][Áú°ê][¤é¥»] ¸ê®Æ·½¦b­þ¸Ì¡H

cfuxiong

¦^´_ 21# c_c_lai
c_c_lai¤j ¦­¦w¡F
­z»¡¤£²M·¡¡A¹ï¤£°_..­«·s»¡©ú¡F
[¼¯¥x][Áú°ê][¤é¥»]¦b¡iDDE³ø»ù¡jÄæ¡A¨C[1¤À]°O¿ý§Y¥i
(¸ê®Æ½d³òÄݩʬO1¤À§ó·s)¡C[¥x«ü´Á]´N¤£¥Î¤F..´î¤Ö®ö¶O¹q¸£¸ê·½¡A
Àµ½Ð¯àÀ°¦£..ÁÂÁÂ!!...§ÚEMail¡G[email protected] Åwªï¨Ó¨ç

cfuxiong

¦^´_ 21# c_c_lai

§Ñ¤F¸É¤W(ªþ¥ó)...

GBKEE

¦^´_ 23# cfuxiong
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Private Sub Workbook_Open()
   
3.     With Sheets("µ¦²¤°O¿ý")
   
4.         .Cells(4, 2) = 9 ' ¬ö¿ý±q10¦C¶}©l
   
5.         .Range(.Cells(10, 1), .Cells(10, 1).End(xlDown).Offset(, 8)) = ""
   
6.         '²M°£ ¦³¸ê®Æ
   
7.     End With
   
8.     Timer_DEE
   
9. End Sub
   
10. Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
11.     On Error Resume Next
    
12.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer_DEE", , False
    
13. End Sub
    
14. Public Sub Timer_DEE()
    
15.     'Timer ¨ç¼Æ ¶Ç¦^¤@ Single¡A¨ä¤º®e¬°±q«e¤@­Ó¤È©]ºâ°_¨ì²{¦b©Ò¸g¹Lªº¬í¼Æ¡C
    
16.     'ÅܼÆ,µ{§Ç:¦WºÙ­nÁקK¨Ï¥ÎVBA ªº¤º©wÃöÁä¦r
    
17.     Dim Pos As Integer, i As Integer, RangeStr As String
    
18.     On Error Resume Next
    
19.     Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer_DEE"    '¨C¬íÅã¥Ü
    
20.     Sheets("µ¦²¤°O¿ý").Cells(3, 2) = Time                                   '±N®É¶¡show¦Üµ¦²¤ªºb3Äæ¦ì
    
21.     'Dim HHMM As Integer
    
22.     'HHMM = Hour(Time) * 100 + Minute(Time)
    
23.     'If (HHMM < 845 Or HHMM > 1345) Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
    
24.     If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub  'Àç·~®É¶¡¤~°õ¦æ
    
25.     If Second(Time) Mod 30 = 0 Then '¶¡¹j30¬í
    
26.     'If Second(Time) Mod 5 = 0 Then '¶¡¹j5¬í 10¬í 15¬í ....
    
27.         With Sheets("µ¦²¤°O¿ý")
    
28.             .Cells(4, 2) = .Cells(4, 2) + 1 '±NÅܰʦ渹¥[¤@¦æ
    
29.             Pos = .Cells(4, 2)
    
30.             .Cells(Pos, 1) = Time
    
31.             .Cells(Pos, 2).Resize(, 8) = .[b2:i2].Value
    
32.             'Sheets("µ¦²¤°O¿ý").[b2:i2] ¤À§O¬O¥H¤UªºDEE
    
33.             '[¦hªÅ¤O¹D][¤Ï¦V¶Õ¤O][¥D¤O±±½L][¥x«ü´Á ¦¨¥æ»ù][¥x«ü´Á ¦¨¥æ»ù][¼¯¥x«ü][Áú°êºî¦X][¤é¸g«ü¼Æ]
    
34.         End With
    
35.     End If
    
36. End Sub

½Æ»s¥N½X

c_c_lai

¦^´_ 23# cfuxiong
¤W¼h GBKEE ª©¤j´£¥Üªº©ú²Ó½d¨Ò¡A
¬O§_¤w¸Ñ¨M¤F§Aªº°ÝÃD¡H

cfuxiong

¦^´_ 25# c_c_lai
c_c_lai¤j§A¦n¡F
§Ú·Ó[GBKEE¤j]ªº«ü¾É¡A½Æ»s¶K¤W¤£ª¾¬O§_¥i¦æ¡H´N«Ý©ú¤Ñ´ú¸Õ¤F!!
ªþ¥ó¬O¦³¥[[GBKEE¤j]ªº¥¨¶°¡A½Ð[c_c_lai¤j][GBKEE¤j]«ü¾É..ÁÂÁÂ!!

GBKEE

¦^´_ 26# cfuxiong
¤£¬O¥[¤W: ¬O­n­×§ïThisWorkbook ¤Wªºµ{¦¡½X (copy Âл\±¼ ThisWorkbook ¤Wªºµ{¦¡½X)

cfuxiong

¦^´_ 27# GBKEE
GBKEE¤j§A¦n¡F
¯àµ¹­Ó¥¿½Tªº[ZipÀÉ]Åý§Ú¾Ç²ß¶Ü¡HÁÂÁÂ~~

GBKEE

¦^´_ 28# cfuxiong
¨S¦³¨º»òÃøªº,·Ó§Ú»¡ªº¥h¸Õ¸Õ¬Ý!!!

³o¸Ì§ï¨Ì§ï´N¥i  
'Sheets("µ¦²¤°O¿ý").[b2:i2] ¤À§O¬O¥H¤UªºDEE
'[¦hªÅ¤O¹D][¤Ï¦V¶Õ¤O][¥D¤O±±½L][¥x«ü´Á ¦¨¥æ»ù][¥x«ü´Á ¦¨¥æ»ù][¼¯¥x«ü][Áú°êºî¦X][¤é¸g«ü¼Æ]

cfuxiong

¦^´_ 29# GBKEE §â
[¥x«ü´Á]§R°£...¦p¦¹§ï¹ï¶Ü¡H
'Sheets("µ¦²¤°O¿ý").[b10:i10] ¤À§O¬O¥H¤UªºDEE
            '[¦hªÅ¤O¹D][¤Ï¦V¶Õ¤O][¥D¤O±±½L][¼¯¥x«ü][Áú°êºî¦X][¤é¸g«ü¼Æ]
        End With
    End If
End Sub