让窗体也能用上状态栏

lss001

晚间有风弄枝叶 发表于 2025-11-30 15:28
抱歉我在做更改，所以链接失效了。明天会搞完开始更新会直接在论坛和公众号做源码分享，到时直接下载就行 ...

建议整个Excel状态栏
Excel状态栏论坛比较少讨论

晚间有风弄枝叶

lss001 发表于 2025-11-30 17:54
建议整个Excel状态栏
Excel状态栏论坛比较少讨论

Excel状态栏么，这个我倒还真没想到过什么比较切实的需求

lss001

晚间有风弄枝叶 发表于 2025-11-30 18:36
Excel状态栏么，这个我倒还真没想到过什么比较切实的需求

显示使用→日期，天气，表格计算结果
提示使用→换色，换字体，
表格应用→选择区域，进度条等等，讲不过来
搜索一下论坛很多需求没有解决。

aman1516

EXCEL状态栏，试了一下写入信息及进度条演示：

1. Sub InputMsgtoBar()
   
2.     Dim i As Long, total As Long, barLength As Integer
   
3.     Dim progressBar As String
   
4.     Dim msg As String
   
5.     msg = "这是一个测试..."
   
6.     Application.StatusBar = msg
   
7.     Application.Wait Now + TimeValue("0:00:03")
   
8.     Application.StatusBar = False
   
9.     msg = "正在处理数据，请稍候..."
   
10.     Application.StatusBar = msg
    
11.     Application.Wait Now + TimeValue("0:00:03")
    
12.     total = 10
    
13.     barLength = 30 ' 进度条长度
    
14.     For i = 1 To total
    
15.         progressBar = String(Int(i / total * barLength), "■") & _
    
16.                       String(barLength - Int(i / total * barLength), " ")
    
17.         Application.StatusBar = "进度: " & progressBar & " " & Format(i / total, "0%")
    
18.         Application.Wait Now + TimeValue("0:00:01")
    
19.     Next i
    
20.     Application.StatusBar = False
    
21. End Sub
    

复制代码

aman1516

测试附件：
EXCEL状态栏测试.rar (13.2 KB, 下载次数: 12)

2025-11-30 23:59 上传

点击文件名下载附件

未了解状态栏如何分成多个信息区域显示不同信息，明天有空再研究吧

lss001

写入信息显示信息论坛帖子不少
主要是获取信息
以及改字变字体
改变背景颜色
以及其它个性化设置论坛很少
目前论坛知识树查找到如下帖子

[推荐]定制化Excel 状态栏文字大小、颜色及在状态栏上显示自定义进度条
https://club.excelhome.net/forum.php?mod=viewthread&tid=110512&mobile=2&_dsign=dd9dde35

还有就是帮助文件涉及状态栏
对象属性方法很少
目前仅查找到以下三个

Application.StatusBar 属性
返回或设置状态栏中的文字。 读/写String。

Application.DataEntryMode 属性
返回或设置“数据输入”模式
xlOn        数据输入模式处于打开状态。
xlOff        数据输入模式处于关闭状态。
xlStrict数据输入模式处于打开状态，按 Esc 不会将其关闭。

Application.Ready 属性
当 Microsoft Excel 应用程序就绪时，返回 True，当 Microsoft Excel 未就绪时，返回 False。 只读 Boolean。

鑫辰

牛B，做成全屏窗体就很好看了，有动态提示