- ベストアンサー
エクセル VBA リストボックスでの時間入力
よろしくお願いします。 ユーザーフォームでListBox1には1時間置きに8時から20時までをhourで設定 8 9 10 11 12・・・ ListBox2には5分置きに分のみ00から60までを設定 00 05 10 15 20・・・ と設定してあります。 例えばListBox1で「12」を選択し、続けてListBox2で「30」を選択したら、アクティブセルに「12：30」と入力し1つ下のセルへ移動するのにはどうしたらできるでしょうか？ よろしくお願いします。
- tsukajun
- お礼率70% (24/34)
- Excel（エクセル）
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
一応、こんなコードで実現できます。 ListBox2の値をWクリックで選択すると値が入ります。 ＃Clickイベントだと同じ値を連続して入れられないのでDblClickを使いました。 Private Sub ListBox2_DblClick(ByVal Cancel As MSForms.ReturnBoolean) sString = ListBox1.Text & ":" & ListBox2.Text ActiveCell.Value = TimeValue(sString) ActiveCell.Offset(1, 0).Activate End Sub
お礼
ありがとうございました。 うまくできました。 ダブルクリックで入力も助かりました。