学习心得——Excel宏

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

Sub SetStatusBar() '利用状态栏显示提示信息
    Dim blnPreStatus As Boolean, i As Long
    With Application
        blnPreStatus = .DisplayStatusBar '将应用程序状态栏的当前保存在变量blnPreStatus中，以备代码执行结束后恢复原状态
        .DisplayStatusBar = True '设置DisplayStatusBar属性未True,即显示状态栏
        '通过For循环结构在工作表的前10000个单元格中写入随机数，同时通过设置Application对象的StatusBar属性在状态栏中提示当前数据写入的进度
        For i = 1 To 10000
            '.StatusBar = "正在写入第" & i & "个数据，共10000个数据，请稍候..."
            .StatusBar = "正在写入第" & i _
            & "个数据，共10000个数据，请稍候..." '当单独一行放不下一行代码时就应该使用标准的VBA续行符：在一行的结尾，采用空格后跟下划线字符的方式表明代码行延伸到了下一行。
            Cells(i) = Rnd() '写在第一行
            'Cells(1, i) = Rnd() '与上一行代码运行效果一样
            'Cells(i, 1) = Rnd() '写在第一列
        Next i
        MsgBox "写入数据完成。", vbInformation + vbOKOnly, "完成"
        .StatusBar = False '恢复状态栏为系统默认文本
        .DisplayStatusBar = blnPreStatus '恢复状态栏为原显示状态
    End With
End Sub

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：EXCEL xcel exce 学习心得 cel