vba怎么让状态栏显示提示信息

2025-04-28 15:30:56

1、打开Excel，在开发工具栏里点击Visual Basic。

2、在Visual Basic里插入一个新模块，创建一个sub过程。

3、在sub过程中输入：Dim zs As Boolean, i As LongWith Application zs = .DisplayStatusBar .DisplayStatusBar = True For i = 1 To 10000 .StatusBar = "正在写入第" & i _ & "个数据，共10000个数据，请稍候..." Cells(i, 1) = Rnd() Next iMsgBox "写入数据完成。", vbInformation + vbOKOnly, "完成".StatusBar = False.DisplayStatusBar = zsEnd With

声明：本网站引用、摘录或转载内容仅供网站访问者交流或参考，不代表本站立场，如存在版权或非法内容，请联系站长删除，联系邮箱：site.kefu@qq.com。