|
UserForm1に、コンボボックスを3つ、コマンドボタン1つを配置し、
コンボボックスのオブジェクト名を、
cbo_hh ' 時を入れるため
cbo_mm ' 分を入れるため
cbo_ss ' 秒を入れるため
コマンドボタンのオブジェクト名は、
cmd_start ' 実行ボタン
としました。
それぞれのコンボボックス「cbo_hh」「cbo_mm」「cbo_ss」から「時」「分」「秒」を選択した際に、中身がどうなっているのかをMsgBoxで確認してみました。
最初の質問と違う場所は、●※●です。
Firefoxを起動するのではなく、MsgBoxでVBAが返してくる内容を確認してみました。
■※1と、■※2、を入れ換えながら、試したところ、VBAが返してくるのは、1900/xx/xx ??:??:?? であることが分かってきました。
質問で書かせて頂きましたコードでは、見かけ上「??:??:??」でも、内部処理は、「当日ではなくて1900年xx月xx日の、??:??:??」になっているようで、コンボボックスから指定した時刻になっても何も起きなかったのが原因のようです。
starttimeを、★当日★の「??:??:??」にするようには、どうやったらよいのでしょうか?
ご存じの方がいらっしゃいましたら、教えて頂きますよう宜しくお願い致します。
※コードは、
−−−−−−−−−−−−−−−−−−−−−−
'(General) (Declarations)
Dim hh As Long
Dim mm As Long
Dim ss As Long
'Dim starttime As Date ' ■※1
'Dim starttime As String ' ■※2
−−−−−−−−−−−−−−−−−−−−−−
Private Sub UserForm_Initialize()
For hh = 0 To 23
UserForm1.cbo_hh.AddItem hh
Next
For mm = 0 To 59
UserForm1.cbo_mm.AddItem mm
Next
For ss = 0 To 59
UserForm1.cbo_ss.AddItem ss
Next
End Sub
−−−−−−−−−−−−−−−−−−−−−−
Private Sub cmd_start_Click()
hh = cbo_hh.ListIndex
mm = cbo_mm.ListIndex
ss = cbo_ss.ListIndex
starttime = hh & mm & ss ' ●※●
MsgBox starttime ' ●※●
End Sub
−−−−−−−−−−−−−−−−−−−−−−
|
|