mtc********

2006/11/12 23:09

11回答

エクセルです。 シート１のデータをシート２へ顧客毎に差し込み印刷したいのですが、どのようなマクロにす

エクセルです。 シート１のデータをシート２へ顧客毎に差し込み印刷したいのですが、どのようなマクロにす エクセルです。 シート１のデータをシート２へ顧客毎に差し込み印刷したいのですが、どのようなマクロにすればよいのか教えてください。 私マクロ初心者ですので説明を添えてもらえればうれしいです。 （シート１）データが入っているシートです。 行 列A 列B 列C 列D 列E 1 コード 氏名 商品名 数量 金額 2 0001 AAAA S0001 10 1000 3 0001 AAAA S0002 20 4000 4 0002 BBBB S0001 50 5000 5 0002 BBBB S0003 30 9000 6 0002 BBBB S0004 10 4000 7 0003 CCCC S0001 50 5000 8 0004 DDDD S0002 30 6000 9 0004 DDDD S0003 10 3000 10 0005 EEEE S0001 10 1000 . . . （シート２）請求書の様式です。 ※(A1)～セルを表しております ______＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿ コード(A1) 氏名(A2) 商品名 数量 金額 1(B5) (D5) (F5) 2(B6) (D6) (F6) 3(B7) (D7) (F7) 4(B8) (D8) (F8) 5(B9) (D9) (F9) 合計 XXX XXXX ____________＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

Excel・8,567閲覧

ベストアンサー

all********

2006/11/13 9:25

エクセルだけで差込印刷できます。 日経PC21の参考URLです。 シート2のA1・A2をVLOOKUP関数で参照マクロで印刷させるものです。 私もマクロはあまりよく判りませんが、マクロ自体も非常に短い物です。 私が少し書き替えたものです。書き方いいのか悪いのかさえわかりませんが みようみまねで作成しています。 印刷はあなたのsheet2のシート名 1店舗 3行の品名まで sheet1のA列挿入データに1からの連番 sheet2のO1:O3に1・2・3を入力 P1:P3にO1：O3の値でVLOOKUP関数でコード若しくは氏名を参照 参考になればいいですね Sub 印刷() ' Macro1 Macro ' 2006/6/06 IF分追加 Dim 番号 As Integer Dim 件数 As Integer 件数 = Sheets("Sheet 1").Range("n2").Value For 番号 = 1 To 件数 Sheets("印刷").Range("o1").Value = 番号 Sheets("印刷").PrintOut If Sheets("印刷").Range("P1").Value = Sheets("印刷").Range("P2").Value Then If Sheets("印刷").Range("P1").Value = Sheets("印刷").Range("P3").Value Then 番号 = 番号 + 2 Else 番号 = 番号 + 1 End If End If Next 番号 End Sub http://pc.nikkeibp.co.jp/pc21/sample/200407/k_vba.shtml

この回答はいかがでしたか？ リアクションしてみよう

ThanksImg質問者からのお礼コメント

ありがとうございます。参考にさせていただきました。

お礼日時：2006/11/16 23:13