［摘 要］ 利用Word的宏作為工具，通過(guò)編制程序，實(shí)現(xiàn)雙倍余額遞減法折舊額的自動(dòng)計(jì)算，并將計(jì)算結(jié)果顯示在Word環(huán)境的表格中。

［關(guān)鍵詞］ Word環(huán)境；雙倍余額遞減法；折舊

［中圖分類號(hào)］F275；F270.7［文獻(xiàn)標(biāo)識(shí)碼］A［文章編號(hào)］1673-0194（2007）04-0046-03

利用Excel電子表格處理軟件來(lái)計(jì)算雙倍余額遞減法下的折舊，不少學(xué)者進(jìn)行了很多探索，但這些方法一般以一個(gè)固定的值作為計(jì)算的模式，缺乏普遍性。針對(duì)這一問(wèn)題，本文應(yīng)用Word中VBA編程以宏命令的方式自動(dòng)進(jìn)行折舊計(jì)算，可以讓用戶進(jìn)行初始數(shù)據(jù)的輸入，然后自動(dòng)輸出各年度的計(jì)算結(jié)果。

一、雙倍余額遞減法的特點(diǎn)與折舊計(jì)算

雙倍余額遞減法是在不考慮固定資產(chǎn)凈殘值的情況下，根據(jù)每期期初固定資產(chǎn)賬面余額和雙倍的直線法折舊率計(jì)算折舊的一種方法。其特點(diǎn)是：（1）折舊基數(shù)是固定資產(chǎn)凈值而不是原值。（2）折舊率按同等條件下直線法（假定凈殘值為零）折舊率的雙倍計(jì)算。（3）由于沒(méi)有考慮固定資產(chǎn)凈殘值，為避免提不完折舊，到一定年限后需改用直線法。根據(jù)現(xiàn)行會(huì)計(jì)制度規(guī)定，在達(dá)到固定資產(chǎn)使用年限的前兩年內(nèi)改為直線法。

設(shè)固定資產(chǎn)的原始價(jià)值為A，預(yù)計(jì)凈殘值率為r，折舊年限為n，采用現(xiàn)行雙倍余額遞減法計(jì)提的折舊額，見(jiàn)表1。

二、應(yīng)用宏實(shí)現(xiàn)折舊自動(dòng)計(jì)算

宏是一系列組合在一起的 Word 命令和指令，它們形成一個(gè)命令，以實(shí)現(xiàn)任務(wù)執(zhí)行的自動(dòng)化。雙倍余額遞減法首先讓用戶輸入A，r和n三個(gè)值，計(jì)算后的結(jié)果形式如表1，第一行為3個(gè)字段，以下各行為各字段的值，以下詳細(xì)介紹應(yīng)用程序?qū)崿F(xiàn)的方法。

１． 接受用戶輸入的數(shù)據(jù)，代碼如下：

A = Val(InputBox(“輸入A的值”，“計(jì)算折舊表”))

r = Val(InputBox(“輸入預(yù)計(jì)凈殘值率為r”，“計(jì)算折舊表”))

n = Val(InputBox(“輸入折舊年限n”，“計(jì)算折舊表”))

If n < 2 Then ‘如果年數(shù)小于1則不輸出表

Exit Sub

End If

2. 輸出用戶輸入的3個(gè)值，以使用戶可以查看已輸入的值，同時(shí)增加表的實(shí)用性#65377;

ss = “A=” Trim(Str(A)) “;r=” Trim(Str(r))“;n=” Trim(Str(n))

Selection.TypeText Text:=ss‘輸出A#65380;r和n#65377;

Selection.TypeParagraph

3. 下兩語(yǔ)句輸出一個(gè)n+1行3列的表#65377;

ActiveDocument.Tables.Add Range:=Selection.Range， NumRows:=n + 1， NumColumns:= _

3， DefaultTableBehavior:=wdWord9TableBehavior， AutoFitBehavior:= _ wdAutoFitFixed

With Selection.Tables(1)

.Columns.PreferredWidth = CentimetersToPoints(5)

.AutoFormat Format:=wdTableFormatSimple1， ApplyBorders:=True， _

ApplyShading:=True， ApplyFont:=True， ApplyColor:=True， _

ApplyHeadingRows:=True， ApplyLastRow:=False， ApplyFirstColumn:=True， _ ApplyLastColumn:=False， AutoFit:=True

End With

4. 表格中第一行中輸入字段名

Selection.TypeText Text:=“年”

Selection.MoveRight Unit:=wdCharacter， Count:=1

Selection.TypeText Text:=“折舊計(jì)算”

Selection.MoveRight Unit:=wdCharacter， Count:=1

Selection.TypeText Text:=“賬面價(jià)值”

5. 第2行到n-1行輸出第1年到n-2年的折算值#65377;由于第一年到到n-2年之間具有一定的規(guī)律性，這里用一個(gè)循環(huán)語(yǔ)句來(lái)實(shí)現(xiàn)，具體代碼如下:

For ii = 1 To n - 2

Selection.MoveDown Unit:=wdLine， Count:=1

Selection.MoveLeft Unit:=wdCharacter， Count:=2

Selection.TypeText Text:=Trim(Str(ii))

Selection.MoveRight Unit:=wdCharacter， Count:=1

p1 = A * (1 - 2 / n) ^ (ii - 1) * 2 / n

p1 = Int(p1 * 100 + 0.5) / 100

Selection.TypeText Text:=Trim(Str(p1))

Selection.MoveRight Unit:=wdCharacter， Count:=1

p2 = A * (1 - 2 / n) ^ ii

p2 = Int(p2 * 100 + 0.5) / 100

Selection.TypeText Text:=Trim(Str(p2))

Next ii

6. 雙倍余額遞減法中，最后兩年在計(jì)算上與前n-2年存在差異，因此提出來(lái)獨(dú)立計(jì)算#65377;

Selection.MoveDown Unit:=wdLine， Count:=1

Selection.MoveLeft Unit:=wdCharacter， Count:=2

Selection.TypeText Text:=Trim(Str(n - 1))

Selection.MoveRight Unit:=wdCharacter， Count:=1

p1 = (A*(1 - 2 / n) ^ (n - 2) - A*r) / 2

p1 = Int(p1*100 + 0.5) / 100

Selection.TypeText Text:=Trim(Str(p1))

Selection.MoveRight Unit:=wdCharacter， Count:=1

p2 = (A*(1 - 2 / n) ^ (n - 2) + A*r) / 2

p2 = Int(p2 *100 + 0.5) / 100

Selection.TypeText Text:=Trim(Str(p1))

Selection.MoveDown Unit:=wdLine， Count:=1

Selection.MoveLeft Unit:=wdCharacter， Count:=2

Selection.TypeText Text:=Trim(Str(n))

Selection.MoveRight Unit:=wdCharacter， Count:=1

Selection.TypeText Text:=Trim(Str(p1))

Selection.MoveRight Unit:=wdCharacter， Count:=1

p2 = Int(A*r*100 + 0.5) / 100

Selection.TypeText Text:=Trim(Str(p2))

三、應(yīng)用舉例

在Word中可以把宏生成一個(gè)工具欄菜單項(xiàng)，點(diǎn)擊該菜單項(xiàng)就可以運(yùn)行該宏。具體方法如下：“工具”→“自定義” →“命令”→在類別中點(diǎn)擊“宏”→在“命令”欄中選擇宏“”并按住鼠標(biāo)左鍵拖動(dòng)到工具欄中，并點(diǎn)擊右鍵，在彈出式菜單的“命名”欄中更改相應(yīng)的名字。如把它命名為“雙余計(jì)算”。

［例］ 某設(shè)備原價(jià)為50 000元，使用年限為5年，預(yù)計(jì)凈殘值為2 000元。用雙倍余額遞減法計(jì)算各年折舊額。

點(diǎn)擊工具欄中“雙倍余額遞減法折舊計(jì)算表”工具菜單，分別在輸入對(duì)話框中輸入A=50 000，ｎ＝５，ｒ＝2 000/

50 000 = 4% = 0.04。按回車鍵便可得到下述折舊計(jì)算表：

A=50 000； r=0.04； n=8

四、結(jié) 語(yǔ)

通過(guò)Word的宏可以很方便地計(jì)算出雙倍余額遞減法各年的折舊額，并在Word中列出計(jì)算后的表格，通過(guò)上述計(jì)算過(guò)程不難得出，雙倍余額遞減法各年折舊額成等比關(guān)系（最后兩年除外），運(yùn)用上述計(jì)算公式及程序計(jì)算某年折舊額既快速簡(jiǎn)捷，又能保證計(jì)算結(jié)果的準(zhǔn)確性。

主要參考文獻(xiàn)

[1] 全國(guó)會(huì)計(jì)專業(yè)技術(shù)資格考試領(lǐng)導(dǎo)小組辦公室.中級(jí)會(huì)計(jì)實(shí)務(wù)(一)[M]. 北京:中國(guó)財(cái)政經(jīng)濟(jì)出版社，2001.

[2] [美]Matthew Harris. Visual Basic for Applications——VBA自學(xué)教程[M]. 任曉峰等譯. 北京:電子工業(yè)出版社，1995.