[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『エクセルデータの差し込み印刷について』(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案内文に
商品コード 商品名 変更前価格 変更後価格
11 みかん 100 130 15 りんご 150 160 12 いちご 300 360
--------------------------------------------------------------
のようにワードの案内文に差し込みたいと思っております。
知識が乏しく、どうかよろしくお願い申し上げます。
< 使用 Excel:Excel2016、使用 OS:Windows10 >
エクセルのSheet2に案内文書を作成して、そこに上記のデータを差し込んで
印刷することは検討されましたか?
私はそのような使い方が多いので、余計なことを書き込みました。
(メジロ) 2019/08/18(日) 09:06
メジロさんのコメントにあるようにエクセルのみで完結させることもできます。
その場合、こちらで継続するとよいです。
(マナ) 2019/08/18(日) 09:35
(マナ) 2019/08/18(日) 09:43
(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 済みません、幽霊変数Nが残っていましたので削除修正致しました。 18:17 。。。m(_ _)m (隠居じーさん) 2019/08/18(日) 17:50
ありがとうございました。
(Mフィー) 2019/08/19(月) 00:43
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.