痔になりやすい生活習慣とは?

VBAにて購入品注文書の印刷を一括で出来ないかの相談です。

シートが2枚あります。

1枚は(1)購入品注文書でFAXする為の用紙です。(手配する商品の欄のみ10箇所ほどあります。)

もう1枚の方に(2)表があり、購入品先・件名・注番・手配する商品が行単位に複数行並んでいます。

1行目から検索して購入品先・件名が同じで手配する商品が複数ある場合は購入品注文書の

手配する商品の2段目以降に転記していきます。

購入品注文書の転記するセルが結合セルになっています。

(2)表に30行程度入力したあとで(購入品先・件名別単位で10枚印刷)、マクロ釦1個で完了

させたいのですが可能でしょうか。

尚、出来ればシートは現在のシートを転記・印刷・クリアー⇒転記・印刷・クリアー⇒という

形にしたいです。

そもそも可能かどうかでも回答を頂きたいので宜しくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

極簡単な例です。



Dim c As Range, m As Range

Sheets("Sheet1").Range("A:A").ClearContents
Set m = Sheets("Sheet1").Range("A1")
With Sheets("Sheet2")
With .Range("A1", .Range("A" & Rows.Count).End(xlUp))
For Each c In .Cells
m.value = c.value
Set m = m.Offset(1)
Next
End With
End With

Sheets("Sheet1").PrintOut to:=1, Copies:=1
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング