| ご返答ありがとうございます。 郵便番号や都道府県でも検索を追加したいと考えております。 コンビボックス(cmb区分)とテキストボックス(textbox3)を追加して、検索は出来るようになったのですが、テキストボックスとコンビボックスを空欄にして検索すると、「インデックスが有効範囲にありません」と表示されてしまいます。 どうしても回避できないですが、アドバイスいただけないでしょうか。
------以下入力内容---------------
'検索を実行します。部分一致検索を行っています。 Private Sub CommandButton1_Click() Dim lastRow As Long Dim myData, myData2(), myno Dim i As Long, j As Long, cn As Long
' If TextBox1.Value = "" Or cmb区分.Value = "" or TextBox3.Value = "" Then End
'検索するデータを配列 myData に格納しています。 With Worksheets("Sheet1") myData = .Range(.Cells(1, 1), .Cells(Rows.Count, 6).End(xlUp)).Value lastRow = .Cells(Rows.Count, 1).End(xlUp).Row End With
'配列 myData の中で検索で一致したデータを配列 myData2 に格納しています。 ReDim myData2(1 To lastRow, 1 To 5) For i = LBound(myData) To UBound(myData) If myData(i, 2) Like "*" & TextBox1.Value & "*" And myData(i, 3) Like "*" & cmb区分.Value & "*" And myData(i, 4) Like "*" & TextBox3.Value & "*" Then cn = cn + 1 myData2(cn, 1) = myData(i, 1) myData2(cn, 2) = myData(i, 2) myData2(cn, 3) = myData(i, 3) myData2(cn, 4) = myData(i, 4) myData2(cn, 5) = myData(i, 5) End If Next i
'検索で一致したデータをリストボックスに表示します。 With ListBox1 .ColumnCount = 5 .ColumnWidths = "30;70;70;100;100" .List = myData2 End With
End Sub
|