エクセルの学校：全文検索：Hyper Estraier：差し込み印刷

Results of 1 - 1 of about 296 for 差し込み印刷 (0.002 sec.)

[[20100116203652]]: #score: 8241; @digest: 8e1818ef74f57be1d8776c3a94b14f3b; @id: 47240; @mdate: 2010-01-21T11:13:15Z; @size: 1967; @type: text/plain; #keywords: ジ差 (14319), printsheet (14224), datasheet (10620), 事op (7748), 動改 (5509), 謝謝 (4213), タ用 (3474), リデ (2996), 間無 (2659), 量デ (2413), 用シ (2405), 近所 (2347), 所pg (2068), office2007 (2009), のd3 (1888), 件: (1572), 改ペ (1571), 刷用 (1566), 隙間 (1450), ジ目 (1428), し込 (1286), 定se (1268), 期設 (1109), トア (980), 目) (957), 差し (828), 印刷 (811), チリ (673), 速試 (608), ペー (604), 目） (594), 大量 (567); 『自動改ページ差し込み印刷』（はる）
sheet1のA1.B1.C1のデータ（1行目）をsheet2のD3.E5.G8へそれぞれ差し込み(1ページ目）印刷し、次にsheet1のA2.B2.C2(2行目)をsheet2のD3.E5.G8（同じフォーム）へ差し込み(2ページ目）印刷、 sheet1の各行ごとにsheet2を自動改ページ差し込み印刷の仕方を教えてください。 sheet1が90行あればsheet2も90ページになります。初めての質問でうまく伝えられたか心配ですがどなたか教えてください。どうぞよろしくお願いいたします。 Office2007を使用しています。 ---- マクロで作ってみました。標準モジュールに突っ込んでお試しください。データ件数は2〜3件でテストの上、問題ない事を確認してから大量データを試す事をお勧めします。マクロについてよくわからない場合はこちらも参考にしてみてください。 http://www.excel.studio-kazu.jp/mag2/backnumber/mm20040831.html 前提条件: Sheet1のA列の1行目からデータが隙間無く入力されている事 Option Explicit Sub test() Dim r As Range Dim dataSheet As Worksheet Dim printSheet As Worksheet '初期設定 Set dataSheet = Worksheets("Sheet1") Set printSheet = Worksheets("Sheet2") 'データ用シートのA列にデータがある分だけループ For Each r In dataSheet.Range("A:A") 'A列が空ならループ終了 If r.Value = "" Then Exit For End If With printSheet 'データ用シートから印刷用シートにデータを転記 .Range("D3").Value = r.Offset(, 0).Value .Range("E5").Value = r.Offset(, 1).Value .Range("G8").Value = r.Offset(, 2).Value '印刷用シートをプリントアウト .PrintOut End With Next MsgBox "処理終了" End Sub （ご近所PG） ---- ご近所PG 様ありがとうございます。しばらくレスがなく諦めていたのでとてもうれしいです。早速試してみます。（はる） ---- ご近所PG 様標準モジュールに入れて実行しました。バッチリデス。処理も早くプリントアウトできました。本当にありがとうございました（謝謝）（はる） ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201001/20100116203652.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ