10. CSVのデータをキレイにお化粧3 　帳票を作る部分はこれで完成です。並び替えて集計したＣＳＶファイルからデータを取ってきて、帳票の元になるワークブックに貼り付けていきます。 プロシジャ「帳票編集」の仕上げ 　仕上げの処理はプロシジャ帳票編集の集計の後に続けて書きます。ただし、変数の宣言のみプロシジャの先頭付近へ追加しました。なお、仕上げ処理を追加したプロシジャはここをクリックすると別ウィンドウで表示されますので、そちらでご覧下さい。 　なんだか、だらだら長いですね。でも、これであきらめてはいけません！別に、たいしたことはやってません（笑）穴が空きそうなぐらいよ〜〜〜〜〜く見てみると、見覚えのある呪文ばかりが書いてありませんか？ 　それでは、簡単に解説します。 Dim intCopyRows As Integer Dim intPasteRows As Integer 　・ 　・ （省略） 　・ 　・ intCopyRows = 2 intPasteRows = 2 　これらの変数は、コピー元（CSV）とコピー先（新しいワークブック）の編集位置の指定に使います。どちらも、最初は２行目から始めます。 Do Until Workbooks("uriage.csv").Worksheets("uriage").Range("B" & intCopyRows) = "" 　・ 　・ （省略） 　・ 　・ Loop 　ＣＳＶのＢ列を２行目から順番に見ていき、セルの中身がカラになったら終わってくださいという意味です。 　左図のように集計後のＣＳＶデータは総計という行以降にはデータがありません。つまり、そこでLoop 〜 Loop Endを終了する必要があります。Untilの所に書いてあるのは、それを判断するための物です。 　Do Until 〜 Loopの中にだらだら書いているのは、データの取り出しと貼り付け、書式の設定です。このように集計されたＣＳＶの中から、このようにコピペする処理がダラダラ書いてあります。 　帳票の１明細を作るには、データの個数と書かれている行と合計と書かれている行の２種類の行から作ります。 　１店舗ごとに必ず個数・合計の順序で並んでいるので、合計という行のコピペが済んだところで１明細（＝１店舗）の編集が完成です。コピペが済んだら、帳票の方はフォントや罫線の編集をしてあげます。 　その後は、コピー先（新しいワークブック）の編集位置（intPasteRows）を１行下へ移動(intPasteRows = intPasteRows + 1)し、次の明細行のコピペなど備えます。 　貼付け処理が終わったら帳票の最終行へ太線を付け、各列の幅を設定して終わりです。最終的にこんなふうにキレイに仕上がります。 テストしてみよう！ 　またまた、ここまでの内容で動かしてみよう！何度も言いますが、動かす前のワークブックの保存をお忘れ無く！絶対にです。 　テストが終わったらＣＳＶファイルと新しいワークブックは閉じてもかまいません。保存しますか？と聞かれても、これらについては、きっぱりいいえと答えましょう。 　※印刷設定プロシジャの呼び出し（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