質問日時: 2003/09/30 12:12 回答数: 7 件 エクセルでできている名簿リストから、すでにエクセルでできている個人別のシートに差込印刷したいのです。一人ずつセル参照で作ることはできるのですが、全部で300人分くらいあるのでワードの差込印刷のように一度にできる方法が知りたいのです。本日中にやらねばならないので手作業では、間に合いそうにありませんしVBAの勉強をしている余裕もありません。 No. 7 ベストアンサー 回答者: imogasi 回答日時: 2003/09/30 21:40 VBAでもない解答をします。 ただファイル-印刷の操作を 300回すること。最終部のようにすれば、VBAで自動化も出来ます。 (1)Sheet2のA1:E3に住所録が 氏名郵便番号住所1住所2 山田 和郎111-1111東京都小平市新町2-1-2光マンション222 木之下 重雄222-2222東京都三鷹市本町4-3-2三国荘201 あるとします。本番ではA1:E300とかに住所録があります。 (2)Sheet1は印刷する画面シートです。 F1セルに2、 F2に="Sheet2! A"&F1 F3に="Sheet2! [EXCEL]VBA エクセルのみで差し込み印刷（連続印刷）ダウンロード│ひよこモラトリアム. B"&F1 F4に="Sheet2! C"&F1 F5に="Sheet2! D"&F1 F6に="Sheet2! E"&F1 郵便番号を置くセルをB3として式=INDIRECT(F3) 府県市を入れるセルをB5として式=INDIRECT(F4) 町番地を入れるセルをB6として式=INDIRECT(F5) 気付を入れるセルをC6として式=INDIRECT(F6) 名前を入れるセルをB8として式=INDIRECT(F2) C8に「様」を入れる。 (3)F1セルが2の時は 111-1111 東京都小平市 新町2-1-2光マンション222 山田 和郎様 となりますが、このA1:C8を印刷する。 (4)F1セルの値を3に変える(3を入力する)と 222-2222 東京都三鷹市 本町4-3-2三国荘201 木之下 重雄様 と瞬時に変るが、これを印刷する。 (5)F1を4、5、6、・・・と変えて印刷、変えて印刷すれば良い。 この(5)の部分だけをマクロの記録やVBAにすれば、 同じVBAでも既解答よりずっと易しいと思いますがいかがででしょうか。 Sub test01() Worksheets("sheet1").
」の値を変更すると、VLOOKUP関数によって郵便番号や住所、名前が変わり、それに伴ってテキストボックスのデータも切り替わります。 印刷用のシートを用意する ここまでの操作で、テキストボックスで差し込み印刷を行う仕組みを理解できたと思います。しかしこのままでは、はがきにうまく印刷できません。 印刷用に新しいワークシートを用意しましょう。用紙のサイズを「はがき」に設定し、先ほど作成したテキストボックスをコピペして、数式を修正していきます。 5 新しいワークシートの用紙サイズを変更する 新しいワークシートを追加し、用紙サイズを「はがき」に設定します。「改ページプレビュー」に切り替えておくと、印刷範囲がわかりやすくなります。 6 作成済みのテキストボックスをコピペする [Ctrl]キーを押しながら作成済みのテキストボックスを選択し、コピーします。 ワークシートを切り替えて貼り付けます。はがきの画像は実際には不要です。この時点ではセルとテキストボックスのリンクが切れるため、テキストボックスには何も表示されなくなります。 7 リンクを設定し直す テキストボックスをクリックし、数式バーで「Sheet1! 」を追記してリンクを修正します。これは「Sheet1の」という意味で、別のワークシートを参照するときの常套句です。 同様に、ほかのテキストボックのリンクも修正します。先ほどと同じように、セルC2に入力した「印刷対象No. 」を変更して結果を確認してみてください。 8 宛名印刷を実行する プリンターにはがきをセットし、印刷を行います。まずは普通紙で試し印刷を行い、はがきとのズレがないかを確認するといいでしょう。 以上、セルのデータをテキストボックスに表示し、VLOOKUP関数を使って差し込み印刷を行うテクニックでした。数件だけ送り忘れてしまった案内状などで便利なので、ぜひ試してみてください。 関連記事 VLOOKUP関数で範囲を縦方向に検索する 商品番号の一覧表を検索して商品の価格を取り出すなど、範囲を縦方向に検索して一致する値を求めるVLOOKUP(ブイ・ルックアップ)関数の使い方を解説します。 関連まとめ記事 【エクセル時短まとめ】仕事が早く終わる! 毎日役立つExcelのビジネス活用ノウハウ一覧 この記事が気に入ったら いいね!しよう できるネットから最新の記事をお届けします。 オススメの記事一覧
5 回答日時: 2003/09/30 15:03 データがどのように配置されていて、差込するのは、どの部分なのか、解らないのですが、 取り敢えず、任意に設定できるように作りましたのでテストしてみてください。 たぶん、このようなことと解釈したのですが・・・ 一応、VBAの設定方法を書いておきます。 1.Alt + F11 で VBE(Visual Basic Editor)を開きます。 2.VBE のメニューから[挿入] -->[標準モジュール] を指定します。 3.モジュールウィンドウに下記コードをコピーして貼り付けます。 4.現状に合わせ、6~7行目とその以降の差し込む位置と個数を設定します。 5.Alt + Q (または、右上隅の×)でウィンドウを閉じ、シートに戻ります。 6.メニューから[ツール]-->[マクロ]-->[セキュリティ]で「セキュリティレベル」を 「中」を選択して[OK]します。 7.実行するときは、Alt + F8 (メニューから[ツール]-->[マクロ]-->[マクロ])で 「SashikomiPrt」を指定し、[実行]ボタンを押します。 No. 4 ozigakura 回答日時: 2003/09/30 13:01 No2の方法で良いと思います。 小生はこういった場合マクロに次のような設定でやっています。 Sheet1が印刷するフォームで印刷範囲の設定済み Sheet2がデータ データに連番たとえばA列 Sheet1の印刷以外のところたとえばA1のセルに印刷データ検索値 Vlookup(検索値、データ範囲(名前をつけると便利)・・・・となりそれぞれの差し込み部分を対応させる。 Sub 印刷print() Dim i As Integer For i = 1 To 300 Range("A1") = i intOut 'intPreview Next 印刷をしないで確認の場合は'intOut とし、intPreviewの ' を外す テストの場合i=1 to 2 とかでやって確認すればよいでしょう No. 3 goohiroko 回答日時: 2003/09/30 12:47 大変ですね。 自動で一度に印刷はできないのですが、1人分印刷ごとに番号入力する程度になら短縮可能です。 データ行の先頭セルに連番を振る事はできますか?また、印刷シートの印刷範囲外のセルに入力は可能でしょうか?
一度のみ読みました。 目立った傷や汚れ等はありませんが中古品ですので神経質な方はご遠慮ください。 アルコール除菌をしてお送りいたします。 発送の際はプチプチに包む等大切にお送りいたします。 値下げ歓迎中です!
『【送料込】進撃の巨人 漫画 全巻セット + 0巻』は、1012回の取引実績を持つ DORA【交渉希望の方はプロフ確認を!】 さんから出品されました。 少年漫画/本・音楽・ゲーム の商品で、福岡県から1~2日で発送されます。 ¥9, 899 (税込) 送料込み 出品者 DORA【交渉希望の方はプロフ確認を!】 1011 1 カテゴリー 本・音楽・ゲーム 漫画 少年漫画 ブランド 商品の状態 やや傷や汚れあり 配送料の負担 送料込み(出品者負担) 配送の方法 ゆうゆうメルカリ便 配送元地域 福岡県 発送日の目安 1~2日で発送 Buy this item! Thanks to our partnership with Buyee, we ship to over 100 countries worldwide! 進撃 の 巨人 ゼロード. For international purchases, your transaction will be with Buyee. ○進撃の巨人の最終34巻までの全巻 ○初回限定版Blu-ray進撃の巨人 のセット出品になります♪( ´▽`) Blu-rayの特典のレア巻「0巻」も含めて、 付属品は全て揃っています! ※写真2〜4 中古品のため、ヤケや汚れの目立つ巻もありますが、 通読は問題なくお楽しみいただけます。※写真5. 6 写真で必ず状態の確認をお願い致します。 よろしくお願い致します。 ※バラ売り不可 #進撃の巨人 #漫画 #本 #少年 #青年 #全巻 #セット メルカリ 【送料込】進撃の巨人 漫画 全巻セット + 0巻 出品
落札日 ▼入札数 落札価格 6, 250 円 32 件 2021年7月22日 この商品をブックマーク 3, 900 円 15 件 2021年8月2日 2, 200 円 3 件 2021年7月7日 11 円 2 件 2, 100 円 2021年7月29日 3, 800 円 340 円 2021年7月25日 8, 250 円 2021年7月14日 2, 080 円 1 件 2021年7月31日 2021年7月30日 1, 870 円 1, 600 円 2021年7月27日 500 円 2, 280 円 2, 845 円 8, 880 円 2021年7月20日 2, 000 円 2021年7月18日 92 円 2021年7月17日 1, 980 円 1, 000 円 2021年7月15日 2, 300 円 2021年7月12日 2, 500 円 2021年7月11日 2021年7月10日 600 円 800 円 2021年7月9日 2021年7月8日 3, 500 円 10, 000 円 1, 680 円 2021年7月6日 進撃の巨人 0巻をヤフオク! で探す いつでも、どこでも、簡単に売り買いが楽しめる、日本最大級のネットオークションサイト PR