如何使用Excel的Open事件及MsgBox函数制作提示对话框 1、启动Excel并打开工作表,打开VisualBasic编辑器,在工程资源管理器中双击"ThisWorkbook"选项打开当前工作簿的“代码”窗口,如图1所示。具体程序代码如下所示: PrivateSubworkbook_open() DimmsgAsString'声明变量 msg="欢迎使用小小公积金查询系统!"&vbCrLf msg=msg&"请在单元格中输入身份证号进行查询!"&vbCrLf'赋值变量 msg=msg&"作者:郭刚"&vbCrLf msg=msg&"制作日期:2013年1月"&vbCrLf MsgBoxmsg,,"欢迎"'显示欢迎对话框 EndSub 图1在“代码”窗口中输入代码 2、切换到Excel工作表,保存当前文档后关闭文档。当再次打开该文档时,将自动打开提示对话框,如图2所示。 图2打开文档时显示提示欢迎对话框 1.ACCRINT 用途:返回定期付息有价证券的应计利息。 语法:ACCRINT(issue,first_interest,settlement,rate,par,frequency,basis) 参数:Issue为有价证券的发行日,First_interest是证券的起息日,Settlement是证券的成交日(即发行日之后证券卖给购买者的日期),Rate为有价证券的年息票利率,Par为有价证券的票面价值(如果省略par,函数ACCRINT将par看作$1000),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天)。 猜你喜欢: 本文来源:https://www.wddqw.com/doc/6180f4dd77c66137ee06eff9aef8941ea66e4b14.html