初学！我想做个控件来查找相关信息

e网诚收

想学一学VBA，附件我想在表一输入相关条件从表二资料里面查找，然后显示在表一的某些位置。这个要怎样写代码呢？

任飘渺

Sub sdasd()
    Dim cn As Object, rs As Object, sql As String, ssCondition As String
    Dim strPath As String, arr()
    Set cn = CreateObject("adodb.connection")
    strPath = ThisWorkbook.FullName
    With cn
        If Application.Version > 12 Then
            .provider = "Microsoft.Ace.oledb.12.0;extended properties=excel 12.0"
            .Open strPath
        Else
            .provider = "microsoft.jet.oledb.4.0;extended properties=excel 8.0"
            .Open strPath
        End If
    End With
   
    With Sheet1
        For i = 1 To 7
            If .Cells(3, i).Value <> "" Then
                ssCondition = ssCondition & .Cells(2, i).Value & " like '%" & .Cells(3, i).Value & "%' and "
            End If
        Next i
        If ssCondition <> "" Then
            ssCondition = " where " & Left(ssCondition, Len(ssCondition) - 5)
        End If
        sql = "select * from [数据资料$]" & ssCondition
        Set rs = cn.Execute(sql)
        Debug.Print sql
        .Range("a7").CurrentRegion.Offset(1).Clear
        .Range("a9").CopyFromRecordset rs
        For i = 1 To rs.Fields.Count
            .Cells(8, i).Value = rs.Fields(i - 1).Name
        Next i
    End With
End Sub

02761752696

没看附件                高级筛选  就可以

e网诚收

02761752696 发表于 2018-8-25 15:30
没看附件                高级筛选  就可以

没那么简单的，帮看看吧！谢谢！

e网诚收

任飘渺 发表于 2018-8-25 17:14
Sub sdasd()
    Dim cn As Object, rs As Object, sql As String, ssCondition As String
    Dim strPa ...

完美解决，要好好学习，非常感谢！

民扬

任飘渺 发表于 2018-8-25 17:14
Sub sdasd()
    Dim cn As Object, rs As Object, sql As String, ssCondition As String
    Dim strPa ...

学习了，非常棒！！！！！！！！！！