[[20150406235029]]　『台帳からのデータ抜出しと印刷について』（もこ）　ページの最後に飛ぶ

『台帳からのデータ抜出しと印刷について』（もこ）

恥ずかしながら、EXCEL初心者です。

　現在、EXCELでデータ抜出しし、印刷するマクロを検討しています。

内容としては…

ファイル名：A台帳
シート名　：シート1
　A　　　　　B　　　 C
データ1　　必須　　テスト
データ2　　未知　　テスト
データ3　　必須　　本番
データ4　　必須　　テスト
データ5　　結果　　テスト
データ6　　必須　　空白
データ7　　必須　　テスト
　・
　・
　・
上記のようなシートがあります。

そこで、下記のようなロジックで
シート名　：シート2に表示させます。

Sub 抽出()

 MsgBox "試験します。"
    With Worksheets("シート1").Range("C1")
        .AutoFilter Field:=3, Criteria1:="テスト"
        .CurrentRegion.SpecialCells(xlVisible).Copy Worksheets("シート2").Range("a1")
  Columns("A:C").AutoFit
    .AutoFilter
    End With
    Worksheets("シート1").Activate
     Worksheets("シート2").Select
End Sub

教えていただきたいのは、今回は件数を数件で試していますが
今後、数千件になることを予想しています。
その場合、件数に応じて印刷範囲を合せる方法はありますでしょうか？

ちなみにシート2は1ページデータ70件表記、
ヘッダとして１～7行目まで各シートに印刷させたいです。

どうか、よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 1.シート２を選択し、リボンのページレイアウトタブの印刷タイトルをクリック
 2.タイトル行のところをクリックし、7行までを選択($1:$7って入るかと思います)OK押下
 3.改ページプレビューにする(横スクロールバーの下に%表示があり、その左のボタン)
 4.１ページに表示したい範囲を決定する

 以上をシート２に設定して保存しておけば、毎回抽出マクロで貼り付けたデータを
 通常の印刷で希望のとおりに印刷できるかと思いますがどうでしょう？
（もあ） 2015/04/07(火) 11:45

シート1のデータをシート2に差し込み印刷することでしょうか。
下記参考してください。
http://superdbtool.com/blog/archives/698
（もも） 2015/04/09(木) 14:43

もあさん、ももさん

回答、ありがとうございます。

説明が足りていませんでした。
ヘッダについては差し込み印刷でいけるのは分かりました。

あと、件数についてですが
抜出した件数が
70件以内の場合、1ページで。
71件以上140件以内であれば2ページ
141件以上210件以内であれば3ページ
　　　・
　　　・
　　　・
と言う感じで件数で印刷ページを増減させたいのですが
そこが分かりません。
また各シートに印刷範囲で印刷ヘッダを設定すればいいのでしょうか？
※件数がなくても2ページ目、3ページ目が印刷されてしまう？

まだまだ勉強不足です。

（もこ） 2015/04/10(金) 11:36

コメント返信：

[ 一覧(最新更新順) ]

[[20150406235029]] 『台帳からのデータ抜出しと印刷について』（もこ） ページの最後に飛ぶ

[[20150406235029]]　『台帳からのデータ抜出しと印刷について』（もこ）　ページの最後に飛ぶ