本文介绍使用vba代码实现状态栏显示提示信息的功能。

工具/原料

  • ROG幻14
  • Windows11
  • Excel2016

方法/步骤

  1. 1

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

  2. 2

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

  3. 3

    在sub过程中输入：

    Dim zs As Boolean, i As

    Long

    With Application

        zs = .DisplayStatusBar

        .DisplayStatusBar = True 

        For i = 1 To 10000

            .StatusBar = "正在写入第" & i

    _

            & "个数据，共10000个数据，请稍候..."

            Cells(i, 1) = Rnd() 

        Next i

    MsgBox

    "写入数据完成。", vbInformation + vbOKOnly, "完成"

    .StatusBar = False 

    .DisplayStatusBar = zs 

    End With

    END
经验内容仅供参考，如果您需解决具体问题(尤其法律、医学等领域)，建议您详细咨询相关领域专业人士。