8.CSVのデータをキレイにお化粧1 　このマクロの主の部分です。帳票は店舗ごとの売上げ合計の一覧ですが、ＣＳＶデータは店舗ごとの並びではありませんので並び替えが必要です。また、ＣＳＶデータは各店舗ごとの売上げ明細なので、店舗ごとの集計も必要です。 　しかし、集計をするには並び替えが必要です。というわけで、まずはデータの並び替えから行ってみましょう。 プロシジャ「帳票編集」／まずはデータの並べ替え処理 　まずは、プロシジャを見てください。まずは、データの並べ替えを行う所まで作りました。 Sub 帳票編集() 　　'CSVデータの並べ替え（キーはＢ列／店舗コード） 　　Workbooks("uriage.csv").Activate 　　Workbooks("uriage.csv").Worksheets("uriage").Range("A1:M10000").Sort _ 　　　　Key1:=Range("B1") _ 　　　, Order1:=xlAscending _ 　　　, Header:=xlGuess _ 　　　, MatchCase:=False _ 　　　, Orientation:=xlTopToBottom _ 　　　, SortMethod:=xlPinYin End Sub 　最初に、ＣＳＶファイルのデータを並び替えます。並び替えは、Ｂ列（店舗コード）の昇順（小さい順）で行います。並び替えには指定した範囲(Range("A1:M10000"))に対してsortというメソッドで行います。 　なお、.Sortメソッドについては、エクセルマクロTipsの7.5 並べ替えをしてみようをどうぞ。 ソートでエラーになる？ 　ところで、Workbooks("uriage.csv").Activateという行があります。 　これは、指定したワークブックが エクセルの中で一番手前に表示されるという意味です。なぜここに入れているかというとこれが入っていないと、Sortメソッドがうまく行かないときがあるのですよ（泣） 　エクセルの仕様（要はバグ）ですかね。。。 テストしてみよう！ 　またまた、ここまでの内容で動かしてみましょう。帳票作成プロシジャを実行します。 　うまく動いたらＣＳＶファイルを見てください。ＣＳＶデータがこのようにきちんと並び替えされたでしょ？ただし、動かす前には必ずワークブックを保存することをお忘れ無く！ 　なお、テストが終わったらＣＳＶファイルと新しいワークブックは閉じてもかまいません。保存しますか？と聞かれても、これらについては、きっぱりいいえと答えましょう。 　※印刷設定プロシジャの呼び出し（Call 印刷設定）でプロシジャが無いという内容のエラーが出ますが、これは気にしないでください。ここまでの状態だと、まだ作っていないため必ず出ます。でも、それ以外のエラーが出たときは気にしてください（汗）

[PR]管理人が書いたVBAプログラミング本 ■最速攻略 Excel VBA サンプル大全集 ■苦手なコードもこれで安心!Excel VBA超入門講座 ■Excel VBAゲーム大作戦 はじめて編※ 実践編※ ◆ここが知りたかった! Access VBA 500の技※ （アマゾンへジャンプします。※は共著作品） 帳票を作ってみよう！ 1.能書き（この章の説明） 2.帳票の仕様、背景 ・テストデータのダウンロード 3.マクロ作成の準備 4.CSVファイルのオープン 5.新規ワークブックのオープン 6.帳票の見出しを作る ・ひな形書式作成 7.リスト作成処理と初期処理 ・主制御処理と初期処理（ＣＳＶファイルのオープン、新規ワークブックの作成） 8.CSVのデータをキレイにお化粧1 ・データの並び替え（ソート） 9.CSVのデータをキレイにお化粧2 ・集計を行います 10.CSVのデータをキレイにお化粧3 ・集計結果をもとに帳票を仕上げます 11.印刷書式の設定 ・用紙サイズや余白など印刷書式の設定 12.終了処理 ・必要の無いワークブックを閉じる 13.マクロの自動実行と…おまけネタ  ・ウィンドウにネコを出す方法 Happy! Happy! Islandその他のコンテンツ ■VBAプログラミング、その他 　Access VBAプログラミング＆Tips 　Excel VBA(エクセルマクロ)プログラミング＆Tips 　VBScript＆JScriptプログラミング＆Tips for WSH 　プログラミング基礎・入門 　HTMLの書き方 ■ダウンロードコーナー 　AccessとExcelのフリーソフト ■コミュニティー 　VBA質問掲示板 ■その他 　オレの話を聞けぇ♪（仮称／コラム） 　管理人プロフィール 　管理人へメール ■別館(海外向けサイト) 　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL! VBAプログラミング＆Tips集の "Happy! Happy! Island"トップページへ [リンク]IT関連情報サイトなど gihyo.jp 技術評論社提供のIT関連コンテンツサイト [リンク]一番クリックした国が優勝 ClickClickClick.com クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。 [PR]証券会社・投資運用関連サイト カブドットコム証券 逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！ マネックス証券 オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！ Ｅ＊トレード証券 オンライン専業証券�ｂPの口座数！業界最低水準の手数料体系と充実のサービスラインナップ！ 楽天証券のマーケットスピード ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！ オンライン証券徹底比較 価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！

Copyright(C) 1999-2006 結城圭介。 All rights reserved