三流君 ken3のmemo置き場

三流プログラマーのメモ書きです。主にVBAやWindowsの話題が多いです

挨拶・自己紹介:「こんな感じ」や「あの、あの」と活舌の悪い、
三流プログラマーのオッサンです
Ken3三流君へ問い合わせ・連絡先:
[Ken3(管理者)へメッセージを送る]， [YouTube動画にコメントを書く]
※↑質問・感想,コード修正・作成など気軽に送ってください。

2009-07-31

Excel マクロ記録を使ってソート処理のボタンを作る

動画解説

www.youtube.com
http://www.youtube.com/watch?v=zA4CVfjbNfI

Excel マクロ記録を使ってマクロを記録します。
次に、範囲を強引に9999行に直します。
※勝手にMAXは9999と決め打ちしました。

あとは、関数名を決めたら(変更したら)、
ボタンを作成して結びつけただけです。

Sub Run_Sort()
    Range("A10:F9999").Select 'ソート範囲を強引に9999行にする
    Selection.Sort Key1:=Range("A11"), Order1:=xlAscending, Key2:=Range("C11" _
        ), Order2:=xlAscending, Key3:=Range("E11"), Order3:=xlAscending, Header _
        :=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal, DataOption3:=xlSortNormal
        
    Range("A10").Select
End Sub