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

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

[[20190818070158]]: #score: 8241; @digest: c78396e95f2b2920c6a64be495d2425b; @id: 80497; @mdate: 2019-08-18T15:43:53Z; @size: 4874; @type: text/plain; #keywords: 店販 (94731), 売1 (29922), 売2 (26343), 商店 (14630), 後価 (11917), 格11 (10447), 売3 (10356), 内文 (8996), 販売 (8583), 技コ (6506), ド側 (6463), ナ20 (5793), お店 (5579), 案内 (5237), 店別 (4063), base (3253), ド商 (2988), 名変 (2639), し込 (2573), 更前 (2244), 価格 (2110), メジ (2091), ん10 (2054), ジロ (2043), 品コ (1697), 更後 (1662), 差し (1657), み印 (1643), バナ (1591), 刷用 (1566), ィー (1546), ナナ (1523); 『エクセルデータの差し込み印刷について』（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 済みません、幽霊変数Nが残っていましたので削除修正致しました。 18:17 。。。m(_ _)m （隠居じーさん） 2019/08/18(日) 17:50 ---- 隠居じーさん様ご回答ありがうございました。ご回答いただいたマクロを参考に作成してみます。ありがとうございました。（Mフィー） 2019/08/19(月) 00:43 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201908/20190818070158.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ