基于excel vba進銷存信息系統(tǒng)開發(fā)

《基于excel vba進銷存信息系統(tǒng)開發(fā)》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在學術(shù)論文-天天文庫。

1、基于ExcelVBA進銷存信息系統(tǒng)開發(fā)［摘要］Excel是最流行、最優(yōu)秀的電子表格，再加上VBA編程能力，使Excel如虎添翼。本設(shè)計采用Excel與VBA開發(fā)了進銷存信息系統(tǒng)，其特點開發(fā)周期短、維護與使用方便和開發(fā)成本低；本設(shè)計使用材料目錄，目錄中有材料代碼、產(chǎn)品名稱、規(guī)格型號項目，當在材料出入庫單處理時，無需重復手工輸入材料代碼、產(chǎn)品名稱、規(guī)格型號，只需要雙擊出入庫單B列所在行空白處，選擇需要的材料代碼，這時系統(tǒng)自動填寫其產(chǎn)品名稱、規(guī)格型號；只要及時輸入出入庫單，庫存結(jié)存表就可以立刻顯示出當月各種材料結(jié)存情

2、況。　?。坳P(guān)鍵詞］Excel；VBA；進銷存；信息系統(tǒng)　　　　1庫存材料目錄表　　　　2存材料入庫表　　　　3材料出庫表　　　　4材料結(jié)存表　　　　5、材料代碼選擇程序　　5.1入庫表程序　　在工程中雙擊sheets(入庫)頁面，選擇BeforeDoubleClick事件，輸入以下代碼。　　OnErrorResumeNext　　Application.ScreenUpdating=False　　IfTarget.Ron=2AndTarget.Text=""Then　　Cancel=True　　frm產(chǎn)品代碼.S

3、ho產(chǎn)品代碼.ListBox1.List(frm產(chǎn)品代碼.ListBox1.ListIndex,0)　　Target.Cells(,2)=frm產(chǎn)品代碼.ListBox1.List(frm產(chǎn)品代碼.ListBox1.ListIndex,1)　　Target.Cells(,3)=frm產(chǎn)品代碼.ListBox1.List(frm產(chǎn)品代碼.ListBox1.ListIndex,2)　　EndIf　　Application.ScreenUpdating=True　　5.2出庫表程序　　雙擊入庫表頁面，選擇Before

4、DoubleClick事件，輸入以下代碼?！　nErrorResumeNext　　Application.ScreenUpdating=False　　IfTarget.Ron=2AndTarget.Text=""Then　　Cancel=True　　frm產(chǎn)品代碼.Sho產(chǎn)品代碼.ListBox1.List(frm產(chǎn)品代碼.ListBox1.ListIndex,0)　　Target.Cells(,2)=frm產(chǎn)品代碼.ListBox1.List(frm產(chǎn)品代碼.ListBox1.ListIndex,1)　　T

5、arget.Cells(,3)=frm產(chǎn)品代碼.ListBox1.List(frm產(chǎn)品代碼.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本期結(jié)存　　=E3+F3-G3　　　　主要