みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

エクセル 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つ下のセルへ移動するのにはどうしたらできるでしょうか?

よろしくお願いします。

投稿日時 - 2019-07-14 21:27:37

QNo.9635427

困ってます

質問者が選んだベストアンサー

一応、こんなコードで実現できます。
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

投稿日時 - 2019-07-14 23:57:47

お礼

ありがとうございました。
うまくできました。
ダブルクリックで入力も助かりました。

投稿日時 - 2019-07-15 06:23:55

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問