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に書き込む以外の
方法が見つかりませんでした。

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

2 hits

▼

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

≪