5分前の表示

質問

体重を測定しエクセルに記録しています。下着姿（男です。）で測定し、着衣後パソコンに入力するまで5分くらいかかるとします。

”ｃｔｒｌ”キーと”：”キーを押すと現在時刻が表示されますが、これを5分前の時刻を表示するようにしたいのですがどうしたらよいでしょう。

まあ、5分間で体重の変化はないでしょうが、エクセルの機能として教えて下さい。

回答No.1

Wendy02

こんにちは。

以下の５つのプロシージャを[標準モジュール]に入れてください。一旦保存して、立ち上げれば起動します。そのブックを閉じると、設定は解除されます。

[標準モジュールに設定する方法]
Alt　+　 F11 (Altを押しながらF11）を押すと、Visual Basic Editor 画面が出てきます。
次に、メニューの[挿入]－[標準モジュール]と開けて、クリックすると、画面が現れますので、以下のコードを貼り付けて、Alt　+　Q で、画面を閉じます。

'---------------------
Sub SetTimeKey()
'設定用
Application.OnKey "^:", "BeforeTime"
End Sub

Sub KeySetOff()
'設定解除
Application.OnKey "^:"
End Sub

Private Sub BeforeTime()
'時間記録用
ActiveCell.Value = Format$(Now - TimeValue("00:05:00"), "hh:mm")
End Sub

Sub Auto_Open()
'起動時設定
Call SetTimeKey
End Sub

Sub Auto_Close()
'終了時解除
Call KeySetOff
End Sub

お礼

あ、ありがとうございました。挑戦してみます。（内心：こんなに面倒なことなんだ・・・。）