Excel-VBA編程--典型實例——銀行貸款計算器

1、精選優(yōu)質(zhì)文檔-傾情為你奉上Excel VBA編程 典型實例銀行貸款計算器假如貸款買了一套房，如何通過更改貸款總額和還款年數(shù)，來快速的計算每月償還貸款金額。為了快速計算出這一結(jié)果，下面通過運用控件及代碼，來制作一個“銀行貸款計算器”。1練習(xí)要點l 控件的應(yīng)用l 代碼的輸入2操作步驟：（1）新建一個空白工作簿，重命名Sheet1工作表標(biāo)簽名稱為“計算器”文字。然后，在該工作表中，創(chuàng)建“銀行貸款計算器”表格，如圖10-17所示。創(chuàng)建表格重命名圖10-17 銀行貸款計算器（2）選擇【開發(fā)工具】選項卡，單擊【控件】組中的【插入】下拉按鈕，在【ActiveX控件】欄中，選擇【命令控件】按鈕。然后，在工作表

2、中，繪制該控件，如圖10-18所示。選擇繪制控件圖10-18 繪制“命令控件”按鈕（3）選擇繪制的控件按鈕，在【控件】組中，單擊【屬性】按鈕。然后，在彈出的【屬性】對話框中，設(shè)置Caption屬性為“計算”，效果如圖10-19所示。效果單擊輸入圖10-19 更改控件名稱（4）右擊“命令按鈕”控件，執(zhí)行【查看代碼】命令。然后，將進(jìn)入VBE窗口，并同時彈出代碼編輯窗口，在該窗口中，輸入如圖10-20所示的代碼執(zhí)行輸入圖10-20 輸入代碼其中，輸入的代碼如下：Private Sub CommandButton1_Click()'調(diào)用計算子過程Call 計算End Sub（5）運用相同的方法

3、，繪制一個控件按鈕，并重命名為“清除數(shù)據(jù)”。然后，右擊該控件按鈕，執(zhí)行【查看代碼】命令，在彈出的代碼編輯窗口中，輸入如圖10-21所示的代碼。輸入效果圖10-21 輸入代碼其中，在代碼編輯窗口中，輸入的代碼如下：Private Sub CommandButton2_Click()'調(diào)用清除數(shù)據(jù)子過程Call 清除數(shù)據(jù)End Sub專心-專注-專業(yè)（5）進(jìn)入VBE窗口，右擊【工程管理器】窗口的空白處，執(zhí)行【插入】|【模塊】命令，如圖10-22所示。插入插入執(zhí)行圖10-22 插入模塊提 示選擇【開發(fā)工具】選項卡，單擊【代碼】組中的Visual Basic按鈕，即可進(jìn)入VBE窗口。技 巧在V

4、BE窗口中，執(zhí)行【插入】|【模塊】命令，也可以插入一個模塊。（6）在模塊1代碼編輯窗口中，輸入如圖10-23所示的代碼。圖10-23 輸入代碼其中，在該窗口中，輸入的代碼如下：Sub 清除數(shù)據(jù)()Range("6:65536").ClearEnd SubSub 計算()'定義變量(a是總額，b是期數(shù)，c是月利率，i是月次)If count(a3:f3) = 3 ThenDim i As Integer, b As Byte, a, c, m, n, o As Single'等額本息月還款額a = Cells(3, 1) * 10000: b = Cells(

5、3, 3) * 12: c = Cells(3, 5) / 12m = -Pmt(c, b, a)n = a / b'等額本金月還款額For i = 1 To bCells(i + 5, 1) = iCells(i + 5, 2) = mCells(i + 5, 3) = -PPmt(c, i, b, a)Cells(i + 5, 4) = m - Cells(i + 5, 3)'每月剩余本金o = a - (i - 1) * nCells(i + 5, 6) = nCells(i + 5, 7) = o * cCells(i + 5, 5) = Cells(i + 5, 6)

6、 + Cells(i + 5, 7)Next iCells(b + 6, 1) = "總計"For i = 2 To 7Cells(b + 6, i) = Application.WorksheetFunction.Sum(Range(Cells(6, i), Cells(b + 5, i)Next iRange(Cells(6, 2), Cells(b + 6, "g").NumberFormatLocal = "￥#,#0.00;￥-#,#0.00"Range("a5:a" & (b + 6).HorizontalAlignment = xlCenterRange(Cells(6, "a"), Cells(b + 5, "g").Borders.LineStyle = xlContinuousEnd IfEnd Sub（7）返回“計算器”工作表，并單擊【計算】按鈕，即可計算出等額本息還款和等額