リストボックス選択

いつもお世話になっております
わかる方おしえてくれませんでしょうか
添付ファイルのように
コマンドボタンを押下すると　あらかじめ
せっていされた　遠藤　加藤だけを　
選択する方法ありますでしょうか。

質問者からの補足コメント

• 

  ここまではできましたが、
  選択されているのを一旦解除して
  
  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

    補足日時：2022/11/06 09:23

No.1 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/11/06 10:13

全て選択解除したのち、遠藤と加藤を選択します。

リストボックスの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

この回答へのお礼

うぉ-　うまくいきました。
ありがとうございました。

お礼日時：2022/11/06 10:22