會計實務：基于ExcelVBA進銷存信息系統(tǒng)開發(fā)

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

1庫存材料目錄表

2存材料入庫表

3材料出庫表

4材料結存表

5、材料代碼選擇程序

5.1入庫表程序

在工程中雙擊sheets(入庫)頁面，選擇BeforeDoubleClick事件，輸入以下代碼。

OnErrorResumeNext

Application.ScreenUpdating=False

IfTarget.Row>=2AndTarget.RowCancel=True

frm產(chǎn)品代碼.Show

Target.Cells(‚1)=frm產(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出庫表程序

雙擊“入庫表”頁面，選擇BeforeDoubleClick事件，輸入以下代碼。

OnErrorResumeNext

Application.ScreenUpdating=False

IfTarget.Row>=2AndTarget.RowCancel=True

frm產(chǎn)品代碼.Show

Target.Cells(‚1)=frm產(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

6科目代碼選擇窗口

6.1代碼選擇窗口

6.2窗口事件程序

6.2.1窗體Initialize事件代碼

PrivateSubUserForm_Initialize()

DimwsAsWorksheet

Setws=ThisWorkbook.Worksheets(“基本資料”)

WithListBox1

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

.ColumnCount=3

.ColumnHeads=False

EndWith

Setws=Nothing

EndSub

6.2.2窗體Click事件代碼

PrivateSubListBox1_Click()

frm產(chǎn)品代碼.Hide

EndSub

7進銷存表之間數(shù)據(jù)公式

7.1上期結存

=SUMPRODUCT((入庫!B$2:B$4564=A3)*(入庫!A$2:A$45647.2本期入存

=SUMPRODUCT((入庫!B$2:B$4564=A4)*(入庫!A$2:A$4564>=--$E$1)*(入庫!A$2:A$45647.3本期出存

=SUMPRODUCT((出庫!B$2:B$4679=A4)*(出庫!A$2:A$4679>=--$E$1)*(出庫!A$2:A$46797.4本期結存

=E3+F3-G3

小編寄語：會計學是一個細節(jié)致命的學科，以前總是覺得只要大概知道意思就可以了，但