有没有人知道计提折旧的代码怎么写啊 急需答案，哪位高手帮一下帮啊，谢谢！

Excel自身就有好几个折旧函数，不用自己编写代码了吧。
调用Excel自带函数的方法你应该知道，如，Worksheetfunction.DB(几个参数)

五个折旧函数：DB，DDB，SLN，SYD，VDB
以下为Help中的解释：
DB(cost,salvage,life,period,month)Cost 为资产原值。Salvage 为资产在折旧期末的价值（有时也称为资产残值）。Life 为折旧期限（有时也称作资产的使用寿命）。Period 为需要计算折旧值的期间。Period 必须使用与 life 相同的单位。Month 为第一年的月份数，如省略，则假设为 12。
DDB(cost,salvage,life,period,factor)Cost 为资产原值。Salvage 为资产在折旧期末的价值（有时也称为资产残值）。此值可以是 0。Life 为折旧期限（有时也称作资产的使用寿命）。Period 为需要计算折旧值的期间。Period 必须使用与 life 相同的单位。Factor 为余额递减速率。如果 factor 被省略，则假设为 2（双倍余额递减法）。
SLN(cost,salvage,life)Cost 为资产原值。Salvage 为资产在折旧期末的价值（有时也称为资产残值）。Life 为折旧期限（有时也称作资产的使用寿命）。

SYD(cost,salvage,life,per)Cost 为资产原值。Salvage 为资产在折旧期末的价值（有时也称为资产残值）。Life 为折旧期限（有时也称作资产的使用寿命）。Per 为期间，其单位与 life 相同。
VDB(cost,salvage,life,start_period,end_period,factor,no_switch)Cost 为资产原值。Salvage 为资产在折旧期末的价值（有时也称为资产残值）。此值可以是 0。Life 为折旧期限（有时也称作资产的使用寿命）。Start_period 为进行折旧计算的起始期间，Start_period 必须与 life 的单位相同。End_period 为进行折旧计算的截止期间，End_period 必须与 life 的单位相同。Factor 为余额递减速率（折旧因子），如果 factor 被省略，则假设为 2（双倍余额递减法）。如果不想使用双倍余额递减法，可改变参数 factor 的值。有关双倍余额递减法的详细说明，请参阅函数 DDB。No_switch 为一逻辑值，指定当折旧值大于余额递减计算值时，是否转用直线折旧法。