[µo°Ý] ½Ð±Ð°±¤î°õ¦æ¤½¦¡

²Â¤p«Ä

«ö°Ê«ö¶s«á·Q©ó«ü©w®É¶¡¤º°±¤î°õ¦æ¥H¤U¤½¦¡¤º°Ê§@¡A½Ð¦Ñ®v©M¦P¾Ç­ÌÀ°¦£§¹¦¨§Ú³o­Ó¤p»s§@§a¡IÁÂÁÂ

Sub «ö¶s1_Click()

    Application.OnTime Now + TimeValue("00:01:00"), "«ö¶s1_Click"
   
    Range("A1:D10").Value = Range("I1:L10").Value
   
    Range("A1:D10").Select
    Selection.Sort Key1:=Range("B1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
        :=xlStroke, DataOption1:=xlSortNormal
    Range("G1").Select
   
End Sub