Private Sub Worksheet_Activate()
查询.Show 0
End Sub
Private Sub 窗体查询_Click()
查询.Show 0
End Sub
Private Sub 直接查询_Click()
Sheets("查询").Select
Sheets("查询").Rows("3:65536").Select
Selection.Delete Shift:=xlUp
If Sheets("查询").Cells(1, 3) = "" Then
MsgBox "请输入查询条件并用~隔开,再点击查询按钮。"
Exit Sub
End If
tj1 = Sheets("查询").Cells(1, 11).Value
tj2 = Sheets("查询").Cells(1, 12).Value
tj3 = Sheets("查询").Cells(1, 13).Value
xxs = Sheets("信息").Range("A65536").End(xlUp).Row
For i = 2 To xxs
If Not Sheets("信息").Rows(i).Find(tj1) Is Nothing Or tj1 = "" Then
If Not Sheets("信息").Rows(i).Find(tj2) Is Nothing Or tj2 = "" Then
If Not Sheets("信息").Rows(i).Find(tj3) Is Nothing Or tj3 = "" Then
cxs = Sheets("查询").Range("A65536").End(xlUp).Row + 1
Sheets("信息").Rows(i).Copy Sheets("查询").Rows(cxs)
Application.CutCopyMode = False
End If
End If
End If
Next
End Sub