利用VBA进行条件取值并查询所有订单记录代码实例

这里我们通过VBA if条件判断和for循环语句，来制作一个简单的订单查询记录系统。

在订单记录表中，输入业务员的名字，然后单击“查询订单”按钮，即可查询出该业务员的所有订单记录。

以下附实例代码及文件下载，代码仅供参考。

Sub serarchOrder()

    Dim i As Integer, lastRow As Integer, recordNums As Integer

    lastRow = Cells(Rows.Count, 11).End(xlUp).Row

    '清空之前查询记录

    If lastRow > 2 Then

        Range("k3", "n" & lastRow).ClearContents

    End If

    '最后一条订单记录所在行

    recordNums = Cells(Rows.Count, 2).End(xlUp).Row

    For i = 2 To recordNums

        If Cells(i, 6) = [j3] Then

            '复制符合条件记录

            Cells(lastRow + 1, 11) = Cells(i, 2) '订单号

            Cells(lastRow + 1, 12) = Cells(i, 3) '客户姓名

            Cells(lastRow + 1, 13) = Cells(i, 4) '产品名称

            Cells(lastRow + 1, 14) = Cells(i, 5) '订购数量

        End If

        '重新定位最后一条记录

        lastRow = Cells(Rows.Count, 11).End(xlUp).Row

    Next

End Sub

代码实例文件下载地址