Excel VBA リストボックスについて

質問

現在エクセルのVBAを勉強中の
超初心者なのですが、
リストボックスを使うコードでエラーが出て
どう直したらいいかわかりません。
下記コードをどのようになおしたらいいでしょうか？
回答、よろしくお願いいたします。

エラー内容は、実行時エラー381
Listプロパティを設定できません。プロパティの配列のインデックスが無効です。

Private Sub UserForm_Initialize()
'リストボックスの設定
With ListBox1
.Font.Size = 10
.ColumnCount = 7
.ColumnWidths = "50;100;80;80;100;30;70"
.TextAlign = fmTextAlignLeft
.Font.Name = "MSゴシック"
End With

Dim i As Integer
Dim LastRow As Integer
LastRow = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To LastRow
With ListBox1
.AddItem Cells(i, 1).Value
.List(ListCount - 1, 1) = Cells(i, 2).Value
.List(ListCount - 1, 2) = Cells(i, 3).Value　←ここでエラー
.List(ListCount - 1, 3) = Cells(i, 4).Value
.List(ListCount - 1, 4) = Cells(i, 5).Value
.List(ListCount - 1, 5) = Cells(i, 6).Value
.List(ListCount - 1, 6) = Cells(i, 7).Value
End With
Next
End Sub

回答No.1

kkkkkm · ベストアンサー

> .List(ListCount - 1, 1) = Cells(i, 2).Value

ListCountの前にドットがないのでエラーになっていると思います。

.List(.ListCount - 1, 1) = Cells(i, 2).Value

以下全てドットを追加してください。