エクセルの連続印刷マクロについて

質問

VBAの知識がなく困っています。
エクセルのC1を+１、B5を+10連番で増やして印刷したいのですが、Webで調べた下記の記述に、色々プラスしてみましたが、片方の数しか増えません。
ご教示お願いいたします。

Const conStart As Long = 51 '開始番号
Const conEnd As Long = 60 '終了番号
Const conStep As Long = 1 '間隔
Const conCell As String = "C1" 'セル番地
'変数
Dim i As Long
With Application
.ScreenUpdating = False
With .ActiveSheet.Range(conCell)
For i = conStart To conEnd Step conStep
.Value = i
ActiveSheet.PrintOut
Next
End With
.ScreenUpdating = True
End With
End Sub

回答No.1

kkkkkm · ベストアンサー

51から+10連番でしたら以下のようにしてみてください。

略
With Application
.ActiveSheet.Range("B5").Value = conStart
.ScreenUpdating = False
With .ActiveSheet.Range(conCell)
For i = conStart To conEnd Step conStep
.Value = i
With Application.ActiveSheet.Range("B5")
.Value = .Value + 10
End With
ActiveSheet.PrintOut
Next
End With
略

お礼

全く無知でしたが何とか解決できました。
ありがとうございました。

補足

ありがとうございます。
この記述で動きましたが、すみません、情報が不足しておりました。
B5の10ずつ増やすのは、C1が51の時、B5は501から10ずつ増やしたいです。

回答No.2

kkkkkm

> B5の10ずつ増やすのは、C1が51の時、B5は501から10ずつ増やしたいです。

.ActiveSheet.Range("B5").Value = conStart
これが何をしてるのか考えたら聞く必要もなく答えは分かると思いますが。