基于Excel VBA进销存信息系统开发

［摘要］Excel 是最流行、最优秀的电子表格，再加上VBA编程能力，使Excel如虎添翼。本设计采用Excel与VBA 开发了进销存信息系统，其特点开发周期短、维护与使用方便和开发成本低；本设计使用材料目录，目录中有材料代码、产品名称、规格型号项目，当在材料出入库单处理时，无需重复手工输入材料代码、产品名称、规格型号，只需要双击出入库单B列所在行空白处，选择需要的材料代码，这时系统自动填写其产品名称、规格型号；只要及时输入出入库单，库存结存表就可以立刻显示出当月各种材料结存情况。

［关键词］Excel ；VBA；进销存；信息系统

1库存材料目录表

2 存材料入库表

3 材料出库表

4 材料结存表

5、材料代码选择程序

5.1入库表程序

在工程中双击sheets(入库)页面，选择BeforeDoubleClick事件，输入以下代码。

On Error Resume Next

Application.ScreenUpdating = False

If Target.Row >= 2 And Target.Row = 2 And Target.Row

6.2 窗口事件程序

6.2.1 窗体Initialize事件代码

Private Sub UserForm_Initialize()

Dim ws As Worksheet

Set ws = ThisWorkbook.Worksheets(“基本资料”)

With ListBox1

.RowSource = ws.Name & “!A1:C50”

.ColumnCount = 3

.ColumnHeads = False

End With

Set ws = Nothing

End Sub

6.2.2 窗体Click事件代码

Private Sub ListBox1_Click()

frm产品代码.Hide

End Sub

7 进销存表之间数据公式

基于Excel VBA进销存信息系统开发