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


'=========================================================================================
' ◆標準モジュールのコード◆
'-----------------------------------------------------------------------------------------
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 支払期日        '★★★


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