|
▼DA さん:
こんにちは
>MsgBox Format(TimeValue(txt時間内A1.Text) + TimeValue(txt時間内A2.Text)+ TimeValue(txt時間内A3.Text)+ TimeValue(txt時間内A4.Text), "hh:mm")
>変形して使わせていただきましたが、この場合全てに時間が記載されていないとエラーが出てしまうのですが・・・空白のテキストボックスがあったらそこは無視して計算を行うようにする方法はあるんでしょうか・・・?
いくらでもありますが、処理の手順として、
例えば
dim st1 as string
dim t1 as date
st1=txt時間内A1.Text
'本当はもっとチェックすべきですが、とりあえず、数値と判断できるかの判断
'キチンと想定された時間帯であるとかの判断も本当はすべきですね。
if isnumeric(st1) then
t1=cdate(t1)
else
'exit sub '処理を止める場合
t1=0
end if
以下省略。
こんな感じで書いてみて下さい。
#べた書きなんで綴り間違えてたらごめんなさい。でも考え方の手順は
参考になるかと思います。
|
|