如何使用Excel的Open事件及MsgBox函數制作提示對話框
對于某些具有特殊功能的Excel表格，有時需要在打開Excel工作表時能夠出現提示對話框，對表格的功能、操作以及制作的有關信息等進行說明。以下是學習啦小編為您帶來的關于使用Excel的Open事件及MsgBox函數制作提示對話框，希望對您有所幫助。
使用Excel的Open事件及MsgBox函數制作提示對話框
1、啟動Excel并打開工作表，打開Visual Basic編輯器，在工程資源管理器中雙擊"ThisWorkbook"選項打開當前工作簿的“代碼”窗口，如圖1所示。具體程序代碼如下所示：
Private Sub workbook_open()
Dim msg As String '聲明變量
msg="歡迎使用小小公積金查詢系統!"&vbCrLf
msg=msg&"請在單元格中輸入身份證號進行查詢!"&vbCrLf '賦值變量
msg=msg&"作者：郭剛"&vbCrLf
msg=msg&"制作日期：2013年1月"&vbCrLf
MsgBox msg,,"歡迎" '顯示歡迎對話框
End Sub
圖1 在“代碼”窗口中輸入代碼
2、切換到Excel工作表，保存當前文檔后關閉文檔。當再次打開該文檔時，將自動打開提示對話框，如圖2所示。
圖2 打開文檔時顯示提示歡迎對話框
Excel2003財務常用函數使用總結
1.ACCRINT
用途：返回定期付息有價證券的應計利息。
語法：ACCRINT(issue，first_interest， settlement，rate，par，frequency， basis)
參數：Issue為有價證券的發行日，First_interest是證券的起息日，Settlement是證券的成交日(即發行日之后證券賣給購買者的日期)，Rate為有價證券的年息票利率，Par為有價證券的票面價值(如果省略par，函數 ACCRINT將par看作00)，Frequency為年付息次數(如果按年支付，frequency = 1;按半年期支付，frequency = 2;按季支付，frequency = 4)。
2.ACCRINTM
用途：返回到期一次性付息有價證券的應計利息。
語法：ACCRINTM(issue，maturity，rate， par，basis)
參數：Issue為有價證券的發行日，Maturity為有價證券的到期日，Rate為有價證券的年息票利率，Par為有價證券的票面價值，Basis為日計數基準類型(0 或省略時為30/360，1為實際天數/實際天數，2為實際天數/360，3為實際天數/365，4為歐洲30/360)。
3.AMORDEGRC
用途：返回每個會計期間的折舊值。
語法：AMORDEGRC(cost，date_purchased，first_period，salvage，period，rate，basis)
參數：Cost為資產原值，Date_purchased為購入資產的日期，First_period為第一個期間結束時的日期，Salvage為資產在使用壽命結束時的殘值，Period是期間，Rate為折舊率，Basis是所使用的年基準(0 或省略時為360 天，1為實際天數，3為一年365天，4為一年 360天)。
猜你喜歡：
如何使用Excel的Open事件及MsgBox函數制作提示對話框
