- ベストアンサー
マクロの解析してください。
仕事で使うようになったファイルにマクロが登録してありました。 一体、何をしているのかわかる方お願いします。 Selection.Sort Key1:=Range("A4"), Order1:=xlAscending, Key2:=Range("B4") _ , Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False _ , Orientation:=xlTopToBottom, SortMethod:=xlPinYin End Sub と、あるのですが宜しくお願いします。
- みんなの回答 (2)
- 専門家の回答
質問者が選んだベストアンサー
>Selection.Sort 選択された範囲を並べ替えろ >Key1:=Range("A4"), 最優先の並べ替えはA列で行え >Order1:=xlAscending 並べ替え順序は昇順で >Key2:=Range("B4") 第2に優先するキー列はB列で行え >Order2:=xlAscending その昇順・降順は昇順で並べ替えろ > Header:=xlYes タイトル行を指定 >MatchCase:=False 大文字と小文字を区別しないでよい >Orientation:=xlTopToBottom 並べ替えの方向 >OrderCustom:=1 並べ替えの順序の指定 >xlPinYin 読み(音読み)順 後半は並べ替えの操作の「オプション」の指定を反映している。 別シートで、マクロの記録をセットして、並べ替えの操作を行い、色々 操作を変えて記録し、どこがどう変わるか見てみてください。 Header以下があるところから、元のマクロはマクロの記録をとったか、それをコピーしものと思われます。 http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_01.html 下記に上記回答に似た内容があります。 http://www.happy2-island.com/excelsmile/smile03/capter00705.shtml
その他の回答 (1)
- hana-hana3
- ベストアンサー率31% (4940/15541)
お使いのファイルのどこかに並べ替えが必要なシートはありませんか? 若しくは、マクロ作成時のテストやサンプル(記録マクロ等)にした残骸かも知れません。 >Selection.Sort 選択範囲の並べ替えをします。 それ以後は、並べ替えを行うためのパラメーターが続きます。(通常は全て指定する必要はありません。) >Key1:=Range("A4"), Order1:=xlAscending, 一つ目の項目はシートのA4を基準にアスキー順に並べ替えます。 >Key2:=Range("B4") , Order2:=xlAscending 2つめの項目はシートのB4を基準にアスキー順に並べ替えます。 >Header:=xlYes 最初(一番上)のセルは項目名(見出し) あとは、VBAのヘルプでSORTを見てください。 マクロの記録で並べ替えを登録してみるのも良いかも。