エクセルで連続印刷した範囲を印刷済とわかるように

質問

エクセルで以下のようなプログラムで変数ｓ、ｅに入力の範囲でシートの連続印刷しております。印刷し終わった後ですが、変数ｓ～ｅの範囲を赤くして印刷済かどうかをひと目でわかるようにしたいと思います。可能でしょうか。

Sub 範囲を指定して印刷()
Dim s As Long
Dim e As Long
Dim i As Long

On Error Resume Next
s = InputBox("開始No.を入力して下さい。")
If s = 0 Then Exit Sub
e = InputBox("終了No.を入力して下さい。")
If e = 0 Then Exit Sub

For i = s To e
Worksheets("A").Range("C1") = i
Application.Wait Now + TimeSerial(0, 0, 10)
Worksheets("B").PrintOut
Next i
End Sub

回答No.1

keithin

＞変数ｓ～ｅの範囲を赤くして印刷済かどうかをひと目でわかるようにしたい

シートの具体的にどこに「（ｓ～ｅの）赤くすべき範囲」があるのか不明なので，勝手にＣ列に印刷済みを明記して赤く塗ってみます。

Sub 範囲を指定して印刷()
　Dim s As Long
　Dim e As Long
　Dim i As Long

　On Error Resume Next
　s = InputBox("開始No.を入力して下さい。")
　If s = 0 Then Exit Sub
　e = InputBox("終了No.を入力して下さい。")
　If e = 0 Then Exit Sub

　For i = s To e
　　with range("C65536").end(xlup).offset(1)
　　.value = i
　　.interior.color = vbred
　　end with

　　Worksheets("A").Range("C1") = i
　　Application.Wait Now + TimeSerial(0, 0, 10)
　　Worksheets("B").PrintOut
　Next i
End Sub

ご自分のエクセルに合わせて，自力で適切に応用して下さい。

補足

ありがとうございます。赤くしたい範囲はＡ列です。
A65536に変更して、試してみました。

当方の説明不足なのですが、「Ａ５」セルから下に向かって
数値（１～１００）が入っており、
ｓとｅの変数は、その１～１００の範囲で指定します。

連続印刷で１から３を指定した場合、セルの色を変えたいのは
「Ａ５」から「Ａ７」ということになります。

よろしければもう一度ご助力いただければと思います。