­ã´£³¡ªL

Sub ©e¶R©e½æ1¤ÀÄÁ()
Dim r&
Range("a2").Value = Time
If Range("A1") = "°±¤î¤¤" Then Exit Sub
If Second(Time) = 0 Then
¡@¡@r = Cells(Rows.Count, 1).End(xlUp).Row + 1
¡@¡@If r < 13 Then r = 13
¡@¡@Range("A" & r & ":K" & r) = [A2:K2].Value
¡@¡@
¡@¡@r = r - 4: If r < 13 Then r = 13
¡@¡@[N3:N7] = Range("A" & r).Resize(5).Value
¡@¡@[O3:O7] = Range("D" & r).Resize(5).Value
¡@¡@[P3:Q7] = Range("G" & r).Resize(5, 2).Value
End If
Application.OnTime Now + TimeValue("00:00:01"), "¤u§@ªí1.©e¶R©e½æ1¤ÀÄÁ"
End Sub
¡@
'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
Sub ²M°£¼Æ¾Ú()
Dim r&
Cells.EntireColumn.Hidden = False '§âÁôÂó£¨ú®ø'
r = ActiveSheet.UsedRange.Rows.Count
If r > 12 Then Range("A13:K" & r).EntireRow.Delete
Columns("B:C").EntireColumn.Hidden = True 'ÁôÂÃBC¦C
Columns("E:F").EntireColumn.Hidden = True 'ÁôÂÃEF¦C
[N3:Q7].ClearContents
End Sub


'¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×¡×
¤½¦¡ªk¡G¢ß¢±¡e§¡®t¡f§ï¬°¡e§¡¤f®t¡f
¢Û¢²¡G=MAX(12,MATCH(9^9,$A:$A)-5)+ROW(A1)
¢Ü¢²¡G=IF(INDEX($A:$A,$M3)="","",INDEX($A:$K,$M3,MATCH(N$2,$A$12:$K$12,)))¡@¥k©Ô¤U©Ô