![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
No.2ベストアンサー
- 回答日時:
#1の補足&別提案
pooh-tanさんの仰るとおりでした。(無念)
で、違う方法です。
複数選択のプロパティを「する」にして、複数選択させない方法です。
(泥臭いプログラムだが動きはOK)
Private lngIdx As Long 'リスト選択インデックス格納用変数
Private Sub Form_Load()
lngIdx = -1 'リストボックスが初期選択されていない場合
End Sub
Private Sub list1_Click()
If list1.ItemsSelected.Count > 1 Then
For i = 0 To list1.ListCount
list1.Selected(i) = False
Next i
list1.Selected(list1.ListIndex) = True
lngIdx = list1.ListIndex
Else
lngIdx = -1
End If
End Sub
No.1
- 回答日時:
もっと良い方法があると思いますけど、とりあえず急ぎならば、これでいいのでは。
コードビルダ(VBA)でプログラム。
リストボックス名:list1
選択の有無及び値はlngIdxで取得(-1:未選択)
Private lngIdx As Long 'リスト選択インデックス格納用変数
Private Sub Form_Load()
lngIdx = list1.ListIndex
End Sub
Private Sub list1_Click()
If lngIdx = list1.ListIndex Then
list1.ListIndex = -1
lngIdx = -1
Else
lngIdx = list1.ListIndex
End If
End Sub
ご回答ありがとうございます。上記の通りやってみたんですが、
確かに選択の解除ができるようになったのですが、選択を解除した
場合他のコントロール(コマンドボタンやテキストボックス)を操作する
ことができくなってしまいます。
たびたび申し訳ありませんが、宜しくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- HTML・CSS HTMLのフォームについてお尋ねします 1 2022/12/03 21:47
- Excel(エクセル) EXCELピボットテーブル(複数アイテム) 1 2023/04/27 12:15
- Excel(エクセル) Excelで質問です。 詳細(写真) ①黄色の部分を全てプルダウンを設定する。 ②リストはG列 ③リ 1 2023/06/16 21:54
- JavaScript セレクトを全て選択されていないと、文字によるエラーメッセージを表示させるコードを調べています 2 2023/06/22 15:48
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/06 17:46
- Excel(エクセル) VLOOKUP が機能しない、その原因は何 ? 8 2022/10/19 12:06
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- Illustrator(イラストレーター) Illustrator アンカーポイント選択について 3 2023/01/30 12:31
- Excel(エクセル) コンボボックス及びリストボックスを5段階連動させる方法をご存知の方ご教授頂きたいです。 Excelで 3 2022/04/03 21:43
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
リストボックスの選択解除
Visual Basic(VBA)
-
EXCEL2013 VBA ListBox 未選択
Excel(エクセル)
-
コンボボックスで選択したものをクリアーしたい(アクセス VBA)
Access(アクセス)
-
-
4
ListView 項目の選択/選択解除について
Visual Basic(VBA)
-
5
VB6,リストボックスの特定行の色変更は可能?
Visual Basic(VBA)
-
6
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
7
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
8
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
9
falseとtrue 0,1,-1 の意味が知りたいです
PowerPoint(パワーポイント)
-
10
VBAのリストボックスをマウスでスクロール
PowerPoint(パワーポイント)
-
11
ラベルとテキストボックスのグループ化を解除したい
Access(アクセス)
-
12
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
13
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
14
フォームウィンドウを最前面に表示したい(ACCESS)
Microsoft ASP
-
15
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
16
テキストボックスのカーソル位置の取得・設定方法
Visual Basic(VBA)
-
17
エクセルVBA テキストボックスに3桁ごとにコンマ
Visual Basic(VBA)
-
18
[VBA] UserForm を Excel の Window の前面に表示させない方法
その他(プログラミング・Web制作)
-
19
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
20
リストボックスの特定行の背景色
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルである行以下全部を削...
-
ipadのpagesでMS明朝を使う方法...
-
EXCEL VBAで全選択範囲の解除
-
Androidのスマホで毎回毎回ホー...
-
「無」と「未」の使い方
-
Excel VBAでn行毎に行の選択
-
Wordでドロップダウンリスト連動
-
Excel VBA あるセルでENTERを押...
-
大至急!
-
Jw-cadの範囲指定で文字が選択...
-
戸惑う、惑うの違いはなんですか。
-
Word 文字の向きを選択できない
-
Excel2003にて(ツール→オプシ...
-
Google Earth Pro(グーグルア...
-
「これが」「これで」いいです...
-
シフトキーを使った範囲選択が...
-
Simejiで作ったきせかえを消す...
-
Doctor-X 外科医・大門美智子
-
WORDでテキストを全て選択し一...
-
結婚出来るって偉いことなんで...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルである行以下全部を削...
-
EXCEL VBAで全選択範囲の解除
-
VBAでファイルを開くときにファ...
-
「無」と「未」の使い方
-
Excel VBA あるセルでENTERを押...
-
Androidのスマホで毎回毎回ホー...
-
ipadのpagesでMS明朝を使う方法...
-
「これが」「これで」いいです...
-
Jw-cadの範囲指定で文字が選択...
-
Excel 行列が選択出来ない
-
Google Earth Pro(グーグルア...
-
Wordでドロップダウンリスト連動
-
シフトキーを使った範囲選択が...
-
Excel VBAでn行毎に行の選択
-
EXCELピボットテーブル(複数ア...
-
Simejiで作ったきせかえを消す...
-
選択と採択の違い
-
大至急!
-
Excel2003にて(ツール→オプシ...
-
戸惑う、惑うの違いはなんですか。
おすすめ情報