お世話になっております。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
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2015/11/19 14:44
2015/11/19 15:46