Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40180 / 76737 ←次へ | 前へ→

【41658】Re:リストボックスの選択について
発言  Jaka  - 06/8/18(金) 15:41 -

引用なし
パスワード
   >この方法は、MultiSelect が fmMultiSelectSingle のときしか使えないっぽいです。
Private Sub UserForm_Initialize()
Me.ListBox1.List = Array(1, 2, 3, 4, 5)
Me.ListBox1.ListIndex = -1 ←これ入れました?
End Sub

1-fmMultiSelectMultiの場合はなぜか
こんな感じにフォーカスを持たせた後、矢印キーで移動させると明確な選択表示(青いやつ)は出ないみたいですが、

Private Sub UserForm_Initialize()
Me.ListBox1.List = Array(1, 2, 3, 4, 5, 6)
Me.ListBox1.ListIndex = -1
Me.ListBox1.SetFocus
End Sub

これで、選択されていることがわかります。
Private Sub CommandButton1_Click()
If ListBox1.ListIndex < 0 Then
  MsgBox "選択なし"
Else
  MsgBox ListBox1.List(ListBox1.ListIndex)
End If
End Sub

2-fmMultiSelectExtendedの場合は、ちゃんと選択表示(青い)が出ました。

2002SP3に変えられちゃったので、これしか確認できません。

0 hits

【41649】リストボックスの選択について うくれれ 06/8/18(金) 10:15 質問
【41651】Re:リストボックスの選択について Blue 06/8/18(金) 11:01 回答
【41654】Re:リストボックスの選択について Jaka 06/8/18(金) 12:25 発言
【41655】Re:リストボックスの選択について Blue 06/8/18(金) 13:04 発言
【41658】Re:リストボックスの選択について Jaka 06/8/18(金) 15:41 発言
【41660】Re:リストボックスの選択について Blue 06/8/18(金) 16:03 発言
【41661】Re:リストボックスの選択について Jaka 06/8/18(金) 16:27 発言
【41712】勘違いしてました。 Jaka 06/8/21(月) 9:27 発言

40180 / 76737 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free