end0tknr's kipple - 新web写経開発

http://d.hatena.ne.jp/end0tknr/ から移転します

Application.WorksheetFunctionでVBAからexcelのワークシート関数を利用

例えば、DB() という定率法による減価償却費を算出する関数があります。
この関数は、excelのワークシート関数なので、vbaからは利用できませんが、次のようにApplication.WorksheetFunction.〜で使えるようになります。

Function db_stab(start_price, last_price, exist_years, diff_y, diff_m)
    db_stab = _
        Application.WorksheetFunction.db(start_price, last_price, exist_years, diff_y, diff_m)
End Function