錢永江

[摘? ? 要] 企業(yè)在實際經(jīng)營過程中，對于價值較高的重要資產(chǎn)必須加強監(jiān)管。企業(yè)一般通過購入管理軟件（OA）作為管理工具實現(xiàn)監(jiān)管目標(biāo)。但外購軟件往往與企業(yè)實際期望存在較大出入，而且存在二次開發(fā)費用及日常維護(hù)費用較高的現(xiàn)實問題。文章應(yīng)用Excel VBA語言，開發(fā)一款與企業(yè)實際契合度較高、人機交互的資產(chǎn)管理臺賬，不但能最大限度地節(jié)約公司經(jīng)費，而且能滿足公司日常管理需要，實時更新管理功能。

[關(guān)鍵詞] 資產(chǎn)集中管理;臺賬;VBA;EXCEL函數(shù)

doi ： 10 . 3969 / j . issn . 1673 - 0194 . 2020. 15. 035

[中圖分類號] F234? ? [文獻(xiàn)標(biāo)識碼]? A? ? ? [文章編號]? 1673 - 0194（2020）15- 0080- 03

0? ? ? 前? ? 言

集團(tuán)公司財務(wù)人員在日常工作中，需要經(jīng)常登記一些集團(tuán)OA或財務(wù)系統(tǒng)無法記載的信息，比如登記集團(tuán)公司下的定期存單的臺賬（所屬子公司、存單號、存入信息、到期日、支取信息等），集團(tuán)公司租賃房產(chǎn)的租賃臺賬，集團(tuán)公司下貸款信息臺賬等。在這些極具個性化的資產(chǎn)（負(fù)債）管理活動中，如直接應(yīng)用軟件開發(fā)服務(wù)商提供管理軟件，不僅不夠經(jīng)濟，而且后續(xù)提升改良頻繁。如僅用Excel登記，其修改的隨意性較大且無過程痕跡，安全性不佳。筆者在實際工作中，通過編制VBA程序，定制相關(guān)資產(chǎn)的管理臺賬。既提高財務(wù)人員的資產(chǎn)（負(fù)債）管理能力，又能以最經(jīng)濟的方式提高辦公效率。

通常在Office-Excel的工作簿里自帶VBA工作環(huán)境，本文以Excel 2007版本為基礎(chǔ)，通過舉例介紹集團(tuán)金融資產(chǎn)集中管理臺賬的部分控件及代碼，實現(xiàn)相關(guān)信息的保存、查詢、修改與打印功能。

1? ? ? 金融資產(chǎn)集中管理臺賬設(shè)計思路與功能要求

1.1? ?設(shè)計思路

一般需要通過輔助臺賬登記相關(guān)信息的金融資產(chǎn)包括定期存單、承兌匯票等。本文僅以定期存單為例，介紹構(gòu)建此類金融資產(chǎn)管理臺賬的思路、所需的功能控件及其代碼。

構(gòu)建思路：通過新增（支?。{單的方式實現(xiàn)對金融資產(chǎn)的管理，一個系統(tǒng)編號對應(yīng)一份定期存單，實現(xiàn)對存單的存取、查詢管理及打印功能。系統(tǒng)編號具有唯一性，以計算機系統(tǒng)日期（8位）+（C 或Z）+后綴序號形式編碼。其中C表示存入，Z表示支取。1.2? ?金融資產(chǎn)管理臺賬的功能要求

具備金融資產(chǎn)信息錄入、存儲、修改、查詢、提取等功能;實現(xiàn)查詢信息的匯總功能;查詢過程中，具備基本的人機交互功能;實現(xiàn)查詢表單的打印功能。

在同一工作簿下建立兩個工作表：一個前臺工作表用于登記、修改及查詢功能;另一個后臺工作表用于存放數(shù)據(jù)（為避免隨意修改本后臺數(shù)據(jù)，本表宜深度隱藏，visible=2）。

輸入的簡易界面如圖1所示。

查詢具有某一共性信息的報表界面如圖2所示。

2? ? ? 主要功能控件的代碼

2.1? ?“新增”功能控件代碼

新增功能控件主要是實現(xiàn)所錄入的金融資產(chǎn)信息的存儲功能，代碼如下：

Private Sub CommandButton1_Click（）

Dim j%， i%， x%

j = Sheet1.[a65536].End（xlUp）.Row

x = Sheet3.[a65536].End（xlUp）.Row

Sheet1.[c2] = "存入存單登記！"

If MsgBox（"確定保存？"， vbOKCancel） = 1 Then

For i = 4 To j

If Left（Sheet3.Cells（x， 2）.Value， 8） = Format（Now， "yyyymmdd"） Then

Sheet1.Cells（i， 7） = Left（Sheet3.Cells（x， 2）.Value， 8） & "C" & Format（Right（Sheet3.Cells（x， 2）.Value， 2） + 1， "00"）

Else

Sheet1.Cells（i， 7） = Format（Now， "yyyymmdd"） & "C01"

End If

For k = 1 To 6

Sheet3.Cells（x + 1， 1） = Sheet1.[B2]

Sheet3.Cells（x + 1， 2） = Sheet1.Cells（i， 7）

Sheet3.Cells（x + 1， k + 2） = Sheet1.Cells（i， k）

Next k

x = x + 1

Next i

Sheet1.Cells（j + 1， 1） = "合計："

Sheet1.Cells（j + 1， 3） = WorksheetFunction.Sum（Sheet1.Range（"c4：c" & j））

If MsgBox（"已保存" & j - 3 & "條記錄！" & Chr（13） & "是否新增新的記錄？"， vbOKCancel） = 1 Then

Sheet1.Range（"b2：f2，A4：g" & j + 1）.ClearContents