ＶＢＡのプロシージャを教えてください

エクセルファイルにて毎日1ページずつ日誌を印刷し提出しないといけないのですが、
後回しにしたりすると、どこまで印刷して提出したのか、が分からなくなります。

印刷済のページは、印刷済と表示されるか？セルの色を変えるか？が出来ないか考えています。
ＶＢＡではなく、条件付き書式でも出来るのでしょうか？
ご指南ください。

質問者からの補足コメント

• 当該エクセルファイルは、同シート内で、「1ページで1日」といった仕様になってます。

  No.1の回答に寄せられた補足コメントです。 補足日時：2021/05/28 12:37

No.2 ベストアンサー 回答者： ママチャリ 回答日時： 2021/05/29 13:13

Excelのシートって、あまりページの概念が無いんですよね~。

例えば、2ページ目って言われても何行目から何行目までなのか、分かんないです（改ページプレビューとか見ないと分かんない）。

なので、ページ番号指定より、印刷する範囲を選択してマクロ実行の方が現実的だと思います。
印刷範囲を選択後に下記のマクロ実行すると印刷後に指定範囲の色が変わります（サンプルなので、印刷プレビューにしています）。

Sub sample()
With Selection
.PrintPreview
.Interior.Color = 255
End With
End Sub

この回答へのお礼

返答ありがとうございます。
なるほど。
31頁にそれぞれマクロボタン置いて、やってみます。
ありがとうございました。

お礼日時：2021/05/29 17:53

No.1 回答者： zongai 回答日時： 2021/05/28 11:10

関数では、「印刷が実行されたか」の判断はできませんので、

VBAを使用することになるでしょう。

配置したボタンを押すと
①印刷する。
②印刷した証拠を残す。
　　たとえば、印刷管理シートを用意して「○」をつけるとか、
　　シートタブの色を変えるとか

みたいな感じのVBA。

この回答へのお礼

ご返答ありがとうございます。
ご提示の手順に沿いますと、
１．マクロ含んだ『印刷ボタン』押す
２．メッセージボックス現れて、開始ページを求める
３．開始ページ入力されると、最終ページを求めるメッセージボックス現れる
４．入力後。印刷開始
５．印刷行われたページのセルの色を変更する
６．上書き保存

とここまでできると嬉しいです。

お礼日時：2021/05/28 12:35