[[20230810201823]]　『Excelで差し込み印刷を教えてください。』（ちょこ）　ページの最後に飛ぶ

『Excelで差し込み印刷を教えてください。』（ちょこ）

はじめまして。
Excel⇒Excelの差し込み印刷をするマクロを教えてください。(*ﾉωﾉ)
※同一ファイル内での差し込み印刷です。

今回初めてマクロを作成したいのですが、基礎知識がない為、よろしく
お願いします。

表シートに差し込み印刷をしたいフォーマットがあります。
リストシートには下記のデータがあります。

A　　　B　　　C　　　　D　　　　E　　　　F　　　　　　　　　　　G
件数　設計NO　標識名　ブロック設備ＮＯ住所　　　　　　　　発番日
1　　4ABC1234　競　　 1234　 5678　立川市●町*丁目**　2023/8/10
2　　4ABC5678　競　　 1234　 9876　立川市●町*丁目**　2023/8/10

※リストデータのデータは作成するたびに増減します。

リストシートから表シートに差し込みたい場所は

リストシート⇒表シート
G2 ⇒K7
F2 ⇒S10
C2 ⇒F10
D2 ⇒F13
E2 ⇒BM13
B2 ⇒BZ16

夜分遅くにすみません。
よろしくお願いします。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

■１
＞今回初めてマクロを作成したい
どこまで出来ていますか？
完成してなくても構いませんので、現状のコードを提示して、何処で詰まっているか（エラーになるならその箇所・エラー番号・エラーメッセージを提示、エラーにならないが想定通りにならないなら○○になるはずが××になる等）説明できませんか？

■２
実は着想できておらず何も手がついてないとしたら↓のように考えてみてはどうでしょうか？

 1. リストシートのA列に【印刷対象】【No.】を追加（【No.】は件数というのがそれだというならそれでも結構）

 2. 表シートの印刷範囲外の適当なセルに【No.】を追加

 3. 表シートのそれぞれの欄にVLOOKUP関数などで「2.」をキーにリストシートのデータを引っ張ってくるよう設定

 4. 以下のようなマクロを作成
    Sub 記述例()
        Dim 行 As Long

        With Worksheets("リスト")
            For 行 = 2 To .Cells(.Rows.Count, "A").End(xlUp).Row
                If .Cells(行, "A").Value = "●" Then
                    Worksheets("表").Range("適当なセルの番地").Value = .Cells(行, "B").Value
                    Worksheets("表").［プリントアウトする命令］
                    .Cells(行, "A").Value = "済"
                End If
            Next 行
        End With
    End Sub

 5. リストシートの対象となるデータのA列に●を入力してマクロを実行

（もこな２） 2023/08/11(金) 06:14:43

もこな2さん

お返事ありがとうございました。

リストシートのデータを表シートに反映させて自動ですべてのシートを連続で印刷させる
と言った構想はあったのですが、ネットを見てもイマイチ理解できず質問させて頂きました。

この連休中に仕上げて来週から使ってみたいと思っていたのでちょっと頑張ってみたいと思います。
挫折したときはまたお力をお貸しください。

よろしくお願いします。
（ちょこ） 2023/08/11(金) 09:07:48

もなこ2さん

ご指示いただきました内容で出来ました。
ありがとうございました。

この後プリンターを買ってきて実際に印刷してみたいと思います。
(*ﾉωﾉ)
（ちょこ） 2023/08/11(金) 10:13:48

コメント返信：

[ 一覧(最新更新順) ]

[[20230810201823]] 『Excelで差し込み印刷を教えてください。』（ちょこ） ページの最後に飛ぶ

[[20230810201823]]　『Excelで差し込み印刷を教えてください。』（ちょこ）　ページの最後に飛ぶ