VBA 時間設定

質問

以前こちらでVBAでの時間設定を行いたいと思っています。
下記が現在使用しているものですが、

newHour、newMinute、newSecond　共にシートのセルに
数字を入力したものを読み込んで時間の設定をしたいと思っています。

セルA1：newHour
セルB1：newMinute
セルC1：newSecond
に数字を入れて、時間を変更したりしたいと思っています。

よろしくお願いします。

Sub wait()
newHour = Hour(Now())
newMinute = Minute(Now()) + 4
newSecond = Second(Now()) + 50
waitTime = TimeSerial(newHour, newMinute, newSecond)
Application.wait waitTime
End Sub

回答No.1

imogasi

Sub test04()
MsgBox TimeSerial(Range("A1"), Range("B1"), Range("C1"))
End Sub
の例のようにTimeSerial関数でよいと思うが。
newHour,などの変数を生かすのなら
newHour=range("A1")
などでよいが。
時分秒の値の制約は別途組み込まないとダメだが。
ーー
＞以前こちらでVBAでの時間設定を行いたいと思っています。
何の意味？
この質問自体の真意が良くわからない。
ほとんど私が書いたことなど、質問者のコードに出ていて、
newHour=range("A1")
など質問にもならない時候だと思うし。
とりあえず書いてみたが。

お礼

newMinute = Minute(Now()) + Range("B1")
で分の指定もできました。

＞以前こちらでVBAでの時間設定を行いたいと思っています。
は、自分でも何だ！と思いました。
気にしないでください。
有難うございました。