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

GBKEE

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

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«ü¼Æ]

GBKEE

¦^´_ 30# cfuxiong

1. .Cells(Pos, 2).Resize(, 8) = .[b2:i2].Value
   
2.             ' ****** Sheets("µ¦²¤°O¿ý").[b2:i2] ¤À§O¬O¥H¤UªºDEE   ******
   
3.            '****[¦hªÅ¤O¹D][¤Ï¦V¶Õ¤O][¥D¤O±±½L][¥x«ü´Á ¦¨¥æ»ù][¥x«ü´Á ¦¨¥æ»ù][¼¯¥x«ü][Áú°êºî¦X][¤é¸g«ü¼Æ]****

½Æ»s¥N½X

24#µ{¦¡½X : ¤u§@ªí Sheets("µ¦²¤°O¿ý").[B2:I2] ³o8­ÓÀx¦s®æ ,­n§ï¦¨¨º¨ÇDEEªº¤½¦¡
                      µ{¦¡¨C¹j?¬í,­n§ì¨ú.[b2:i2].Value ³o¨Ç¸ê®Æ¨ì  .Cells(Pos, 2).Resize(, 8) ³o¸Ì
§¹¦¨¤W­±¨BÆJ,VBA µøµ¡¸Ì:ThisWorkbook¼Ò²Õ §R±¼©Ò¦³µ{¦¡½X ,¶K¤W 24# ©Ò¦³µ{¦¡½X?
©ú¤Ñ¬Ý¬O§_¦¨¥\!!!!

GBKEE

¦^´_ 32# cfuxiong
This Workbook¤w§ï¦¨¡F'Sheets("µ¦²¤°O¿ý").[b10:g10] ¤À§O¬O¥H¤UªºDEE
¦p¹Ï ¤u§@ªí¤]­n§ï:¿é¤J¤½¦¡(¹Ï¤¤¬O¥Ü½dªº¤½¦¡,¬Ý¨º¨ÇDEE¦b­þ¸Ì)

¤U¸ü (22.85 KB)

2012-12-10 07:13

ªþÀɪºµ{¦¡½X§A¦³­×§ï:§A¶·¦A­×§ï

1. With Sheets("µ¦²¤°O¿ý")
   
2.             .Cells(4, 2) = .Cells(4, 2) + 1 '±NÅܰʦ渹¥[¤@¦æ
   
3.             Pos = .Cells(4, 2)
   
4.             .Cells(Pos, 1) = Time
   
5.          '   .Cells(Pos, 2).Resize(, 8) = .[b10:g10].Value  'b10:g10 ¥u¦³6Äæ  ¥B¦ì§}¤]¤£¹ï
   
6.             .Cells(Pos, 2).Resize(, 6) = .[b2:g2].Value   '­n­×§ï¬° 6
   
7.             'Sheets("µ¦²¤°O¿ý").[b2:i2] ¤À§O¬O¥H¤UªºDEE
   
8.             '[¦hªÅ¤O¹D][¤Ï¦V¶Õ¤O][¥D¤O±±½L][¼¯¥x«ü][Áú°êºî¦X][¤é¸g«ü¼Æ]  '¥u¦³6Äæ
   
9.         End With

½Æ»s¥N½X

Mod 60 = 0 Then¡A¶¡¹j60¬í    ¸Õ¸Õ´Nª¾

GBKEE

¦^´_ 37# cfuxiong
µ{¦¡½X¤¤ ¨C¦æµ{¦¡½X «e­±ªº ' ¬O§@¬°µ{¦¡½Xªºµù¸Ñ(¸ÑÄÀ¥Î) µ{¦¡¤£·|°õ¦æªº

1. If Time < #9:00:00 AM# Or Time > #1:30:00 PM# Then Exit Sub  'Àç·~®É¶¡¤~°õ¦æ
   
2.     If Second(Time) Mod 60 = 0 Then '¶¡¹j60¬í         
   
3.     'If Second(Time) Mod 5 = 0 Then '¶¡¹j5¬í 10¬í 15¬í ....  ³o¦æ¬Oµù¸Ñ¸ÑÄÀ Á|¦C 5 ¬°¨C5¬í  Ãþ±À....     
   
4.         With Sheets("µ¦²¤°O¿ý")
   
5.             .Cells(4, 2) = .Cells(4, 2) + 1 '±NÅܰʦ渹¥[¤@¦æ
   
6.             Pos = .Cells(4, 2)
   
7.             .Cells(Pos, 1) = Time
   
8.           '  .Cells(Pos, 2).Resize(, 8) = .[b10:g10].Value   '** ¦p°õ¦æ¦¹¦æ ·|¦³2­Ó "#NA"
   
9.              '  ***** Resize(, 8)³o¸Ì¬O8Äæ  ,[b10:g10]  ³o¸Ì b:g  ¥u¦³6Äæ
   
10.             .Cells(Pos, 2).Resize(, 6) = .[b2:g2].Value   ' °õ¦æ¦¹¦æ´N¥i¥H  ** ­n­×§ï¬° 6¤Î¦ì§} **
    
11.             'Sheets("µ¦²¤°O¿ý").[b2:i2] ¤À§O¬O¥H¤UªºDEE
    
12.             '[¦hªÅ¤O¹D][¤Ï¦V¶Õ¤O][¥D¤O±±½L][¼¯¥x«ü][Áú°êºî¦X][¤é¸g«ü¼Æ]  '¥u¦³6Äæ
    
13.         End With
    
14.     End If

½Æ»s¥N½X

GBKEE

¦^´_ 40# cfuxiong
38# : ¥u§ï¨ìÄæ¼Æ,¨S§ï¨ì¦ì§}!!!  ,¤w§ó¥¿¥i¦A°Ñ¦Ò¤@¤U!

1. 
   
2.             ' .Cells(Pos, 2).Resize(, 8) = .[b10:g10].Value  'b10:g10 ¥u¦³6Äæ ***³o¦æ¤£­n¤F****
   
3.            ' .Cells(Pos, 2).Resize(, 6) = .[b10:g10].Value   '¥u­n­×§ï¨ìÄæ¼Æ¬° 6 , ¨S§ï¨ì¦ì§}
   
4.              .Cells(Pos, 2).Resize(, 6) = .[b2:g2].Value   ' *** ³o¤~§¹¥þ¥¿½T ***

½Æ»s¥N½X