Rate 関数

投資の期間あたりの利率を表す Double 型を返します。

構文

Rate( nper , pmt, pv [, fv ] [, type ] [, guess ] )

Rate 関数の引数は次のとおりです。

引数

説明

nper

必須。 投資期間全体での支払回数の合計を指定する Double 型。 たとえば、4 年間の自動車ローンを月払いで返済する場合、このローンには合計 4 * 12 回 (48 回) の支払いが含まれます。

pmt

必須です。 毎回の支払額を指定する Double 型。 支払額には通常、投資期間内に変化しない元金額と利息が含まれます。

PV

必須。 将来の一連の支払いまたは受け取りの現在価値を表す Double 型。 たとえば、車の購入資金を借りた場合、ローン金額は、借り手が毎月行う返済の貸し手に対する現在価値です。

fv

省略可能。 最後の支払いを行った後に残る将来価値、つまり現金の収支を表す Variant 型。 たとえば、ローンの将来価値は、最後の支払い後の値である 0 円になります。 しかし、子供の教育費として 18 年間で 500 万円をためることを目標にした場合、将来価値は 500 万円になります。 省略した場合、0 が想定されます。

type

省略可能。 支払いが行われる時期を表す Variant 型。 支払いを期末に行う場合は 0 を指定し、期首に行う場合は 1 を指定します。 省略した場合、0 が想定されます。

guess

省略可能。 Rate によって返されるものと想定する値を表す Variant 型。 省略すると、guess は 0.1 (10%) です。

解説

これらの関数の対象となる投資は、定額の支払いが定期的に行われることが前提になっています。 投資としては、ローン (住宅ローンなど) または本来の投資 (毎月の貯蓄プランなど) が該当します。

すべての引数に関して、定額預金の支払いのような出金は負の数で表し、配当金のような入金は正の数で表します。

Rate は反復計算されます。 guess の値から始めて、Rate は結果が 0.00001% 以下の精度になるまで計算を繰り返します。 Rate は、20 回試みて結果が見つからないと失敗になります。 guess が 10% で Rate が失敗する場合は、guess の値を変えてみてください。

クエリの例

結果

FinancialSample. *、(Rate ([年] * 12, [LoanAmount], 0, 0, 0.1) * 12) を FinancialSample からつまり金利などとして選択します。

"FinancialSample" というテーブルのすべてのフィールドを返し、"期末年数"、"月単位の Re支払い"、"LoanAmount" に基づいて、結果が列つまり金利などに表示されます。

VBA の例

注: 次の例は、Visual Basic for Applications (VBA) モジュールでのこの関数の使用方法を示しています。 VBA の使用方法の詳細については、[検索] の横にあるドロップダウン リストで [開発者用リファレンス] を選び、検索ボックスに検索する用語を入力します。

この例では、Rate 関数を使ってローンの金利を計算します。合計支払い回数 (TotPmts)、ローンの支払総額 (Payment)、現在価値または元金 (PVal)、ローンの将来価値 (FVal)、支払いが支払期間の期首か期末かを示す値 (PayType)、予想される利率の概算 (Guess) を指定します。

Dim Fmt, FVal, Guess, PVal
Dim Payment, TotPmts, PayType, APR
' When payments are made.
Const ENDPERIOD = 0, BEGINPERIOD = 1
Fmt = "##0.00" ' Define percentage format.
FVal = 0 ' Usually 0 for a loan.
Guess = .1 ' Guess of 10 percent.
PVal = InputBox("How much did you borrow?")
Payment = InputBox("What's your monthly payment?")
TotPmts = InputBox("How many monthly payments do " & _
"you have to make?")
PayType = MsgBox("Do you make payments at the end " & _
"of the month?", vbYesNo)
If PayType = vbNo Then
PayType = BEGINPERIOD
Else PayType = ENDPERIOD
End If
APR = (Rate(TotPmts, -Payment, PVal, _
FVal, PayType, Guess) * 12) * 100
MsgBox "Your interest rate is " & _
Format(CInt(APR), Fmt) & " percent."

注:  このページは、自動翻訳によって翻訳されているため、文章校正のエラーや不正確な情報が含まれている可能性があります。 私たちの目的は、このコンテンツがお客様の役に立つようにすることです。 情報が役に立ったかどうか、ご意見をお寄せください。 参考までに、こちらから英語の記事をお読みいただけます。

Office のスキルを磨く
トレーニングの探索
新機能を最初に入手
Office Insider に参加する

この情報は役に立ちましたか?

ご意見をいただきありがとうございます。

フィードバックをお寄せいただき、ありがとうございます。Office サポートの担当者におつなぎいたします。

×