求助优化代码缩短运行时间

GUANCHZH

求助优化代码缩短运行时间，附件中的“入库单” C 列是由ListBox控件逐步提示信息录入的，双击信息录入到工作表中，下面的代码运行时间较长要15秒，现求助各位老师帮忙优化一下代码，达到缩短运行时间的效果。
求助优化代码.rar (335.11 KB, 下载次数: 13)

2018-9-28 14:57 上传

点击文件名下载附件

Private Sub ListBOX1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) '双击录入
       tms = Timer

        ActiveCell.Offset(0, -1) = Me.ListBox1.List(Me.ListBox1.ListIndex, 16)
        ActiveCell.Offset(0, 0) = Me.ListBox1.List(Me.ListBox1.ListIndex, 0)
        ActiveCell.Offset(0, 1) = Me.ListBox1.List(Me.ListBox1.ListIndex, 5)
        ActiveCell.Offset(0, 2) = Me.ListBox1.List(Me.ListBox1.ListIndex, 6)
        ActiveCell.Offset(0, 3) = Me.ListBox1.List(Me.ListBox1.ListIndex, 7)
        ActiveCell.Offset(0, 4) = Me.ListBox1.List(Me.ListBox1.ListIndex, 9)
        ActiveCell.Offset(0, 5) = Me.ListBox1.List(Me.ListBox1.ListIndex, 10)
        ActiveCell.Offset(0, 6) = Me.ListBox1.List(Me.ListBox1.ListIndex, 18)

        ActiveCell.Offset(0, 7).Value = Sheet1.Cells(ActiveCell.Offset(0, -1).Value, 77).Value
        ActiveCell.Offset(0, 8).Value = Sheet1.Cells(ActiveCell.Offset(0, -1).Value, 85).Value
        ActiveCell.Offset(0, 9).Value = Abs(Sheet1.Cells(ActiveCell.Offset(0, -1).Value, 86).Value)
        ActiveCell.Offset(0, 10).Value = Sheet1.Cells(ActiveCell.Offset(0, -1).Value, 22).Value
        ActiveCell.Offset(0, 11).Value = Sheet1.Cells(ActiveCell.Offset(0, -1).Value, 39).Value
        ActiveCell.Offset(0, 12).Value = Abs(Sheet1.Cells(ActiveCell.Offset(0, -1).Value, 40).Value)

    Me.ListBox1.Clear
    Me.TextBox1 = ""
    Me.ListBox1.Visible = False
    Me.TextBox1.Visible = False
    ActiveCell.Offset(, 8).Select

    MsgBox Format(Timer - tms, "0.0000s")
End Sub

不知何故

Me.ListBox1.ListIndex一直要使用，可赋值给一个变量，避免重复引用。
ActiveCell.Offset(0, -1)也是一样，多次重复引用了。

最重要的是，把需要输出的内容放进数组，再一次性输出。

GUANCHZH

不知何故 发表于 2018-9-28 16:03
Me.ListBox1.ListIndex一直要使用，可赋值给一个变量，避免重复引用。
ActiveCell.Offset(0, -1)也是一样 ...

把内容写进数组的代码要怎么写？请老师指教

不知何故

GUANCHZH 发表于 2018-9-28 18:54
把内容写进数组的代码要怎么写？请老师指教

你要在活动单元格输出14项，定义一个arr(1 to 14)数组就行了。全部赋值后一次性输出给活动单元格，注意resize

GUANCHZH

不知何故 发表于 2018-9-28 19:14
你要在活动单元格输出14项，定义一个arr(1 to 14)数组就行了。全部赋值后一次性输出给活动单元格，注意re ...

我对数组不熟悉，请老师帮忙写下代码，万分感谢！！

不知何故

GUANCHZH 发表于 2018-9-28 20:27
我对数组不熟悉，请老师帮忙写下代码，万分感谢！！

0.09秒左右，还可以用With语句进一步优化Listbox，懒得改了。



求助优化代码.zip (369.81 KB, 下载次数: 3)

2018-9-28 20:55 上传

点击文件名下载附件

GUANCHZH

不知何故 发表于 2018-9-28 20:55
0.09秒左右，还可以用With语句进一步优化Listbox，懒得改了。

非常感谢老师写的代码，运行速度飞快，再次感谢！！！！