VBA オブジェクトは、このプロパティまたはメソッドをサポートしていません

Question

お世話になっております。pipiでございます。

excelの各行をリストボックスに追加(反映)するプログラムを作成しているのですが、
実行すると、オブジェクトは、このプロパティまたはメソッドをサポートしていません
と表示されてしまい困っています。
何処がまちがっているのでしょうか？？

Private Sub UserForm_Initialize()
    Worksheets("顧客マスタ").Activate
    
    With lstCustomer
        .Font.Size = 10
        .ColumnCount = 7
        .ColumnWidths = "20;120;90;50;140;70;70"
        .TextAlign = fmTextAlignLeft
        
        Dim i As Integer
        Dim lastRow As Integer
        lastRow = Range("A600").End(xlUp).Row
        For i = 2 To lastRow
            If Cells(i, 8).Value <> 1 Then
                .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).valie
            End If
        Next
    End With
    
End Sub

Answer 1

すみません。自己解決しました。。。

.List(.ListCount - 1, 6) = Cells(i, 7).valie

ではなく

.List(.ListCount - 1, 6) = Cells(i, 7).value

でした。

Comments

[T.Kanno]

おつかれさん。ありがちですねぇ。 (^.^)b

[len_souko]

VBAの編集画面、テキストエディターを最新のVisuakStudio準拠にしてほしいですよね
それがあれば多分このような凡ミスは減らすことができたはずなのに
このサイトでソースコードを張り付けるとフォント振り付け（？表現がわからない）してくれるのが今回の一番のお助けでしたね
言語ごとに色分けしてくれるテキストエディタにコードを貼り付けるってのも手ですね