時間の足し算をフォームでしたいのですが

質問

何時も勉強させて頂いています。
今回は　Ａ3に時間　分をオープンイベントで
Range("A3").NumberFormat = "h 時 m 分"
Range("A3") = Now()
としています。
A3セルがアクティブになると現在の○○時○○分と表示したフォームが
出て進むボタンを押すと４５分ごとに進む入力ボタンを押すとその値が
Ａ3セルに入力される　そんな事を実現させたいのです
ご指南ください。

回答No.1

redfox63 · ベストアンサー

UserFormのInitializeまたはActivateで
TextBox1.Text = Format( range("A3").Value, range("A3").NumberFormat)
としておきます

ボタンのクリックイベントで
dim dt as Date
dt = TimeValue(TextBox1.Text)
dt = DateAdd( "n", 45, dt )
TextBox1.Text = Format( dt, Range("A3").NumberFormat)
Range("A3").Value = dt
といった具合でしょう
適切なエラー処理も付け加えましょう

お礼

ありがとう御座いました
何時も　すいません。