- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：エクセルＶＢＡのリストボックス）
エクセルVBAのリストボックスを使った検索システムの作成方法
このQ&Aのポイント
- エクセルVBAを使用してリストボックスを使った検索システムを作成していますが、複数選択時にうまく表示されません。
- リストボックスはユーザーフォームではなくシートに貼り付けています。
- 特定の場所に選択した地域を表示させたいのですが、複数選択時にうまくいきません。
- emi445
- お礼率34% (8/23)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
こんばんわ。 これで如何でしょうか。 Private Sub CommandButton1_Click() Dim i As Integer Dim s As String For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then _ s = s & ListBox1.List(i) & "、" Next i If s <> "" Then s = Left(s, Len(s) - 1) Range("A25") = s End Sub
お礼
無事に解決できました。 ありがとうございました。