求助，请老师帮忙看看这个代码的问题，运行很慢

xinqingox

Sub 查询出库()
    Application.ScreenUpdating = False
    If [K3&L3] = "" Then MsgBox "请输入要查询的单据编号!": Exit Sub
    Dim r1, i, j As Long
    Dim arr
    arr = Sheets("出库汇总").Range("b3:n" & Sheets("出库汇总").Range("c5000").End(xlUp).Row)
    j = 5
    With Sheets("出库单")
    For i = 1 To UBound(arr)
    If arr(i, 2) = .Range("K3") & Range("L3") Then
            .[b3] = arr(i, 3)
            .[k4] = arr(i, 1)
            j = j + 1
            .Cells(j, 1) = arr(i, 5)
            .Cells(j, 2) = arr(i, 6)
            .Cells(j, 4) = arr(i, 8)
            .Cells(j, 7) = arr(i, 11)
            .Cells(j, 8) = arr(i, 12)
            .Cells(j, 9) = arr(i, 13)
        End If
    Next
    If j = 5 Then MsgBox "对不起，没有查询到此订单，请检查单据编号!", , "提示": Exit Sub
    End With
    Application.ScreenUpdating = True
    MsgBox "查询完毕！", , "提示"
End Sub



还有一个问题，请教老师，就是新建单据的时候，单据编码后面的4位数字（0001），点击新建单据后会依次加1编程（0002），如何能实现点击新建单据后面的4位数字根据出库汇总里已有的单据编号依次加1，比如：出库汇总里现有BNZY20230001,BNZY20230002,BNZY20230003三个单据编号，点击新建单据变成BNZY20230004,如果我查询某一个单据的时候，手动改单据编号为0002查询完比，再新建单据是会按照0002这个数字加1变成0003了不能根据出库汇总里的数据叠加

shiruiqiang

到数组，不要反复操作单元格

半百

这么几个单元格输入不会慢多少，主要是公式拖累的。
   先改成手动重算   Application.Calculation = xlManual
运行完再改为自动重算  Application.Calculation = xlAutomatic
或者将公式全改由代码实现。

grf1973

既然用了VBA，当然是要到里面的公式全部取代掉。
慢在用了数组公式，VLOOKUP等。

grf1973

第二个问题。

shiruiqiang

grf1973

最好是做成工作表事件。
为简单计，做了个补丁，通过客户+商品+规格型号查询单位、单价等。
在主程序里（查询、保存等）调用补丁即可

grf1973

速度还慢不知何故，难道是下面那个大写的公式引起的？

adud

我估计是那几个单元格操作太浪费时间。你可以改一下试试。

xinqingox

grf1973 发表于 2023-2-13 13:45
第二个问题。

谢谢老师的帮助