请问如何用VBA查找出满足多个条件的A列黄色底纹的编号，如附件，满足“D至P列”蓝...

新一一

请问如何用VBA查找出满足多个条件的A列黄色底纹的编号，如附件，满足“D至P列”蓝色底纹条件的编号在A列黄色底纹处显示出来。

liulang0808

可以取看看星光版主sql的帖子，,或者直接遍历对比
具体看 楼主怎么设置条件，能有几个返回结果

新一一

liulang0808 发表于 2020-1-19 21:12
可以取看看星光版主sql的帖子，,或者直接遍历对比
具体看 楼主怎么设置条件，能有几个返回结果

回复版主：返回结果不限，只要满足条件即可显示多个编号出来。

蓝桥玄霜

查询的代码：

新一一

谢谢版主们，么么哒

wxxydl

Private Sub aatest()
    Dim sh1 As Worksheet
    Dim i As Integer, j As Integer
    Dim filename, conn, rs, table As Variant
    Dim arr
    filename = ThisWorkbook.FullName
    Set conn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("adodb.Recordset")
    conn.Open "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & ThisWorkbook.FullName
   
    table = "[数据源$]"
    SQL = ""
    SQL = SQL & "select 编号 from " & table & " where"
    Set sh1 = ThisWorkbook.Sheets("查找模板")
    arr = sh1.[d1:p2]
    For i = 1 To UBound(arr, 2)
        If arr(2, i) <> "" Then
            'If Application.WorksheetFunction.IsNumber(arr(2, i)) Then
            's = s & " and " & arr(1, i) & "=" & arr(2, i)
            'Else
            s = s & " and " & arr(1, i) & "='" & arr(2, i) & "'"
            'End If
        End If
    Next
    s = Right(s, Len(s) - 4)
    SQL = SQL & s
'    bb = conn.Execute(SQL).getrows
'    rs.Open SQL, conn, 3, 1
    sh1.Cells(2, 1).CopyFromRecordset conn.Execute(SQL)
    Set rs = Nothing
    conn.Close
    Set conn = Nothing
End Sub