|
ユーザフォームのテキストボックスの文字を別ブックの全てのシートから検索し
必要な列だけをリストボックスに表示したいです。
現在、ネットで検索してなんとか
別ブックの指定したシートから検索し表示は出来たのですが・・・。
Private Sub CommandButton1_Click()
Dim wb As Workbook
Dim flg As Boolean
Dim myData,myData2(),myno
Dim i As long,j As long,cn As long
ForEach wb In Workbooks
If wb.Name="DATA.xlms"Then
fig=True
Exit For
End If
Next
If fig=False Then
Workbooks.Open ThisWorkbook.Path&"\DATA.xlsm"
End If
With Worksheets("K2")
lastRow=.Cells(Rows.Count,1).End(xlUp).Row
myData=.Range(.Cells(1,1),.Cells(lastRow,7)).Value
End With
ReDim myData2(1 To lastRow,1 To 4)
Fori=LBound(myData)To UBound(myData)
If myData(i,4)Like"*"&Textbox1.Value&"*"Then
cn=cn+1
myData2(cn,1)=myData(i,1)
myData2(cn,2)=myData(i,3)
myData2(cn,3)=myData(i,4)
myData2(cn,4)=myData(i,6)
End If
Next i
With リストボックス
.ColumnCount=4
.ColumnWidths="50;200;200;50"
.List
End With
Workbooks("DATA.xlsm").Close SaveChanges:=False
End Sub
別ブック内の全てのシートから検索し表示したいです。
シートは5つあります。
どのように記述すればよいかご教示お願いします。
|
|