如何使用Excel的Open事件及MsgBox函数制作提示对话框

时间:2022-07-13 21:15:14 阅读: 最新文章 文档下载
说明:文章内容仅供预览,部分内容可能不全。下载后的文档,内容与下面显示的完全一致。下载之前请确认下面内容是否您想要的,是否完整无缺。
如何使用ExcelOpen事件及MsgBox函数制作

提示对话框



1、启动Excel并打开工作表,打开VisualBasic编辑器,在工程资源管理器中双击"ThisWorkbook"选项打开当前工作簿的“代码”窗口,如图1所示。具体程序代码如下所示:

PrivateSubworkbook_open() DimmsgAsString'声明变量

msg="欢迎使用小小公积金查询系统!"&vbCrLf

msg=msg&"请在单元格中输入身份证号进行查询!"&vbCrLf'赋值变量

msg=msg&"作者:郭刚"&vbCrLf

msg=msg&"制作日期:20131"&vbCrLf MsgBoxmsg,,"欢迎"'显示欢迎对话框 EndSub

1在“代码”窗口中输入代码

2、切换到Excel工作表,保存当前文档后关闭文档。当再次打开该文档时,将自动打开提示对话框,如图2所示。

2打开文档时显示提示欢迎对话框 1.ACCRINT

用途:返回定期付息有价证券的应计利息。

语法:ACCRINT(issuefirst_interestsettlementrateparfrequencybasis)


参数:Issue为有价证券的发行日,First_interest是证券的起息日,Settlement是证券的成交日(即发行日之后证券卖给购买者的日期)Rate为有价证券的年息票利率,Par为有价证券的票面价(如果省略par,函数ACCRINTpar看作$1000)Frequency年付息次数(如果按年支付,frequency=1;按半年期支付,frequency=2;按季支付,frequency=4)

2.ACCRINTM

用途:返回到期一次性付息有价证券的应计利息。 语法:ACCRINTM(issuematurityrateparbasis)

参数:Issue为有价证券的发行日,Maturity为有价证券的到期日,Rate为有价证券的年息票利率,Par为有价证券的票面价值,Basis为日计数基准类型(0或省略时为30/3601为实际天数/实际天数,2为实际天数/3603为实际天数/3654为欧洲30/360)

3.AMORDEGRC

用途:返回每个会计期间的折旧值。

语法:AMORDEGRC(costdate_purchasedfirst_periodsalvageperiodratebasis)

参数:Cost为资产原值,Date_purchased为购入资产的日期,First_period为第一个期间结束时的日期,Salvage为资产在使用寿命结束时的残值,Period是期间,Rate为折旧率,Basis是所使用的年基准(0或省略时为360天,1为实际天数,3为一年365天,4为一年360)

猜你喜欢:




本文来源:https://www.wddqw.com/doc/6180f4dd77c66137ee06eff9aef8941ea66e4b14.html