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

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

¦^´_ 4# c_c_lai
½Ð±Ð c_c_lai¤j¤j
­Y§Ú­n¨C¤­¤ÀÄÁ¬ö¿ý´Á³fªº©e¶R¤f¼Æ ©e½æ¤f¼Æ ©e¶Rµ§¼Æ ©e½æµ§¼Æ ©e¶R§¡¤f ©e½æ§¡¤fµ¥§Y®É¸ê®Æ¡A§Ú­n¦p¦ó­×§ï¸Ì­±ªºÅܼÆ?

TOP

¦^´_ 55# devidlin
To devidlin:¶qºAªº­pºâ¤è¦¡¡A¦b[DDE³ø»ù]ªí®æ..´N¥i¬Ý¥X¡C
[¹Ïªí°Ï]¥i«ö[¥kÁä]±q[¨Ó·½¸ê®Æ]´N¥i¬Ý¥XºÝ­Ù¡C
§Ú¬O·s¤â..¬O±qª©¤W°ª¤â¤å³¹Àɮרִê¦Ó¦¨~~
³o¬O§Úª¾ªº½d³òµªÂЧA¡A¤]½Ðª©¤W°ª¤â¯àÀ°§A¸Ñµª...ÁÂÁÂ!!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 60# devidlin
§A¥i¥H±N§A¥Ø«e¹B¥Îªº Excel ÀɮפW¶Ç¡A©â®É¶¡§ÚÀ°§A¬Ý¬Ý¸Ó¦p¦ó­×¥¿¡A
¨C­Ó¤H³£¦U¦Û¦³¥L­Ì¹B§@ªº¼Ò¦¡»P³ß¦n¡B¥H¤Î¿W¨ì¨£¸Ñ¡Bµ¦²¤À³¥Î¡A
¤Á¤£­n§¹¥þ®M¥Î¥L¤Hªº¤º®e¥þ¼Æ§Ûŧ¡A¦p¦¹¨Ï¥Î°_¨Ó¤]§¹¥þ¨S¦³
­Ó¤Hªº­·®æ¤F¡B¥çµL­Ó¤H¤§¦¨´N·P¡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

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


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

¶qºA.zip (35.86 KB)

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

¦^´_ 21# c_c_lai


    ½Ð°Ý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

¦^´_ 20# cfuxiong


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

TOP

        ÀR«ä¦Û¦b : ¤H¥Í³Ì¤jªº¦¨´N¬O±q¥¢±Ñ¤¤¯¸°_¨Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD