[[20190818070158]]　『エクセルデータの差し込み印刷について』（Mフィー）　ページの最後に飛ぶ

『エクセルデータの差し込み印刷について』（Mフィー）

エクセルの表1をお店別にワードの案内文書に差し込んでいきたいです。
お店別に商品の数が違い、差し込み印刷でいろいろ試してみたのですが
わからず、なにかいい方法がありましたらご教示ください。

（エクセル表1）

  A	    B	      C	      D		E	F	   G      H
ｺｰﾄﾞ　　　お店　　  担当課所 担当者  商品コード	商品名	変更前　変更後　
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　価格 　価格
111	  A商店     販売1	B	11	みかん	  100    130
111	  A商店	    販売1	B	15	りんご	  150	 160
111       A商店	    販売1	B	12	いちご	  300	 360
125	  B商店	    販売3	A	11	みかん	  120    120
125	  B商店	    販売3	A	15	りんご	  150	 160
134	  C商店	    販売2	D	12	いちご	  350	 360
134	  C商店	    販売2	D	13	バナナ	  200	 220
134	  C商店	    販売2	D	14	めろん	  500	 520
305	  D商店	    販売1	C	11	みかん	  100	 130
305	  D商店	    販売1	C	13	バナナ	  210	 220
305	  D商店     販売1	C	14	めろん	  550	 550
319	  E商店	    販売2	E	13	バナナ	  200	 220
319	  E商店     販売2	E	14	めろん	  500	 520
319	  E商店	    販売2	E	11	みかん	  100	 130

 これをお店ごとにWord案内文に

　　A商店　様
　　　　　　　　　

　商品コード商品名変更前価格変更後価格

	11	みかん	  100         130
	15	りんご	  150	      160
　　    12	いちご	  300	      360

 --------------------------------------------------------------

 のようにワードの案内文に差し込みたいと思っております。

 知識が乏しく、どうかよろしくお願い申し上げます。

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

「word excelデータ差し込み」このキーワードでインターネットで検索すれば
いろいろなサイトが見つかると思います。

エクセルのSheet2に案内文書を作成して、そこに上記のデータを差し込んで
印刷することは検討されましたか?
私はそのような使い方が多いので、余計なことを書き込みました。
（メジロ） 2019/08/18(日) 09:06

ワードの差し込み印刷の場合、フィールドコードを勉強する必要があります。
エクセル側のデータも少し細工が必要ですが
難しいのは、ほとんどがワード側の設定です。
ここではなくて、ワードの掲示板で質問しなおすことをおすすめします。

メジロさんのコメントにあるようにエクセルのみで完結させることもできます。
その場合、こちらで継続するとよいです。

（マナ） 2019/08/18(日) 09:35

例えば、こんな感じです
http://office-qa.com/Word/wd465.htm

（マナ） 2019/08/18(日) 09:43

メジロさん、マナさんご回答ありがとうございます。
ワード側での設定がよくわからなく、ご紹介いただいたURLでも確認してみます。
また、エクセルでも簡単に差し込み印刷ができるのであれば、そちらの方法も検討したいのですが
マクロになるのでしょうか。

（Mフィー） 2019/08/18(日) 16:36

 こんにちは、＾＾
マクロで一意な店番を作り、お店ごとにフイルターオプ
ションでお店情報を抽出、必要分だけ取り出し、印刷用
シートに貼り付け、整形して、印刷、をお店の数だけ繰
り返えすのも一案かと、。。。m(_ _)m

（隠居じーさん） 2019/08/18(日) 17:10

 こんばんは＾＾きっともっとスマートな方法が有ると思います。。。
例の如く冗長なごりおし力技コードですが、何かの足しにでも。＾＾；。。。m(_ _)m
バックアップ必須、エラー処理等、な～にも無しです。
Sheet1　がデーターで　Sheet2　が印刷用です。
Option Explicit
Sub OneInstance01()
    Dim Base
    Dim Tmp
    Dim D As Object
    Dim i As Long
    Set D = CreateObject("Scripting.Dictionary")
    With Worksheets("Sheet1")
        Base = .Cells(1).CurrentRegion
        .Copy Worksheets(1)
    End With
    For i = 3 To UBound(Base, 1)
        If Not D.Exists(Base(i, 1)) Then
            D.Add Base(i, 1), Base(i, 2)
        End If
    Next
    With ActiveSheet
        .Rows(2).Delete
        For i = 0 To D.Count - 1
            .Range("J1") = "ｺｰﾄﾞ"
            .Range("J2") = D.keys()(i)
            .Cells(1).CurrentRegion.AdvancedFilter 2, .Range("J1:J2"), .Cells(1, 15)
            Tmp = Intersect(.Range("S:V"), .Cells(1, 15).CurrentRegion)
            With Worksheets("Sheet2")
                .Cells.Clear
                .Cells(3, 3) = "案内、ご案内です。"
                .Cells(4, 3) = "mmm。。。でわ　m(_ _)m"
                .Cells(7, 3) = D.keys()(i)
                .Cells(7, 5) = D.items()(i) & "  様"
                .Cells(9, 3).Resize(UBound(Tmp, 1), UBound(Tmp, 2)) = Tmp
                Erase Tmp
                .PrintPreview
            End With
            .Range("I:Z").Clear
        Next
    End With
    Application.DisplayAlerts = False
    ActiveSheet.Delete
    Application.DisplayAlerts = True
    Set D = Nothing
    Erase Base
End Sub
済みません、幽霊変数Ｎが残っていましたので削除修正致しました。
18:17　。。。m(_ _)m
（隠居じーさん） 2019/08/18(日) 17:50

隠居じーさん様　ご回答ありがうございました。
ご回答いただいたマクロを参考に作成してみます。

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

（Mフィー） 2019/08/19(月) 00:43

コメント返信：

[ 一覧(最新更新順) ]

[[20190818070158]] 『エクセルデータの差し込み印刷について』（Mフィー） ページの最後に飛ぶ

[[20190818070158]]　『エクセルデータの差し込み印刷について』（Mフィー）　ページの最後に飛ぶ