Excel VBA formatについて

質問

Excelで予約登録システムを作って運用しています。
開始と終了時間をComboBoxで作っていて、中のデータはプロパティーの
RowSourceでセルデータ（07:20～19:00の10分毎、計73データ）設定。
ComboBoxのchangeイベントで
With Me
　　Cmbkjikan.vcalue = Format(.Cmbkjikan.Value, "hh:mm")
End With
としています。
これで正常に動いているのですが、12:00を選択すると「0.5」
になって、Valueプロパティーを設定できません。とエラーが
出てしまいます。
今は、応急処置として11:59に変更しています。
解決策をご教授お願い致します。

回答No.1

kkkkkm · ベストアンサー

RowSourceをやめて_Initialize()でセットしてみてください。
以下はA1からA15までとしてのコードですので、実際に合わせてください。Change()はなくてもいけます。

Private Sub UserForm_Initialize()
Dim i As Long

For i = 1 To 15
Me.Cmbkjikan.AddItem Format(Cells(i, "A"), "hh:mm")
Next
End Sub

お礼

ありがとうございます。
思い通りの動作になりました。

回答No.2

kkkkkm

No.1の追加です。
もしくは
Change()を以下のように変更してみてください。

Private Sub Cmbkjikan_Change()
Dim index As Integer
With Me
index = .Cmbkjikan.ListIndex
.Cmbkjikan.Value = Format(.Cmbkjikan.List(index), "hh:mm")
End With
End Sub