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

¦p¦ó±N¥x«ü´Áªº¨C¤@¤ÀÄÁ¸ê®Æ³£¬ö¿ý¦bsheet 1¸Ì..½Ð±Ðª©¤W°ª¤â«e½ú~~

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

TOP

¦^´_ 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ªï¨Ó¨ç
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 21# c_c_lai

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

§Y®É¶qºA.zip (35.92 KB)

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

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

TOP

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

TOP

¦^´_ 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]«ü¾É..ÁÂÁÂ!!

§Y®É¶qºA121209.zip (36.67 KB)

50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-9 12:49 ½s¿è

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

TOP

¦^´_ 27# GBKEE
GBKEE¤j§A¦n¡F
¯àµ¹­Ó¥¿½Tªº[ZipÀÉ]Åý§Ú¾Ç²ß¶Ü¡HÁÂÁÂ~~
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-12-9 14:09 ½s¿è

¦^´_ 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«ü¼Æ]

TOP

¦^´_ 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
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD