Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

54545 / 76732

←次へ　｜　前へ→


	【26977】初挑戦マクロが行き詰りました…

じゅんちゃん - 05/7/25(月) 21:16 -


	引用なし

	パスワード

次のマクロを実行するとエラーが出ます。「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

0 hits

▼

【26977】初挑戦マクロが行き詰りました… じゅんちゃん 05/7/25(月) 21:16

≪