如何使用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天)。
猜你喜欢：
