求助多条件查找

foryoumy

vba实现多条件查找

chenhangrong

代码附在附件

foryoumy

谢谢解答！继续完善我的后段工作

Qs18

Private Sub CommandButton1_Click() '户籍码查询
ListView1.ListItems.Clear '清除列表数据
项目地区 = ComboBox1.Value
项目名称 = ComboBox2.Value
合作公司 = ComboBox3.Value
项目负责人 = ComboBox4.Value

  For i = 2 To UBound(a)
        If a(i, 2) Like "*" & 项目地区 & "*" And a(i, 3) Like "*" & 项目名称 & "*" Then
        If a(i, 11) Like "*" & 合作公司 & "*" And a(i, 12) Like "*" & 项目负责人 & "*" Then
            Set Item = ListView1.ListItems.Add() '对ListView1控件添加列表项
                Item.Text = a(i, 1)     '第一列显示查到的序号
            For J = 2 To 17
                Item.SubItems(J - 1) = a(i, J)
            Next
        End If
        End If
Next
Label5.Caption = "共找到 " & ListView1.ListItems.Count & " 条记录"
End Sub

Qs18

试试................

Qs18

试试...........