欢迎来到天天文库
浏览记录
ID:27786307
大小:55.00 KB
页数:4页
时间:2018-12-06
《基于excel vba进销存信息系统开发》由会员上传分享,免费在线阅读,更多相关内容在学术论文-天天文库。
1、基于ExcelVBA进销存信息系统开发[摘要]Excel是最流行、最优秀的电子表格,再加上VBA编程能力,使Excel如虎添翼。本设计采用Excel与VBA开发了进销存信息系统,其特点开发周期短、维护与使用方便和开发成本低;本设计使用材料目录,目录中有材料代码、产品名称、规格型号项目,当在材料出入库单处理时,无需重复手工输入材料代码、产品名称、规格型号,只需要双击出入库单B列所在行空白处,选择需要的材料代码,这时系统自动填写其产品名称、规格型号;只要及时输入出入库单,库存结存表就可以立刻显示出当月各种材料结存情
2、况。 [关键词]Excel;VBA;进销存;信息系统 1库存材料目录表 2存材料入库表 3材料出库表 4材料结存表 5、材料代码选择程序 5.1入库表程序 在工程中双击sheets(入库)页面,选择BeforeDoubleClick事件,输入以下代码。 OnErrorResumeNext Application.ScreenUpdating=False IfTarget.Ron=2AndTarget.Text=""Then Cancel=True frm产品代码.S
3、ho产品代码.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) EndIf Application.ScreenUpdating=True 5.2出库表程序 双击入库表页面,选择Before
4、DoubleClick事件,输入以下代码。 OnErrorResumeNext Application.ScreenUpdating=False IfTarget.Ron=2AndTarget.Text=""Then Cancel=True frm产品代码.Sho产品代码.ListBox1.List(frm产品代码.ListBox1.ListIndex,0) Target.Cells(,2)=frm产品代码.ListBox1.List(frm产品代码.ListBox1.ListIndex,1) T
5、arget.Cells(,3)=frm产品代码.ListBox1.List(frm产品代码.ListBox1.ListIndex,2) EndIf Application.ScreenUpdating=True 6科目代码选择窗口 6.1代码选择窗口 6.2窗口事件程序 6.2.1窗体Initialize事件代码 PrivateSubUserForm_Initialize() Dime"!A1:C50" .ColumnCount=3 .ColumnHeads=False EndPROD
6、UCT((入库!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本期出存 =SU
7、MPRODUCT((出库!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 主要
此文档下载收益归作者所有