Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


23008 / 76732 ←次へ | 前へ→

【59095】得意先別の並べ替え
質問  おしりかじり虫  - 08/11/28(金) 11:27 -

引用なし
パスワード
   お世話になります。
VBAで得意先別に売上データを並べ変えたいと思っています。
(実際は得意先別>売上日昇順>回収日昇順の3つの条件)

 Sheets("売上T(売掛金用)").Select
 Worksheets("売上T(売掛金用)").Sort.SortFields.Clear
 Worksheets("売上T(売掛金用)").Sort.SortFields.Add Key:= _
  Range(Range("D2"), Range("D2").End(xlDown)), _
  SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
  "(株)××,(株)○○,(株)△▽,・・・(数十件の顧客名)・・・" _
  , DataOption:=xlSortNormal

 With Worksheets("売上T(売掛金用)").Sort
   .SetRange Range(Range("H1"), Range("A1").End(xlDown))
   .Header = xlYes
   .MatchCase = False
   .Orientation = xlTopToBottom
   .SortMethod = xlPinYin
   .Apply
 End With

上記でやってみると並べ替えができるのですが、得意先も社名変更があったり
付き合いが無くなったり、もちろん新規ができたりするので
あるセル範囲を指定して、そのデータを元に並べ替えしてくれるもの
を作りたいです。そこで、

 Sheets("売上T(売掛金用)").Select
 Worksheets("売上T(売掛金用)").Sort.SortFields.Clear
 Worksheets("売上T(売掛金用)").Sort.SortFields.Add Key:= _
  Range(Range("D2"), Range("D2").End(xlDown)), _
  SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
  sheets("得意先T").Range(Range("A2"), Range("A2").End(xlDown)) _
  , DataOption:=xlSortNormal

 With Worksheets("売上T(売掛金用)").Sort
   .SetRange Range(Range("H1"), Range("A1").End(xlDown))
   .Header = xlYes
   .MatchCase = False
   .Orientation = xlTopToBottom
   .SortMethod = xlPinYin
   .Apply
 End With

上記のような文を作ってみたのですがうまくいきません。
いろいろ調べてみたのですが、直接並べ替えるデータをVBAに書き込む以外の
方法が見つかりませんでした。

解る方いらっしゃいましたら、ご指導ください。
1 hits

【59095】得意先別の並べ替え おしりかじり虫 08/11/28(金) 11:27 質問
【59097】Re:得意先別の並べ替え Jaka 08/11/28(金) 12:57 発言
【59098】??? おしりかじり虫 08/11/28(金) 13:25 質問
【59099】Re:??? Jaka 08/11/28(金) 13:35 発言
【59101】それだとあまり良くないんです。 おしりかじり虫 08/11/28(金) 15:38 質問
【59102】Re:それだとあまり良くないんです。 Jaka 08/11/28(金) 15:51 発言
【59107】Re:それだとあまり良くないんです。 Hirofumi 08/11/28(金) 18:24 発言
【59112】それもあまりよくないんです。 おしりかじり虫 08/11/29(土) 8:41 質問
【59113】Re:得意先別の並べ替え かみちゃん 08/11/29(土) 9:44 発言
【59381】解決しました!(条件付きで) おしりかじり虫 08/12/9(火) 11:41 お礼

23008 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free