|
こんにちわ。
早速ですが、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)
End If
Next
On Error GoTo 0
For r = 1 To MemberCount
TextBox1.Text = MyColl(r).Value
Next r
|
|