本文介绍使用vba代码实现状态栏显示提示信息的功能。
工具/原料
ROG幻14
Windows11
Excel2016
方法/步骤
1、打开Excel，在开发工具栏里点击VisualBasic。
2、在VisualBasic里插入一个新模块，创建一个sub过程。
3、在sub过程中输入：DimzsAsBoolean,iAs LongWit丝群闻栝hApplicationzs惺绅寨瞀=.DisplayStatusBar.DisplayStatusBar=TrueFori=1To10000.StatusBar="正在写入第"&i _&"个数据，共10000个数据，请稍候..."Cells(i,1)=Rnd()NextiMsgBox "写入数据完成。",vbInformation+vbOKOnly,"完成".StatusBar=False.DisplayStatusBar=zsEndWith
