½Ð°Ý°ª¤ân±N¥H¤UDDE ¨C¤ÀÄÁ°O¿ý§ï¬°30¬í¦Û°Ê°O¿ý¤@¦¸n«ç§ï
- ©«¤l
- 2035
- ¥DÃD
- 24
- ºëµØ
- 0
- ¿n¤À
- 2031
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-22
- ³Ì«áµn¿ý
- 2024-2-1
|
¦^´_ 127# areskevin - Option Explicit
- Dim LastMin As String
- Private Sub Workbook_Open()
- LastMin = "00:01:00"
- 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 Long, HHMM As Integer, col As Variant
-
- With Sheets("¨C¤À°O¿ý")
- HHMM = Hour(Now) * 100 + Minute(Now)
- If (HHMM < 900 Or HHMM > 1333) Then Exit Sub
-
- .Cells(2, 4) = Now
- Set col = Range(.Range("A5"), .Cells(5, .[A4].End(xlToRight).Column)).Find(Format(.Cells(2, 4), "M/D"), LookIn:=xlValues, LookAt:=xlWhole)
- Pos = .Cells(Rows.Count, col.Column - 1).End(xlUp).Row + 1 ' §¡¥H¨ä¬Û¹ïÀ³¤§·í¤é (col) ¬°°ò·Ç (Pos = 6 : Long)
- ' Pos = .Range("A" & Rows.Count).End(xlUp).Row + 1
- .Cells(Pos, col.Column - 1) = Format(.Cells(2, 4), "HH:MM:SS")
- .Cells(Pos, col.Column) = .Cells(2, 2)
- .Cells(Pos, col.Column + 1) = .Cells(2, 3)
- End With
-
- Application.OnTime Now + TimeValue(LastMin), "ThisWorkbook.Timer"
- ' Application.OnTime Now + TimeValue("00:01:00"), "ThisWorkbook.Timer"
- End Sub
½Æ»s¥N½X ¦¬¦¬ Mail¡I
|
|
|
|
|
|
|