基于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 = 100 And Target.Column = 2 And Target.Text = "" Then 　　Cancel = True 　　frm产品代码.Show 论文代写　　Target.Cells(, 1) = frm产品代码.ListBox1.List(frm产品代码.ListBox1.ListIndex, 0) 　　Target.Cells(, 2) = frm产品代码.ListBox1.List(frm产品代码.ListBox1.ListIndex, 1) 　　Target.Cells(, 3) = frm产品代码.ListBox1.List(frm产品代码.ListBox1.ListIndex, 2) 　　End If 　　Application.ScreenUpdating = True 　　5.2出库表程序　　双击入库表页面，选择BeforeDoubleClick事件，输入以下代码。　　On Error Resume Next 　　Application.ScreenUpdating = False 　　If Target.Row = 2 And Target.Row = 100 And Target.Column = 2 And Target.Text = "" Then 　　Cancel = True 　　frm产品代码.Show 　　Target.Cells(, 1) = frm产品代码.ListBox1.List(frm产品代码.ListBox1.ListIndex, 0) 　　Target.Cells(, 2) = frm产品代码.ListBox1.List(frm产品代码.ListBox1.ListIndex, 1) 　　Target.Cells(, 3) = frm产品代码.ListBox1.List(frm产品代码.ListBox1.ListIndex, 2) 　　End If 　　Application.ScreenUpdating = True 　　6 科目代码选择窗口论文代写　　6.1 代码选择窗口　　　　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 进销存表之间数据公式　　7.1 上期结存　　=SUMPRODUCT((入库!B$2:B$4564=A3)*(入库!A$2:A$4564——$E$1)*入库!E$2:E$4564)—SUMPRODUCT((出库!B$2:B$4679=A3)*(出库!A$2:A$4679——$E$1)*出库!E$2:E$4679) 　　7.2本期入存　　=SUMPRODUCT((入库!B$2:B$4564=A4)*(入库!A$2:A$4564=——$E$1)*(入库!A$2:A$4564=——$G$1)*入库!E$2:E$4564) 　　7.3本期出存　　=SUMPRODUCT((出库!B$2:B$4679=A4)*(出库!A$2:A$4679=——$E$1)*(出库!A$2:A$4679=——$G$1)*出库!E$2:E$4679) 　　7.4本期结存　　=E3+F3—G3 　　　　主要参考文献　　［1］桂俊煜Excel VBA 会计电算化设计基础与实践北京：机械工业出版社，2007. 　　［2］Excel Hom中国论文联盟会计实务北京：人民邮电出版社，2008. 　　［3］韩小良韩舒婷Excel VBA应用开发北京：电子工业出版社，2007.

思想汇报 /sixianghuibao/。

1 次访问