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

½Ð±Ð¤@­Ó¦Û°Ê°O¿ý¿z¿ï¸ê®Æªº°ÝÃD

½Ð±Ð¤@­Ó¦Û°Ê°O¿ý¿z¿ï¸ê®Æªº°ÝÃD

½Ð°Ý¦U¦ì«e½ú
§Ú¼g¤F¤@­Ó¦ê±µdde¸ê®Æ¨Ã¨C¤ÀÄÁ¦Û°Ê°O¿ýªºµ{¦¡
§Ú·Q¥t¥~§â°O¿ý¹Lµ{¤¤³Ì·sªº5µ§¸ê®ÆÅã¥Ü¦b¥t¤@­Ó°Ï°ì
¤£¾å±o³o¸Ó«ç»ò¼¶¼g!!

§Ú·Q¹L¨C¤ÀÄÁ¥[¤J¿z¿ïªº¤è¦¡¥h¹LÂo!!
¦ý·§©ÀÁ٫ܼҽk,¤W¨Óµo¤å§Æ±æ¯à¦³«e½ú
Ä@·N±Ð¾É¤@¤U!!!
·PÁ¤F!

@ÀH¤åªþÀÉ
¦Û°Ê°O¿ý20151021.rar (63.13 KB)

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©Ô

TOP

        ÀR«ä¦Û¦b : ¯à¥I¥X·R¤ß´N¬OºÖ¡A¯à®ø°£·Ð´o´N¬O¼z¡C
ªð¦^¦Cªí ¤W¤@¥DÃD