如何使用Excel的Open事件及MsgBox函數(shù)制作提示對(duì)話框

時(shí)間：2017-09-27 15:43:45 錦暉1117由分享

　　對(duì)于某些具有特殊功能的Excel表格，有時(shí)需要在打開(kāi)Excel工作表時(shí)能夠出現(xiàn)提示對(duì)話框，對(duì)表格的功能、操作以及制作的有關(guān)信息等進(jìn)行說(shuō)明。以下是學(xué)習(xí)啦小編為您帶來(lái)的關(guān)于使用Excel的Open事件及MsgBox函數(shù)制作提示對(duì)話框，希望對(duì)您有所幫助。

　　使用Excel的Open事件及MsgBox函數(shù)制作提示對(duì)話框

　　1、啟動(dòng)Excel并打開(kāi)工作表，打開(kāi)Visual Basic編輯器，在工程資源管理器中雙擊"ThisWorkbook"選項(xiàng)打開(kāi)當(dāng)前工作簿的“代碼”窗口，如圖1所示。具體程序代碼如下所示：

　　Private Sub workbook_open()

　　Dim msg As String '聲明變量

　　msg="歡迎使用小小公積金查詢系統(tǒng)!"&vbCrLf

　　msg=msg&"請(qǐng)?jiān)趩卧裰休斎肷矸葑C號(hào)進(jìn)行查詢!"&vbCrLf '賦值變量

　　msg=msg&"作者：郭剛"&vbCrLf

　　msg=msg&"制作日期：2013年1月"&vbCrLf

　　MsgBox msg,,"歡迎" '顯示歡迎對(duì)話框

　　End Sub

　　圖1　在“代碼”窗口中輸入代碼

　　2、切換到Excel工作表，保存當(dāng)前文檔后關(guān)閉文檔。當(dāng)再次打開(kāi)該文檔時(shí)，將自動(dòng)打開(kāi)提示對(duì)話框，如圖2所示。

　　圖2　打開(kāi)文檔時(shí)顯示提示歡迎對(duì)話框

　　Excel2003財(cái)務(wù)常用函數(shù)使用總結(jié)

　　1.ACCRINT

　　用途：返回定期付息有價(jià)證券的應(yīng)計(jì)利息。

　　語(yǔ)法：ACCRINT(issue，first_interest， settlement，rate，par，frequency， basis)

　　參數(shù)：Issue為有價(jià)證券的發(fā)行日，F(xiàn)irst_interest是證券的起息日，Settlement是證券的成交日(即發(fā)行日之后證券賣給購(gòu)買者的日期)，Rate為有價(jià)證券的年息票利率，Par為有價(jià)證券的票面價(jià)值(如果省略par，函數(shù) ACCRINT將par看作00)，F(xiàn)requency為年付息次數(shù)(如果按年支付，frequency = 1;按半年期支付，frequency = 2;按季支付，frequency = 4)。

　　2.ACCRINTM

　　用途：返回到期一次性付息有價(jià)證券的應(yīng)計(jì)利息。

　　語(yǔ)法：ACCRINTM(issue，maturity，rate， par，basis)

　　參數(shù)：Issue為有價(jià)證券的發(fā)行日，Maturity為有價(jià)證券的到期日，Rate為有價(jià)證券的年息票利率，Par為有價(jià)證券的票面價(jià)值，Basis為日計(jì)數(shù)基準(zhǔn)類型(0 或省略時(shí)為30/360，1為實(shí)際天數(shù)/實(shí)際天數(shù)，2為實(shí)際天數(shù)/360，3為實(shí)際天數(shù)/365，4為歐洲30/360)。

　　3.AMORDEGRC

　　用途：返回每個(gè)會(huì)計(jì)期間的折舊值。

　　語(yǔ)法：AMORDEGRC(cost，date_purchased，first_period，salvage，period，rate，basis)

　　參數(shù)：Cost為資產(chǎn)原值，Date_purchased為購(gòu)入資產(chǎn)的日期，F(xiàn)irst_period為第一個(gè)期間結(jié)束時(shí)的日期，Salvage為資產(chǎn)在使用壽命結(jié)束時(shí)的殘值，Period是期間，Rate為折舊率，Basis是所使用的年基準(zhǔn)(0 或省略時(shí)為360 天，1為實(shí)際天數(shù)，3為一年365天，4為一年 360天)。