VBA ユーザーフォームで

質問

ＶＢＡのユーザーフォームで、時間を入力し、何分だったかを出したいのです。

例えば、コンボボックス１～４を用意して、１にスタートの時間、２にスターの分、３にエンドの時間、４にエンドの分を入力し、エンドの時間からスタートの時間を引けば、何分かかったが出せると思うのですが、ｈｈｍｍ時間ではなく、ｍｍ分で出したいのですがそのようなことは出来ますか？
コンボボックス１に、ｈｈの意味を持たせて、２にｍｍの意味を持たせ、１と２を合わせると１つの時間（ｈｈｍｍ）になるようにしたいのです。そのような関数はありますか？

また、コンボボックスに入力する際に、時間なので、２バイト入れれば次のコンボボックスにカーソルが移動するような制御はありますか？

宜しくお願いします。

回答No.1

hallo-2007 · ベストアンサー

参考になるかどうか？取り合えずいくつか紹介します。
ユーザーフォーム上に　Textbox1とTextBox2が準備されているとして
Private Sub CommandButton1_Click()
Dim mytime3 As Date
mytime1 = TimeValue(ComboBox1.Value & ":" & ComboBox2.Value & ": 0")
mytime2 = TimeValue(ComboBox3.Value & ":" & ComboBox4.Value & ": 0")
mytime3 = mytime2 - mytime1
TextBox1.Value = mytime3
TextBox2.Value = Hour(mytime3) * 60 + Minute(mytime3)
End Sub
>２バイト入れれば次のコンボボックスにカーソルが移動するような制御はありますか？
コンボボックスなのでRowSorceで０～５９とか０～２３とか設定できると思います。取り合えずカーソルの移動であれば
Private Sub ComboBox1_Change()
ComboBox2.SetFocus
End Sub

お礼

早速のご返答ありがとうございます。

時間は、Ｔｉｍｅｖａｌｕｅを使えばいいのですね。また、秒まで指定しないといけないので、最後の"＆：０"で、秒も指定しているのですね。

ただ引いても、変数が少数点にしかならなかったのでとても助かりました。

ありがとうございました。

回答No.2

hige_082

comboboxを使用する意味は？
次のコードを実行してみて

Private Sub UserForm_Initialize()
Dim i As Integer
For i = 0 To 23
ComboBox1.AddItem Format(i, "00")
Next i
For i = 0 To 59
ComboBox2.AddItem Format(i, "00")
Next i
End Sub

Private Sub ComboBox1_Change()
ComboBox2.SetFocus
End Sub

お礼

早速のご回答ありがとうございます。

コンボボックスを使用する意味は、時間の入力の為、シート２に０～２３までと、０～５９までを用意しておき、それぞれＣｏｍｂｏｂｏｘに反映させて選択できるようにと考えました。また、Ｃｏｍｂｏｂｏｘなら入力も可能ですのでＣｏｍｂｏｂｏｘを使用しようと思いました。

上記コードで、シート２に値を入力しなくても、反映させることが出来るのですね。参考になりました。ありがとうございます。