會(huì)計(jì)實(shí)務(wù)：基于ExcelVBA進(jìn)銷存信息系統(tǒng)開發(fā)

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

1庫存材料目錄表

2存材料入庫表

3材料出庫表

4材料結(jié)存表

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進(jìn)銷存表之間數(shù)據(jù)公式

7.1上期結(jié)存

=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本期結(jié)存

=E3+F3-G3

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