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

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

¦^´_ 50# c_c_lai
c_c_lai§A¦n¡F¬Oªº...§Ú¬O³sµ²ºô­¶ªº¡A²z½×¤W¬O¥i¥H¡A
¥u­n§ìºô­¶»PDDE³sµ²®É¤£­n¦P®É¶¡¡AÀ³¥i§ïµ½·mÀW¼eªº°ÝÃD¡C
©ú¤Ñ¹ê´ú¦A§i¶D§A..±ß¦w!!       EMail¡G[email protected]
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 50# c_c_lai
c_c_lai¤j¡F±ß¦w§A¦n
¸g5¤Ñªº¹ê´ú[DDE+ºô­¶]¬OOKªº¡C¦A¦¸ÁÂÁ±z³o»ò¼ö¤ßªºÀ°¦£¡C
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

«Ü¹ê¥Î¡A·PÁ±z´£¨Ñ¸Ô²Óªº¤º®e

TOP

¦^´_ 20# cfuxiong


    ½Ð°Ýc¤j¡AºA¶q.xlsÀɮפºªº  ¹Ïªí°Ïµ{¦¡½X­n¦p¦ó¼g¥X¨Ó?ÁÂÁ¡C
devidlin

TOP

¦^´_ 13# cfuxiong


    ½Ð°Ýc¤j¡AºA¶q.xlsÀɮפºªº  ¹Ïªí°Ïµ{¦¡½X­n¦p¦ó¼g¥X¨Ó?ÁÂÁ¡C
devidlin

TOP

¦^´_ 21# c_c_lai


    ½Ð°Ýc¤j¡AºA¶q.xlsÀɮפºªº  ¹Ïªí°Ïµ{¦¡½X­n¦p¦ó¼g¥X¨Ó?ÁÂÁ¡C
devidlin

TOP

¦^´_  c_c_lai


    ½Ð°Ýc¤j¡AºA¶q.xlsÀɮפºªº  ¹Ïªí°Ïµ{¦¡½X­n¦p¦ó¼g¥X¨Ó?ÁÂÁ¡C
devidlin µoªí©ó 2013-1-19 20:30

ºA¶q.xls ¦b­þ¸Ì¡H½Ð¤W¶ÇÀɮ׬ݬݡI

TOP

¦^´_ 57# c_c_lai


    ½Ð°Ñ¦Ò¡AÁÂÁ¡C

¶qºA.zip (35.86 KB)

devidlin

TOP

¦^´_ 58# devidlin
¦pªG§A¬O¦b°Ý¦p¦ó»s§@¹Ïªí¡A¥i½Ð°Ñ¦Ò¡G
K ½uªÑ²¼¹Ï¦p¦ó¯à»P¥D¤O¡B´²¤á¡B¤Î¦¨¥æ¶q½u¦@¦s¡H
©Î¥»½×¾Â¤º¨ä¥L¬ÛÃö¤§°Q½×¡A§A³£¥i¥H±q¤¤Àò¨ú¤£¿ùªº¹ê°ÈÃD§÷ªº¡C

TOP

¦^´_ 57# c_c_lai


    ¤p§Ì¤ñ¸û·M²Â¡Aµ{¦¡½X¦p¤U¡A¦pªG»¡¦b¹Ïªí°Ï­n¼W¥[¥x«ü´Á¨C¤ÀÄÁ¤§»ù®æÁܦp¦ó­×§ï?ÁÂÁ¡C

    Option Explicit
Dim LastMin As Integer

Private Sub Workbook_Open()
    Sheets("µ¦²¤°O¿ý").Cells(4, 2) = 10
    LastMin = Minute(Time)
    Call Timer
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer", , False
End Sub


Public Sub Timer()
    Dim Pos As Integer, i As Integer, RangeStr As String
        
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:01"), "ThisWorkbook.Timer" '¨C¬íÅã¥Ü
    Sheets("µ¦²¤°O¿ý").Cells(3, 2) = Time '±N®É¶¡show¦Üµ¦²¤ªºb3Äæ¦ì
    Dim HHMM As Integer
    HHMM = Hour(Time) * 100 + Minute(Time)
    If (HHMM < 845 Or HHMM > 2045) Then Exit Sub 'Àç·~®É¶¡¤~°õ¦æ
    If Minute(Time) <> LastMin Then '¶}©l«á°µ
        With Sheets("µ¦²¤°O¿ý")
            .Cells(4, 2) = .Cells(4, 2) + 1 '±NÅܰʦ渹¥[¤@¦æ
            Pos = .Cells(4, 2)
            .Cells(Pos, 1) = Time
            .Cells(Pos, 2) = .Cells(2, 2)
            .Cells(Pos, 3) = .Cells(2, 3)
            .Cells(Pos, 4) = .Cells(2, 4)
            .Cells(Pos, 5) = .Cells(2, 5)
            .Cells(Pos, 6) = .Cells(2, 6)
            .Cells(Pos, 7) = .Cells(2, 7)
            .Cells(Pos, 8) = .Cells(2, 8)
            .Cells(Pos, 9) = .Cells(2, 9)
            .Cells(Pos, 10) = .Cells(2, 10)
            .Cells(Pos, 11) = .Cells(2, 11)
         
        End With
   
        LastMin = Minute(Time)
    End If
End Sub
devidlin

TOP

        ÀR«ä¦Û¦b : «H¤ß¡B¼Ý¤O¡B«i®ð¤TªÌ¨ã³Æ¡A«h¤Ñ¤U¨S¦³°µ¤£¦¨ªº¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD