エクセル2016 にてご質問をお願いいたします。

どなたかお教え下さい。

画像のものは、A1＝B1になっております。

印刷をすると自動的に　A1＝B2　

また、印刷をすると移動的に　A1＝B3

A1に表示される数字が、印刷をするたびに下の数字に変更されるものを作成したいと思っております。

マクロでなんとかなりませんでしょうか？何卒よろしくお願いいたします。

No.1 ベストアンサー 回答者： tom04 回答日時： 2017/09/30 20:22

こんばんは！

印刷するのはお示しのSheetそのもので良いのでしょうか？

一例です。

Sub Sample1()
Dim i As Long
With ActiveSheet
For i = 1 To .Cells(Rows.Count, "B").End(xlUp).Row
.Range("A1") = .Cells(i, "B")
.PrintPreview '//←印刷プレビューでやめています//
Next i
End With
End Sub

※　印刷プレビューでやめています。
実際に印刷する場合は
＞.PrintOut

としてください。m(_ _)m

この回答へのお礼

ありがとうございました。
できました。大分楽になりました。

お礼日時：2017/10/02 11:49