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

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

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

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

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

　　Private Sub workbook_open()

　　Dim msg As String '聲明變量

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

　　msg=msg&"請在單元格中輸入身份證號進(jìn)行查詢!"&vbCrLf '賦值變量

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

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

　　MsgBox msg,,"歡迎" '顯示歡迎對話框

　　End Sub

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

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

　　圖2　打開文檔時顯示提示歡迎對話框

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

　　1.ACCRINT

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

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

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

　　2.ACCRINTM

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

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

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

　　3.AMORDEGRC

　　用途：返回每個會計期間的折舊值。

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

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