計算金額幾年為負數

yc1031

大家好,

我有一個表格(如附件), 我想請問大家像這樣的表有沒有辦法直接用公式算出B欄的金額到第幾年會用完? 謝謝! 計算本金幾年花完.rar (7.63 KB)

下載次數: 7

2024-3-20 15:32

yc1031

回復 1# yc1031



有人可以幫忙嗎? 謝謝

Andy2483

回復 1# yc1031

謝謝前輩發表此主題與範例
後學藉此帖練習自訂函數,學習方案如下,請前輩參考
[G1]輸入 =Y(9000000, 70000, 0.03, 0.06, 216000) 執行結果:

下載 (168.02 KB)

2024-3-22 13:29

Option Explicit
Function Y&(本金&, 每月花費&, 通膨#, 配息#, 退休金&)
Dim i&, 整年花費加通膨&
For i = 1 To 10000
   整年花費加通膨 = 每月花費 * 12 * (1 + 通膨) ^ i
   本金 = 本金 - (整年花費加通膨 - (本金 * 配息) - 退休金)
   If 本金 < 0 Then Y = i + 1: Exit For
Next
End Function

Andy2483

回復 3# Andy2483

沒有考慮到 花不完 的情況,學習方案如下:
Option Explicit
Function Y(本金&, 每月花費&, 通膨#, 配息#, 退休金&)
Dim i&, 整年花費加通膨&, 原本金&
原本金 = 本金
On Error Resume Next
For i = 1 To 10000
   整年花費加通膨 = 每月花費 * 12 * (1 + 通膨) ^ i
   本金 = 本金 - (整年花費加通膨 - (本金 * 配息) - 退休金)
   If 本金 < 0 Then
      Y = i + 1: Exit Function
   End If
Next
End Function
'======================================
補充:以上這邏輯好像不對,如果花費50000,前幾年本金會增加(本金>9000000),但是第18年開始會減少(本金<9000000)
不知道怎麼處理?? 請各位前輩指教

yc1031

回復 3# Andy2483


感動!  有人回覆了

測試是沒問題的,  原來要用到VBA才能算..

再次謝謝你