/ / Excel VBAでのローン電卓

Excel VBAでのローン電卓

このページでは、単純な ローン計算機Excel VBA。ワークシートには、2つのスクロールバーと2つのオプションボタンのActiveXコントロールが含まれています。

Excel VBAでのローン電卓

注:以下の手順では、ワークシートのフォーマット方法を教えていません。フォントの種類の変更、行と列の挿入、罫線の追加、背景色の変更などがわかっています。

ローン計算機を作成するには、以下のステップを実行します。

1. 2つのスクロールバーコントロールを追加します。 [開発者]タブの[挿入]をクリックし、[ActiveXコントロール]セクションの[スクロールバー]をクリックします。

スクロールバーの作成

2. 2つのオプションボタンを追加します。 [開発者]タブの[挿入]をクリックし、[ActiveXコントロール]セクションの[オプション]ボタンをクリックします。

オプションボタンの作成

スクロールバーコントロールの次のプロパティを変更します(デザインモードが選択されていることを確認してください)。

3.最初のスクロールバーコントロールを右クリックし、[プロパティ]をクリックします。 Minを0に、Maxを20に、SmallChangeを0に、LargeChangeを2に設定します。

4. 2番目のスクロールバーコントロールを右クリックし、[プロパティ]をクリックします。 Minを5に、Maxを30に、SmallChangeを1に、LargeChangeを5に、LinkedCellをF8に設定します。

説明:矢印をクリックすると、スクロールバーの値がSmallChangeによって上下します。スライダと矢印の間をクリックすると、スクロールバーの値がLargeChangeによって上下に移動します。

ワークシート変更イベントを作成します。ワークシートの変更イベントに追加されたコードは、ワークシート上のセルを変更するとExcel VBAによって実行されます。

5. Visual Basic Editorを開きます。

6.プロジェクトエクスプローラでSheet1(Sheet1)をダブルクリックします。

7.左のドロップダウンリストから「ワークシート」を選択し、右のドロップダウンリストから「変更」を選択します。

Excel VBAでのワークシート変更イベント

8。 ワークシート変更イベントは、Sheet1のすべての変更をリッスンします。セルD4で何か変更があった場合、Excel VBAでCalculateサブを実行するだけです。これを実現するには、次のコード行をワークシート変更イベントに追加します(後でCalculateサブセクションの詳細を参照)。

If Target.Address = "$D$4" Then Application.Run "Calculate"

9.セルF6の適切なパーセンテージを取得します(セルF6のフォーマットをパーセンテージに変更します)。最初のスクロールバーコントロールを右クリックし、[コードを表示]をクリックします。次のコード行を追加します。

Private Sub ScrollBar1_Change()

Range("F6").Value = ScrollBar1.Value / 100
Application.Run "Calculate"

End Sub

10. 2番目のスクロールバーコントロールを右クリックし、[コードの表示]をクリックします。次のコード行を追加します。

Private Sub ScrollBar2_Change()

Application.Run "Calculate"

End Sub

11.最初のオプションボタンコントロールを右クリックし、[コードを表示]をクリックします。次のコード行を追加します。

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then Range("C12").Value = "Monthly Payment"
Application.Run "Calculate"

End Sub

12. 2番目のオプションボタンコントロールを右クリックし、[コードの表示]をクリックします。次のコード行を追加します。

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then Range("C12").Value = "Yearly Payment"
Application.Run "Calculate"

End Sub

13.サブを作成する時間。 あなたはSubについて詳しく知るために、FunctionとSubの章を読むことができます。急いでいる場合は、単純にCalculateという名前のサブモジュールをモジュールに配置します(Visual Basic Editorの場合は、Insert、Moduleをクリックします)。

Sub Calculate()

Dim loan As Long, rate As Double, nper As Integer

loan = Range("D4").Value
rate = Range("F6").Value
nper = Range("F8").Value

If Sheet1.OptionButton1.Value = True Then
    rate = rate / 12
    nper = nper * 12
End If

Range("D12").Value = -1 * WorksheetFunction.Pmt(rate, nper, loan)

End Sub

説明: サブは、ワークシート関数Pmtのための適切なパラメータを得る。 ExcelのPmt関数は、一定の支払いと一定の金利に基づいてローンの支払いを計算します。毎月の支払い(Sheet1.OptionButton1.Value = True)を行う場合、Excel VBAはレートとして12レートを使用し、nper * 12では合計支払い回数を使用します。支払は借方とみなされるため、結果は負の数になります。結果に-1を掛けると肯定的な結果になります。

ローン電卓の結果

また読む: