Excelでさかのぼって年齢を表示

質問

Excel2016を使用。
添付のような利用会員名簿を作っています。
いつもはTODAY()で基準日を設けて年齢を表示しています。
今日は7/24ですが、6/30にさかのぼって年齢を表示はできることが
簡単にできないでしょうか？
例えば、いつもの表示はTODAY()で、印刷するときだけTODAY()を使用しないで
基準日を6/30にするとか。

回答No.2

kkkkkm · ベストアンサー

マクロでよろしければ
J1を印刷前に前月末日の日付に、終了前に=TODAYに変更します。
Sheet1は適宜変更してください。
ThisWorkbookに

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Sheets("Sheet1").Range("J1").Formula = "=TODAY()"
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("Sheet1").Range("J1").Value = DateSerial(Year(Date), Month(Date), 0)
End Sub

お礼

この案でいくことにしました。
ありがとうございました。

回答No.1

noname#250245

単純に印刷するときだけJ1セルを手打ちで書き換えるという使い方ではダメなんでしょうか？
印刷した後は保存せずにそのまま閉じてしまえば数式はそのままです。

補足

印刷するときだけ2020/6/30にするという案は私も考えましたが、
もうちょっと格好いい案はないものでしょうか？
でも、ありがとうございます。