根据sheet1列出来的名称，从另一张表中查询并计算历史成本。

lorei

有两张表，根据sheet1列出来的名称，从另一张表中查询并计算历史成本。sheet1：

sheet2：



目标1：根据A列的名称，在sheet2里面，找出商品A的所有数据，然后计算；最后生成一张列表。
目标2： 在红框里输入要查的商品名称 生成历史成本变化折线图。

哪位能帮忙给下建议...谢谢。

lorei

谢谢版主... 这里的查询用哪种方法比较简洁？

lorei

朱荣兴 发表于 2018-8-17 11:27
不是查询的问题，你的思路就是错误的，字典去重复，分别筛选，存入数组，再在数组内按你的需求求和，写入 ...

刚刚学VBA，谢谢指点。

lorei

朱荣兴 发表于 2018-8-17 11:27
不是查询的问题，你的思路就是错误的，字典去重复，分别筛选，存入数组，再在数组内按你的需求求和，写入 ...

分别找出A B C D E F G…… 在sheet2 中的对应数据以备用，用哪种方法好一些？

魂断蓝桥

Sub 查询()
Dim cnn As Object, rs
Dim Sql As String, arr, i%, j%, m%, brr(1 To 999, 1 To 2), jg, sl
Set cnn = CreateObject("ADODB.CONNECTION")
Set rs = CreateObject("ADODB.Recordset")
cnn.Open "Provider=Microsoft.ACE.OleDb.12.0;Extended Properties='Excel 12.0;HDR=YES'; Data Source=" & ThisWorkbook.FullName
Sql = "select distinct 名称 from [Sheet2$a1:c16] "
arr = cnn.Execute(Sql).getrows
For i = 0 To UBound(arr, 2)
    Sql = "select * from [Sheet2$a1:c16] "
    rs.Filter = "名称='" & arr(0, i) & "'"
    rs.Open Sql, cnn, 1, 1
    m = m + 1
    sl = 0
    brr(m, 1) = rs.Fields("名称")
        For j = 1 To rs.RecordCount
            If j = 1 Then
                jg = rs.Fields("数量") * rs.Fields("当期价格")
                brr(m, 2) = jg
                sl = rs.Fields("数量")
            Else
                jg = brr(m, 2) + (rs.Fields("数量") - sl) * rs.Fields("当期价格")
                brr(m, 2) = jg
                sl = rs.Fields("数量")
            End If
             rs.MoveNext
        Next
        rs.Close
Next
With Sheet1
    .[a2:b99] = ""
    .[a2].Resize(m, 2) = brr
End With
Set cnn = Nothing
Set rs = Nothing
End Sub

lorei

魂断蓝桥 发表于 2018-8-17 15:34
Sub 查询()
Dim cnn As Object, rs
Dim Sql As String, arr, i%, j%, m%, brr(1 To 999, 1 To 2), jg, sl ...

非常感谢~~