Excel-VBA編程--典型實(shí)例——銀行貸款計(jì)算器

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

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

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

4、BE窗口中，執(zhí)行【插入】|【模塊】命令，也可以插入一個(gè)模塊。（6）在模塊1代碼編輯窗口中，輸入如圖10-23所示的代碼。圖10-23 輸入代碼其中，在該窗口中，輸入的代碼如下：Sub 清除數(shù)據(jù)()Range("6:65536").ClearEnd SubSub 計(jì)算()'定義變量(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) = "總計(jì)"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）返回“計(jì)算器”工作表，并單擊【計(jì)算】按鈕，即可計(jì)算出等額本息還款和等額