Excel VBA質問箱 IV

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

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


9501 / 13644 ツリー ←次へ | 前へ→

【26977】初挑戦マクロが行き詰りました… じゅんちゃん 05/7/25(月) 21:16 質問[未読]
【26978】Re:初挑戦マクロが行き詰りました… だるま 05/7/25(月) 21:23 回答[未読]
【26991】Re:初挑戦マクロが行き詰りました… じゅんちゃん 05/7/26(火) 1:54 お礼[未読]

【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

【26978】Re:初挑戦マクロが行き詰りました…
回答  だるま WEB  - 05/7/25(月) 21:23 -

引用なし
パスワード
   こんにちは

ヘルプによると、

「最大 10 列 (0 〜 9) までの制限」

があるようですよ。^d^

【26991】Re:初挑戦マクロが行き詰りました…
お礼  じゅんちゃん  - 05/7/26(火) 1:54 -

引用なし
パスワード
   to だるまさん

ありがとうございました

9501 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free