VBA로 만든 대출 상환 시뮬레이션 도구

배경



집이나 자동차의 구입을 검토되고 있는 분은 누구나가 검토하는 대출.
복수의 금융기관의 검토시에 도움이 되는 것이 월별 지불의 시뮬레이션이군요.
각 금융기관이 제공하고 있는 무료 시뮬레이션 서비스를 사용하고 있는 분들도 생각합니다만, 이것이 스스로 준비할 수 있으면 편리하다고 생각했으므로, Excel VBA로 만들어 보았습니다.

공구 본체



도구 본체는 github 내에 있으므로 여기에서 다운로드하십시오.
htps : // 기주 b. 코 m / 세키 14 / 아안 시무 치온

사용법



먼저 "대출 상환 시뮬레이션 (V1.0).xlsm"을 엽니다.
마이카 대출용, 모기지 대출용의 2개의 시트를 준비하고 있습니다.
마이카 대출은 최대 5패턴
모기지는 최대 6 패턴 입력할 수 있도록 하고 있습니다.

※마이카 론은 라이프 플랜 중에서 재검토가 발생하는 경우가 있다고 생각하므로,
전차의 상환 플랜의 입력란을 마련해 비교할 수 있도록 하고 있습니다.

이쪽이 마이카 론용 시트.


이쪽이 모기지용 시트.


사용법은 아래와 같습니다. 운용 대출 및 모기지 모두 동일한 절차에 사용할 수 있습니다.
①백색 셀(구매비용, 상환기간, 연리, 보너스 상환액)에 각각 금액·비율을 입력
여기에서는 예로서 구입 비용 35,000,000엔, 두금 없음, 상환 기간 35년, 고정 금리 3.5%로 계산하고 있습니다.


② 「일괄 산출」버튼을 누르면, 「매월의 상환액」, 「보너스시 상환액」, 「대출지급총액」, 「대출지급총액과 차입액의 차액」이 각각 적자로 자동 산출된다.


③ 산출결과를 한번 클리어하고 싶을 때는 「산출결과 클리어」의 버튼을 누르십시오.


소스 코드와 사용한 함수



대출 상환 금액을 버튼 하나로 일괄 계산하는 처리 (Loan_Calc.bas)
산출 결과를 클리어하는 처리(Val_Clr.bas)를 VBA로 구현하고 있습니다.
(하고 싶은 것은 실행하려는 Excel 함수를 호출하는 것입니다)

Loan_Calc.bas
'*****************************************************
'*** Loan_Calc():ローン返済額一括算出処理関数  ***
'*****************************************************
Sub Loan_Calc()

'パターン1算出
Range("B10") = "=B4-B5" '借入額
Range("B13") = "=ABS(PMT(B8/12, B7*12, B10-B11))" '毎月の返済額
Range("B14") = "=ABS(PMT(B8/2,B7*2,B11))" 'ボーナス時返済額
Range("B16") = "=((B13*12)+(B14*2))*B7" 'ローン支払総額
Range("B17") = "=B16-B10" 'ローン支払と実費との差額

'パターン2算出
Range("B26") = "=B20-B21" '借入額
Range("B29") = "=ABS(PMT(B24/12, B23*12, B26-B27))"  '毎月の返済額
Range("B30") = "=ABS(PMT(B24/2,B23*2,B27))"  'ボーナス時返済額
Range("B32") = "=((B29*12)+(B30*2))*B23" 'ローン支払総額
Range("B33") = "=B32-B26" 'ローン支払と実費との差額

'パターン3算出
Range("E10") = "=E4-E5" '借入額
Range("E13") = "=ABS(PMT(E8/12, E7*12, E10-E11))" '毎月の返済額
Range("E14") = "=ABS(PMT(E8/2,E7*2,E11))" 'ボーナス時返済額
Range("E16") = "=((E13*12)+(E14*2))*E7" 'ローン支払総額
Range("E17") = "=E16-E10" 'ローン支払と実費との差額

'パターン4算出
Range("E26") = "=E20-E21"  '借入額
Range("E29") = "=ABS(PMT(E24/12, E23*12, E26-E27))" '毎月の返済額
Range("E30") = "=ABS(PMT(E24/2,E23*2,E27))" 'ボーナス時返済額
Range("E32") = "=((E29*12)+(E30*2))*E23" 'ローン支払総額
Range("E33") = "=E32-E26" 'ローン支払と実費との差額

'パターン5算出
Range("H26") = "=H20-H21" '借入額
Range("H29") = "=ABS(PMT(H24/12, H23*12, H26-H27))" '毎月の返済額
Range("H30") = "=ABS(PMT(H24/2,H23*2,H27))" 'ボーナス時返済額
Range("H32") = "=((H29*12)+(H30*2))*H23" 'ローン支払総額
Range("H33") = "=H32-H26" 'ローン支払と実費との差額

'前回車ローン比較
Range("H10") = "=H4-H5" '借入額
Range("H13") = "=ABS(PMT(H8/12, H7*12, H10-H11))" '毎月の返済額
Range("H14") = "=ABS(PMT(H8/2,H7*2,H11))" 'ボーナス時返済額
Range("H16") = "=((H13*12)+(H14*2))*E7" 'ローン支払総額
Range("H17") = "=H16-H10" 'ローン支払と実費との差額

End Sub

Val_Clr.bas
'*****************************************************
'*** Val_Clr():算出結果クリア処理関数  ***
'*****************************************************
Sub Val_Clr()

Range("B10, B13, B14, B16, B17").ClearContents
Range("B26, B29, B30, B32, B33").ClearContents
Range("E10, E13, E14, E16, E17").ClearContents
Range("E26, E29, E30, E32, E33").ClearContents
Range("H10, H13, H14, H16, H17").ClearContents
Range("H26, H29, H30, H32, H33").ClearContents

End Sub

대출 상환 금액을 계산하려면 Excel의 PMT 함수를 사용합니다.
PMT 함수의 사용법은 아래 사이트가 매우 알기 쉽습니다.
htps : // 가능하다. 네 t/아르치 cぇ/4633/

요약



대출 이용은 계획적으로. . .

좋은 웹페이지 즐겨찾기