[[20200911184145]]　『複数選択された行の値を取得してセルに代入する』（マサオ）　ページの最後に飛ぶ

『複数選択された行の値を取得してセルに代入する』（マサオ）

複数選択された行の値を取得してセルに代入するコード

Private Sub CommandButton1_Click()
Dim リスト As String
Dim i As Integer
With ListBox1

  For i = 0 To .ListCount - 1
      If .Selected(i) = True Then
        リスト = リスト & .List(i) & vbCrLf
      End If
  Next i
End With
    Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = リスト
上記では改行で複数データがA2しかはいらない
上記のコードを書き換えてList(i)の1が選択されたらA1　3が選択されたらA3に5が選択されたらA5に入力したいのです教えたください。

End Sub

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

 ＞ List(i)の1が選択されたらA1　3が選択されたらA3に

 すると、こうですか。

 Private Sub CommandButton1_Click()
     Dim リスト() As String
     Dim i As Integer

     With ListBox1
         ReDim リスト(1 To .ListCount, 1 To 1)

         For i = 0 To .ListCount - 1
             If .Selected(i) = True Then
                 リスト(i + 1, 1) = .List(i)
             End If
         Next i

         Range("A1").Resize(.ListCount) = リスト
     End With
 End Sub

（半平太） 2020/09/11(金) 19:46

ありがとうございました。すいませんが半平太様もう一つ教えて頂けないでしょうか？リストボックスで選択List(i)の1が選択されたらA1　に〇を　3が選択されたらA3に　〇　5が選択されたらA5に　〇入力したいのです教えたください。選択されたら〇を入力するにはどう書けばいいのでしょうか？
（マサオ） 2020/09/11(金) 20:27

 ＞リスト(i + 1, 1) = .List(i)
　　　　　　　　　　　↓
   リスト(i + 1, 1) = "○"
（半平太） 2020/09/11(金) 21:01

半平太様さんありがとうございました。
（マサオ） 2020/09/11(金) 23:31

コメント返信：

[ 一覧(最新更新順) ]

[[20200911184145]] 『複数選択された行の値を取得してセルに代入する』（マサオ） ページの最後に飛ぶ

[[20200911184145]]　『複数選択された行の値を取得してセルに代入する』（マサオ）　ページの最後に飛ぶ