§R°£»P´¡¤J«ü©w½d³òªº¦C

myleoyes

¦U¦ì«e½ú§A­Ì¦n!
¡@¡@      «e½ú!°ÝÃD¤@, §R°£«ü©w½d³òªº¦C
               ¦pªþÀÉ®×Leov13
               °ÝÃD¤G, ´¡¤J«ü©w½d³òªº¦C
               ¦pªþÀÉ®×Leov14
          ½Ðª¾¹Dªº«e½ú,¤£§[½ç±ÐÁÂÁ¦A¤T!!

myleoyes

¦^´_ 2# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!´¡¤Jµ{¦¡§A¿òº|¤F¤U©Ô¤W¤@¦C¸ê®Æ
         ¤p§Ì¼õ©]«÷´ê¦p¤U
         Sub ´¡¤J()
             Dim R As Range
             Set R = ActiveCell
             If R.Column >= 5 And R.Column <= 31 Then
             If R.Row > 1 And Cells(Rows.Count, R.Column).End(xlUp).Row >= R.Row Then
             Range("E" & R.Row & ":AE" & R.Row).Insert
             End If
             Set R = ActiveCell
             Range("E" & R.Row - 1 & ":AE" & R.Row - 1).Copy
             ActiveCell.Select
             ActiveSheet.Paste
             Application.CutCopyMode = False
             End If
          End Sub
          ÁöµM¥i¥H¨Ï¥Î,¦ýÁ`¬O«÷´ê¥X¨ÓªºÁÙ¬O¦³³Ò¨}®v«ü¾É
          ¥¿½Tªº¤è¦¡,ªÈ¥¿©¹«á¾Ç²ßªº¤è¦V¯u¬O¨¯­W§AÅo!!
          ÁÂÁ¦A¤T!!

myleoyes

¦^´_ 4# GBKEE
GBKEE«e½ú§A¦n!
¡@¡@¡@¡@ ¨}®v!ÁÂÁÂ!¨¯­W§AÅo!!
           ÁÂÁ¦A¤T!!