如何写多条件查询的代码

jylux

请问对于多条件的查询代码应该怎么写？
我想编写一个查找制定物料和批次是的最小数量及所在库位的代码。

谢谢。

z403025335

Sub 宏()
Dim n&, i&, s$, t&
i = 2
With Sheet1
    Do While .Range("J" & i) <> ""
        n = 2
        t = 999999
        Do While .Range("A" & n) <> ""
            If .Range("J" & i) = .Range("A" & n) And .Range("K" & i) = .Range("B" & n) Then
                    If t > .Range("D" & n) Then
                        t = .Range("D" & n)
                        s = .Range("C" & n)
                    End If
            End If
            n = n + 1
        Loop
        .Range("L" & i) = s
        .Range("M" & i) = t
        i = i + 1
    Loop
End With
End Sub

jylux

z403025335 发表于 2018-8-16 18:03
Sub 宏()
Dim n&, i&, s$, t&
i = 2

谢谢。我还想请教下，如果基础数据在sheet1，而查询的信息在sheet2的时候应该怎么写了。

jylux

z403025335 发表于 2018-8-16 18:03
Sub 宏()
Dim n&, i&, s$, t&
i = 2

谢谢，我自己试着改了下，运行没有问题。谢谢你的指导。
Sub 库位查找()
Dim n&, i&, s$, t&
i = 2
With Sheet2
    Do While .Range("a" & i) <> ""
        n = 2
        t = 999999
        Do While Sheet1.Range("A" & n) <> ""
            If .Range("a" & i) = Sheet1.Range("A" & n) And .Range("b" & i) = Sheet1.Range("B" & n) Then
                    If t > Sheet1.Range("D" & n) Then
                        t = Sheet1.Range("D" & n)
                        s = Sheet1.Range("C" & n)
                    End If
            End If
            n = n + 1
        Loop
        .Range("c" & i) = s
        .Range("d" & i) = t
        i = i + 1
    Loop
End With
End Sub

microyip

http://club.excelhome.net/thread-1310803-1-1.html 参考变通一下