分享+求助 VBA开单程序

gfj1982

因实际业务需要，现学现卖开发VBA-仓库管理开单程序。从论坛及网上搜索下载了很多代码进行了学习、修改及拷贝形成如下的开单程序。

设计这个开单软件的思路是 基础数据维护、开单事务处理、形成基础出入库数据、出入库数据报表（准备通过vba刷新数据表）。

因本人水平有限，有几个问题需要解决。

1、在第一个登陆页，点击活动单元格也会出现 产品编码、产品名称。是否下面的代码有问题

PrivateSub ListBox1_Click()  '单击理表框时触发事件

    With ActiveCell

        .Offset(0, 1) =ListBox1.Value     '将列表框选中行的第一列输出到A列单元格

        '利用工作表函数大Data工作表中查找第二列第三列的值

        .Offset(0, 2) =WorksheetFunction.VLookup(ListBox1.Value, Sheets("基础数据表").[a2:b300], 2, 0)

        Me.ListBox1.Visible = False

    End With

End Sub

2、这个程序，高手请指点还可以在哪些方面进行相关的优化。能否推荐类似的vba程序源代码进行学习。

谢谢各位！