Excel VBA質問箱 IV

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

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


73311 / 76738 ←次へ | 前へ→

【7907】Re:リストボックスの未選択について
質問  とん  - 03/9/23(火) 10:47 -

引用なし
パスワード
   INAさん Jカーターさん

回答ありがとうございます!
お返事が遅くなってすみません。

>リストの1件目が、空白でそれが選択されているようなことはありませんか?
>未選択であれば、-1 となるはずです。

それが、リストは空白ナシにしています。

>複数選択で使っているListBoxでしたら

リストボックスは複数選択可にしていました。
ためしにMultiSelectを0にしてListIndexをみたらちゃんと-1になりました!!
複数選択リストボックスはListIndexが普通に使えないのですね・・・・。

>Selectedプロパティを使ってループして調べる必要があるかもしれません。

ためしに作ってみたのですが、こういうことでしょうか?

Dim list_count As Integer
Dim counter As Integer
'1=選択済み 0=未選択
Dim select_flag As Integer

list_count = lst_Bumon.ListCount
counter = 0
select_flag = 0

Do
  If lst_Bumon.Selected(counter) = True Then
    select_flag = 1
    Exit Do
  End If 
  counter = counter + 1
Loop While counter > lst_count

If select_flag = 0 Then
  MsgBox ("リストボックスから選択してください")
End If

これでリストボックス未選択の制御ができるつもりなのですが・・・。
まだVBAに不慣れなもので、よろしければまたご教授ください。

お願いします。
0 hits

【7892】リストボックスの未選択について とん 03/9/22(月) 17:41 質問
【7893】Re:リストボックスの未選択について INA 03/9/22(月) 18:15 回答
【7896】Re:リストボックスの未選択について Jカーター 03/9/22(月) 18:36 回答
【7907】Re:リストボックスの未選択について とん 03/9/23(火) 10:47 質問
【7908】Re:リストボックスの未選択について INA 03/9/23(火) 11:02 回答
【7910】Re:リストボックスの未選択について とん 03/9/23(火) 13:38 お礼

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