• 
    

    
    

      99热精品在线国产_美女午夜性视频免费_国产精品国产高清国产av_av欧美777_自拍偷自拍亚洲精品老妇_亚洲熟女精品中文字幕_www日本黄色视频网_国产精品野战在线观看 ?

      淺談VBA在集團(tuán)型企業(yè)資產(chǎn)集中管理中的應(yīng)用

      2020-10-27 05:51:19錢(qián)永江
      中國(guó)管理信息化 2020年15期
      關(guān)鍵詞:臺(tái)賬

      錢(qián)永江

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

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

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

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

      0? ? ? 前? ? 言

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

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

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

      1.1? ?設(shè)計(jì)思路

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

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

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

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

      輸入的簡(jiǎn)易界面如圖1所示。

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

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

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

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

      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) = "合計(jì):"

      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

      猜你喜歡
      臺(tái)賬
      葉立東:村支書(shū)的“新臺(tái)賬”
      企業(yè)電子統(tǒng)計(jì)臺(tái)賬問(wèn)題研究
      卷宗(2021年20期)2021-08-06 03:03:14
      工作落實(shí),一本臺(tái)賬起什么作用?
      靖邊規(guī)范基層黨建工作臺(tái)賬
      韓雪峰的“臺(tái)賬”
      ERP系統(tǒng)的設(shè)備創(chuàng)建及臺(tái)賬管理
      乌审旗| 工布江达县| 达拉特旗| 新平| 海门市| 白水县| 女性| 黎平县| 武威市| 屏东县| 洛南县| 沐川县| 醴陵市| 利津县| 柘荣县| 宁陕县| 富宁县| 连平县| 甘孜县| 鹤峰县| 新兴县| 临武县| 宜都市| 团风县| 南乐县| 诸暨市| 新晃| 昌乐县| 屯门区| 政和县| 九龙城区| 郴州市| 松江区| 沙坪坝区| 陈巴尔虎旗| 彭阳县| 建宁县| 潼南县| 惠来县| 平舆县| 海口市|