エクセルの少し複雑なモデルについて

質問

エクセルの少し複雑なモデルについて

今減価償却費用と資産純額の予測という作業をやっています。
例えば、あるパソコンが100万円するとして5年間かけて価値がなくなってゆくとして、
仮に前年の70%に価値が低下するとします。
その場合、100万×70%＝70万というのが1年後の価値、70万×70%＝49万というのが2年後の価値、
その後34.3万（3年後）、24.0（4年後）、16.8（5年後）となるわけです。このままずっと70%を掛け続けた場合、いつまでたっても0円になりません。通常資産はいつかは価値がなくなるものです。
そこで耐用年数という概念が出てきます。例えば5年で資産価値がなくなる場合、耐用年数=5年という言い方をします。この場合、5年目には一気に価値がゼロになる操作をします。

つまり、4年後24.0　→5年後　0　ということです。

上記のような処理をエクセルで自動的にやりたいと思っています。つまり以下のようなエクセルを想定しています。

耐用年数　3年
価値低下率　70%（＝償却率）
取得価格　100万円

　　　　　　1年目　　2年目　　3年目　　4年目　　5年目
資産価格　　100万円　70万円　　0万円
価値下落額　　　　　　30万円　　70万円

この上記の1年目から3年目までの数値を自動的に出したいと思っています。
問題は耐用年数です。
つまり、「3年目になった場合は、下落率が70%でも、耐用年数期限がきたから全額価値減少させて
0円にする」という処理をしたいわけです。

できればエクセルで、無理ならVBAを用いてもよいので、やり方を教えてもらえませんでしょうか？
また、VBAについては素人ですので、シート上での設定や、動作開始のやり方なども教えてもらえると
うれしいです。

何卒宜しくお願い申し上げます。

回答No.2

KURUMITO · ベストアンサー

Ａ１セルに耐用年数、Ａ2セルに価格低下率、Ａ3セルに取得価格、とそれぞれ項目名を入力しＢ列にデータがあるとします。例えばＢ1セルに３、Ｂ２せるに７０％、Ｂ3セルに1000000と入力されているとします。

Ａ6セルには資産価格、Ａ7セルには価格下落率の項目名があり、Ｂ5セルから右横方向には1年目、2年目、3年目・・・とあるとします。
そこで答えですがＢ6セルには次の式を入力し右横方向にオートフィルドラッグします。

=IF(COLUMN(A1)<$B$1,IF(COLUMN(A1)=1,$B$3,$B$3*$B$2^(COLUMN(A1)-1)),IF(COLUMN(A1)=$B$1,0,""))

Ｂ7セルには次の式を入力して右横方向にオートフィルドラッグします。

=IF(OR(COLUMN(A1)=1,B6=""),"",A6-B6)

回答No.3

imogasi

Googleで「エクセル関数　減価償却」で照会すれば、エクセルの減価償却の関数が出てくる。
または「DB 減価償却」で照会のこと。
これを読んで使えるかどうか考えて、質問して（本質問に補足して）ください。
多分この関数がエクセルにあることを知らないで、質問で減価償却などの講釈をしているのではないですか。

回答No.1

aokii

耐用年数が記入されたセルがE1として、
資産価格=IF(B2=E1,0,前年の資産価値*価値低下率)
でしょうか。