'=========================================================================================
' 240 PMTでローンの返済額を計算する
'-----------------------------------------------------------------------------------------
'【ヒント】
' このマクロは、おためし機能の動作用のコードを含んでいます。
' タイトル機能に関係するコードは、ユーザーフォームのコード画面で見てください。


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Public タイトル As String
Public スタイル As Long
Public メッセージ As String
Public 応答 As Variant



'-----------------------------------------------------------------------------------------
Sub おためしマクロ()
    おためしメッセージを表示する
End Sub
'-----------------------------------------------------------------------------------------
Private Sub おためしメッセージを表示する()
    Worksheets("Title").Select
    タイトル = "500連発 第2弾 サンプルマクロ"
    スタイル = 64                               'vbInformation
    Range("E7").Select                          'カーソルを入力セルへ
    UserForm1.Show                              'ユーザーフォームを表示する
End Sub
'-----------------------------------------------------------------------------------------
Sub Auto_Close()
    Application.DisplayAlerts = False           '閉じる際に確認メッセージを出さない
    ActiveWorkbook.Close                        '現在開いているブックを閉じる
End Sub
'-----------------------------------------------------------------------------------------



'=========================================================================================
' ◆ユーザーフォームのコード◆
'-----------------------------------------------------------------------------------------
Option Explicit
Dim 答              '★★★
Dim 金額            '★★★
Dim 利率            '★★★
Dim 期間            '★★★
Dim 現在価値        '★★★
Dim 将来価値        '★★★
Dim 支払期日        '★★★


'=========================================================================================
' PMTでローンの返済額を計算する         '★★★
'-----------------------------------------------------------------------------------------
Private Sub CommandButton1_Click()      'コマンドボタンがクリックされたときに実行されるマクロ
    Unload Me                                   'ユーザーフォームを閉じる
'
    利率 = Range("E7").Value / 100 / 12         '％を小数に、年利を月利に
    期間 = Range("E8").Value
    現在価値 = 0 - Range("E9").Value            '負の数にする
    将来価値 = 0 - Range("E10").Value
    支払期日 = Range("E11").Value
    答 = Application.WorksheetFunction.Pmt(利率, 期間, 現在価値, 将来価値, 支払期日)
    金額 = Format(答, "###,###,##0.00")
'
    Range("E12").Select                         'カーソルを定位置へ移動する
    メッセージ = "返済額は、" & Chr(13) & Chr(13) & _
                金額 & " 円です"
    応答 = MsgBox(メッセージ, スタイル, タイトル)
End Sub
'=========================================================================================