Excel-VBA編程--典型實例——計算月還款金額

1、精選優(yōu)質(zhì)文檔-傾情為你奉上Excel VBA編程 典型實例計算月還款金額本例模擬計算器的外型，使用VBA中的內(nèi)置的財務(wù)函數(shù)pmt（該函數(shù)是基于固定利率及等額分期付款方式，返回貸款的每期付款額），來制作一個“計算月還款金額”的計算器。專心-專注-專業(yè)1練習要點l 圖片的應(yīng)用l 藝術(shù)字的應(yīng)用l 控件的應(yīng)用l 調(diào)用Pmt函數(shù)2操作步驟：（1）新建一張空白的工作簿，并選擇【插入】選項卡，單擊【插圖】組中的【圖片】按鈕。然后，在彈出的【插入圖片】對話框中，選擇合適的圖片進行插入，如圖9-11所示。選擇單擊圖9-11 插入圖片提 示單擊【插入圖片】對話框中的【插入】按鈕，即可將圖片插入到工作表中。提 示如

2、果插入到工作表中的圖片的大小需要改變，可以選擇圖片，將鼠標置于控制點上，當光標變成“雙向”箭頭時拖動即可調(diào)整圖片大小。（2）選擇【插入】選項卡，單擊【文本】組中的【藝術(shù)字】下拉按鈕，選擇“填充-強調(diào)文字顏色左，暖色粗糙棱臺”項。然后，更改藝術(shù)字文字為“月來款金額”，如圖9-12所示。選擇輸入圖9-12 插入藝術(shù)字（3）選擇“月還額金額”文字，并在【字體】組中，設(shè)置【字體】為“華文新魏”；【字號】為28；【字體顏色】為“黃色”，效果如圖9-13所示。設(shè)置圖9-13 設(shè)置字體格式（4）選擇【開發(fā)工具】選項卡，單擊【代碼】組中的【插入】下拉按鈕，選擇【ActiveX控件】欄中的【命令控件（Activ

3、eX控件）】按鈕。然后，在圖片上方繪制一個“命令控件”按鈕，如圖9-14所示。繪制選擇圖9-14 繪制“命令控件”按鈕（5）選擇“命令控件”按鈕，在【屬性】對話框中，設(shè)置控件的BackColor為“綠色”；Caption為“計算”；并設(shè)置其控件中的字體格式，如圖9-15所示。設(shè)置效果圖9-15 設(shè)置控件格式提 示選擇【開發(fā)工具】選項卡，單擊【控件】組中的【屬性】按鈕，即可彈出【屬性】對話框。提 示單擊【屬性】對話框中的Font選項后面的【瀏覽】按鈕。然后，在彈出的【字體】對話框中，設(shè)置【字體】為“華文新魏”；【字號】為“小二”。（6）單擊【控件】組中的【插入】下拉按鈕，選擇【ActiveX控件

4、】欄中的【文本框（ActiveX控件）】按鈕。然后，在圖片上方繪制一個“文本框”控件，如圖9-16所示。單擊繪制圖9-16 繪制“文本框”控件（7）選擇繪制的“文本框”控件，然后，打開【屬性】對話框。設(shè)置【字體】為Times New Roman；【字號】為“小三”。（8）選擇“文本框”控件按鈕，在【屬性】對話框中，設(shè)置BackColor為“非活動邊框”，如圖9-17所示。效果繪制選擇選擇圖9-17 設(shè)置“文本框”控件屬性（8）雙擊圖片上方的“計算”控件按鈕。然后，在彈出的代碼編輯窗口中，輸入如圖9-17所示的代碼。輸入圖9-17 輸入代碼Private Sub CommandButton1_C

5、lick()'聲明變量Static loanAmtStatic loanIntStatic loanTermloanAmt = Application.InputBox _ (Prompt:="輸入貸款總額(100,000 for example)", _ Default:=loanAmt, Type:=1)loanInt = Application.InputBox _ (Prompt:="輸入貸款年利率(8.75 for example)", _ Default:=loanInt, Type:=1)loanTerm = Application

6、.InputBox _ (Prompt:="輸入貨款年限 (30 for example)", _ Default:=loanTerm, Type:=1)'調(diào)用Pmt函數(shù)payment = Application.WorksheetFunction _ .Pmt(loanInt / 1200, loanTerm * 12, loanAmt)TextBox1.Value = Format(payment, "Currency")End Sub（9）單擊【控件】組中的【設(shè)計模式】按鈕，即可取消設(shè)計模式。（10）單擊“計算”控件按鈕，然后在彈出的【輸入】對話框中，輸入貸款總額為，如圖9-18所示。顯示輸入圖9-18 輸入貸款金額（11）在【輸入】對話框中，輸入貸款年利率為5.6，如圖9-19所示。圖9-19 輸入貸款年利率（12）在【輸入】對話框中，輸入貸款年限為10，如圖9-20所示。圖9-20 輸入貸款年限（13）單擊【輸入】對話框中的【確定