No.1ベストアンサー
- 回答日時:
全て選択解除したのち、遠藤と加藤を選択します。
リストボックスのMultiSelectプロパティがfmMultiSelectMulti
になっていることが前提です。
Private Sub CommandButton1_Click()
Dim i As Long
With ListBox1
For i = 0 To .ListCount - 1
.Selected(i) = False
Next
.Selected(1) = True '遠藤
.Selected(2) = True '加藤
End With
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 画像編集・動画編集・音楽編集 Windowsに付属しているビデオエディター。BGMを追加する方法は? 1 2022/06/26 08:54
- JavaScript jsで診断コンテンツのページ内切り替えについて 1 2023/04/14 17:31
- Visual Basic(VBA) 複数ファイルのデータの統合について 12 2022/05/14 12:03
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- その他(OS) DOSコマンド『dir』の『/o』オプション 3 2023/03/10 09:29
- Visual Basic(VBA) リストポックスについて 2 2022/11/05 20:48
- その他(ブラウザ) Mycrosoft Edge の「コレクション」に、画像とテキストを追加したい 2 2022/05/28 11:10
- Excel(エクセル) コンボボックス及びリストボックスを5段階連動させる方法をご存知の方ご教授頂きたいです。 Excelで 3 2022/04/03 21:43
- Windows 10 windowsのファイル複数選択について エクスプローラーなどでファイルを複数選択する際、 最初のフ 4 2022/05/22 16:39
- メルカリ メルカリに関しての質問です。 登録したお支払い用銀行口座を削除したいのですが、できません。 「支払い 1 2022/11/22 10:25
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
JSPでボタンを押したら、文字が...
-
VBAで一時中断したプログラムの...
-
Fancyboxのiframe内に閉じるボタン
-
AlertダイアログのOKボタンにつ...
-
C# Enterキーの動作について
-
c# 文字列の最後から1文字削除...
-
VBのこのコードの意味を教えて...
-
メール添付されたPDFファイルが...
-
Acrobatのツールボタンの消し方
-
WebBrowserでログインボタンを...
-
ブラウザの×ボタン(閉じるボタ...
-
SPREADでカーソルの位置を1行目...
-
asp.net 言語はVB 画面のボタン...
-
DataGridViewのチェックボック...
-
サブウインドウを閉じて親ウイ...
-
グリッドビューでのチェックボ...
-
Accessの画面更新を一時的に停...
-
HTMLボタンの文字色を変え...
-
DragEnterイベントについて(VS...
-
実行時にコントロールのイベン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
c# 文字列の最後から1文字削除...
-
DataGridViewのチェックボック...
-
VBAで一時中断したプログラムの...
-
Eclipseでクリーンが出来ない
-
ブラウザの×ボタン(閉じるボタ...
-
グリッドビューでのチェックボ...
-
メール添付されたPDFファイルが...
-
SPREADでカーソルの位置を1行目...
-
EXCEL2010でセルが編集中かを判...
-
CheckBoxをボタン形式にして押...
-
最大化ボタンと最小化ボタンを...
-
Ctrlキーを押しながらのダブル...
-
IEの閉じるボタンを消す方法
-
今更、VBAでRPA、キーボード操...
-
C# Enterキーの動作について
-
Page_Load時にボタンクリックイ...
-
Webブラウザの閉じるボタン無効...
-
【C#】 : WindowsProgramming ...
-
Fancyboxのiframe内に閉じるボタン
-
VBのこのコードの意味を教えて...
おすすめ情報
ここまではできましたが、
選択されているのを一旦解除して
x = Array(0, 2)
.List(.ListIndex(x)) = True
これでだめでした。
なにか方法 わかる方おしえてくれませんでしょうか
Dim i As Long
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
.Selected(i) = False
End If
Next
End With