程序运行慢，如何优化？在线等！

zhang_yugang

验收录入的时候，要等好长时间。
请朋友们帮忙优化一下，谢谢！

[ 本帖最后由 zhang_yugang 于 2010-1-5 09:51 编辑 ]

VBAHERO

尽量不直接用单元格来比较，比如查询单号的那一段，用数组会快很多
Dim TempRow As Long, TempArray, TempValue
TempRow = Sheets("本月入库").[C60000].End(xlUp).Row
TempArray = Sheets("本月入库").Range("C2:C" & TempRow)
TempValue = ActiveSheet.Cells(5, 10)
For c = LBound(TempArray) To UBound(TempArray)
  If TempValue = TempArray(c) Then
    MsgBox ("单号重复,请核实!")
    Exit Sub
  End If
Next
后面的程序：
  Do Until .Cells(b, 3) = ""
    b = b + 1
    Loop
改成： b = .Range("C65536").End(xlUp).Row + 1，尽量减少循环

zhang_yugang

谢谢VBAHERO ！

不过我还不会用数组，有时间一定好好学一下。

灰袍法师

For c = LBound(TempArray) To UBound(TempArray)
  If TempValue = TempArray(c) Then
    MsgBox ("单号重复,请核实!")
    Exit Sub
  End If
Next
=============================================
不要用 msgbox, 直接把错误信息写到单元格，顶多最后显示一次提醒就行了

要是有 1000 次不一致，用户肯定疯掉。

[ 本帖最后由 灰袍法师 于 2010-1-5 18:25 编辑 ]

zhang_yugang

谢谢灰袍法师