|
▼YU さん 今日は
とりあえず分かることだけですが、検討してみてください。
>早速ですが、ListBoxに、
>エクセルの表から一部検索して一致した表のRowを表示したいのですが、
>こんな感じで作ってみたんですけど、MyCollに修飾子が不正です のエラーでいきづまってしまいました。
>Dim A As Range
>Dim MyRange As Range
>Dim MyColl() As ListBox '<------???不要では
>Dim MaxRow As Integer
>
>MaxRow = Worksheets("一覧").Range("A65536").End(xlUp).Row
>Set MyRange = Worksheets("一覧").Range("A2:A" & MaxRow)
>
>On Error Resume Next
>For Each A In MyRange
> If A.Value = TextBox1.Value Then
> MyColl.Add A, CStr(A.Value) 'ここを下記のように修正
ListBox1.AddItem CStr(A.Value) '<------修正
'ListBox1だけあるとして
'ListBox1,ListBox2のように指定する必要があります。
'ListBoxは複数あるのですか ?????
> End If
>Next
>On Error GoTo 0
>For r = 1 To MemberCount
> TextBox1.Text = MyColl(r).Value'<------したいことがよく分からない???
>Next r
|
|