|
次のマクロを実行するとエラーが出ます。「listプロパティーを設定できません。プロパティーの値が不正です」と言われ、columncountの値を20にしても10列までしかリストが増えません。教えてください。
Private Sub kennsakuBotton_Click()
Dim matchFlag1 As Boolean
Dim AddRow As Integer
Dim i As Long
ListBox1.Clear
For i = 1 To Range("生化情報オール").Rows.Count - 1
matchFlag1 = (Range("生化情報オール").Cells(i, 34) = ComboBox2.Text)
matchFlag1 = True
If matchFlag1 Then
ListBox1.AddItem Range("生化情報オール").Cells(i, 2)
AddRow = ListBox1.ListCount - 1
ListBox1.List(AddRow, 1) = Range("生化情報オール").Cells(i, 1)
ListBox1.List(AddRow, 2) = Range("生化情報オール").Cells(i, 3)
ListBox1.List(AddRow, 4) = Range("生化情報オール").Cells(i, 5)
ListBox1.List(AddRow, 5) = Range("生化情報オール").Cells(i, 6)
ListBox1.List(AddRow, 6) = Range("生化情報オール").Cells(i, 7)
ListBox1.List(AddRow, 7) = Range("生化情報オール").Cells(i, 8)
ListBox1.List(AddRow, 8) = Range("生化情報オール").Cells(i, 9)
ListBox1.List(AddRow, 9) = Range("生化情報オール").Cells(i, 10)
ListBox1.List(AddRow, 10) = Range("生化情報オール").Cells(i, 11)
ListBox1.List(AddRow, 11) = Range("生化情報オール").Cells(i, 12)
ListBox1.List(AddRow, 12) = Range("生化情報オール").Cells(i, 13)
ListBox1.List(AddRow, 13) = Range("生化情報オール").Cells(i, 14)
ListBox1.List(AddRow, 14) = Range("生化情報オール").Cells(i, 15)
ListBox1.List(AddRow, 15) = Range("生化情報オール").Cells(i, 16)
End If
Next
End Sub
|
|