淺談VBA在集團型企業資產集中管理中的應用

錢永江

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

[關鍵詞] 資產集中管理;臺賬;VBA;EXCEL函數

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

[中圖分類號] F234? ? [文獻標識碼]? A? ? ? [文章編號]? 1673 - 0194（2020）15- 0080- 03

0? ? ? 前? ? 言

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

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

1? ? ? 金融資產集中管理臺賬設計思路與功能要求

1.1? ?設計思路

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

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

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

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

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

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

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

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

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

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