求助查找满足名称和型号时两个条件对应的单价

yifei031201

现在存在问题：现在是输入型号就会自动查找对应型号单价，希望改为查找满足名称和型号时两个条件对应的单价
帮们修改一下VBA公式，要求：在《主材流水》、《机物料流水》、《辅材流水》三个表中的名称列和型号列中同时输入内容后自动查找在《1仓库原材料》、《2仓库机物料》、《2仓库辅材》表中对应的名称和型号在K列的单价显示在《主材流水》、《机物料流水》、《辅材流水》三个表中的的K列单价中

另外能不能把出库金额等于单价乘本月出库的公式改为VBA

蓝桥玄霜

求助文件不要带密码。

笨鸟飞不高

Sub AwTest()
    Dim i&, kStr$, ws As Worksheet, arr, d As Object
    Application.ScreenUpdating = False
    Set d = CreateObject("Scripting.Dictionary")
    For Each ws In Sheets
        If InStr(ws.Name, "仓库") Then
            arr = ws.Range("C3:K" & ws.Cells(Rows.Count, 3).End(3).Row)
            For i = 1 To UBound(arr)
                kStr = arr(i, 1) & "|" & arr(i, 2)
                d(kStr) = arr(i, UBound(arr, 2))
            Next
        End If
    Next
    For Each ws In Sheets
        If InStr(ws.Name, "流水") Then
            ws.[i7:j5000].ClearContents
            arr = ws.Range("D7:I" & ws.Cells(Rows.Count, 4).End(3).Row)
            For i = 1 To UBound(arr)
                kStr = arr(i, 1) & "|" & arr(i, 2)
                If d.exists(kStr) Then arr(i, 5) = d(kStr): arr(i, 6) = arr(i, 5) * arr(i, 4)
            Next
            ws.Range("D7:I" & ws.Cells(Rows.Count, 4).End(3).Row) = arr
        End If
    Next
    Application.ScreenUpdating = True
End Sub

笨鸟飞不高

成本管理20201117.zip (227.51 KB, 下载次数: 22)

2020-11-28 12:05 上传

点击文件名下载附件

yifei031201

蓝桥玄霜 发表于 2020-11-28 11:44
求助文件不要带密码。

蓝桥玄霜老师密码以去掉

yifei031201

笨鸟飞不高 发表于 2020-11-28 12:05

老师你好，附件是修改的吗，测试怎么不行呢

lsc900707

用字典能解决！

yifei031201

lsc900707 发表于 2020-11-30 18:49
用字典能解决！

麻烦老师给修改一下吧

yifei031201

蓝桥玄霜 发表于 2020-11-28 11:44
求助文件不要带密码。

蓝桥玄霜 老师，你可以帮们修改一下代码吗

蓝桥玄霜

模块代码放在模块里面，工作簿代码放在thisworkbook代码区
原来3个工作表里面的代码都不要了。