onl********

2010/6/24 10:11

11回答

ユーザー定義のソート順の設定について

ユーザー定義のソート順の設定について ユーザー定義した順番でソートするVBAコードを教えてください。 リスト形式のデータがあり、F列（F1は見出し）には所属データが入っています。所属名は、「Belco店、総務課、アオキ支店、人事課、経理課、ワカヤマ支店」とランダムに入力されており、それをユーザーが指定する順番で並び替えるVBAコードをご教示ください。 ユーザー指定の順番：総務課、人事課、経理課、ワカヤマ店、Belco店、アオキ店 以下は、Ｆ列をただ単にマクロ記録でソートさせたコードですが、上記のユーザー指定の所属名をどこに、どのように、挿入すればいいのでしょうか？ sub 所属順() Selection.Sort Key1:=Range("F11"), Order1:=xlDescending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption1:=xlSortNormal end sub

補足

早速のご教示ありがとうございます。 早速試しましたところ、「実行時エラー"438" オブジェクトは、このプロパティまたはメソッドをサポートしていません。」とのエラーが表示されました。 操作環境を添えず失礼しました。当方未だにExcel97を使用しています。ダメでしょうかね？？？

Visual Basic・6,559閲覧

ベストアンサー

ID非表示

2010/6/25 14:26（編集あり）

こんなかんじはいかがですか ------------ Sub Macro() ActiveSheet.Sort.SortFields.Add Key:=Selection, _ SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _ "総務課,人事課,経理課,ワカヤマ店,Belco店,アオキ店" Selection.Sort Key1:=Range("F1"), Order1:=xlDescending, Header:=xlGuess _ , OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _ SortMethod:=xlPinYin, DataOption1:=xlSortNormal End Sub ************** 補足拝見しました。 ActiveSheet.Sort.SortFields.Add という記述は2007でないと通らないんですね。 わたしも不勉強でした。 以下のコードもお試しください。 Sub Macro() Application.AddCustomList ListArray:=Array("総務課", "人事課", "経理課", "ワカヤマ店", "Belco店", "アオキ店") Selection.Sort Key1:=Range("F1"), Order1:=xlDescending, Header:=xlGuess _ , OrderCustom:=Application.CustomListCount, MatchCase:=False, _ Orientation:=xlTopToBottom, SortMethod:=xlPinYin, DataOption1:=xlSortNormal 'リストから消す場合は、↓も 'Application.DeleteCustomList (Application.CustomListCount) End Sub

この回答はいかがでしたか？ リアクションしてみよう

ThanksImg質問者からのお礼コメント

お世話になりました。何とかできるようになりました。 これからも、他の件で質問させてもらったときは、またまたご教示をお願いします。 そのときは、忘れずに「Excel 97」と明記します。すみませんでした。

お礼日時：2010/6/26 20:23