年の月数を設定します。InputBox("資産購入時の価格を入力してください。InputBox("耐用年数を経た後での資産の価格を入力してください。InputBox("資産の耐用期間を月数で入力してください。年以上かどうかを確認します。InputBox("資産の耐用期間を月数で入力してください。月数を年数に変換します。近似の年に切り上げます。CInt(InputBox("減価償却費を計算する年を入力してください。"の範囲の数値を入力してください。InputBox("減価償却費を計算する年を入力してください。Subこれまでに出てきていない関数等については、追々説明していきます。内のフォルダの名前を表示します。最初のフォルダ名を返します。現在のフォルダと親フォルダは無視します。フォルダかどうかを調べます。フォルダであれば、それを表示します。イミディエイトウインドウに。次のフォルダ名を返します。1Loop'下記は参考です。