如何通过VBA在Excel右下角状态栏中添加最小值/最大值显示

实现方案 #

存在兼容你提到的所有Office版本的实现方法，分两种场景对应不同方案：

方案1：控制内置状态栏的选中区域统计项（对应你右键勾选Max/Min的操作）

该方案直接修改内置状态栏的统计项显示状态，和手动右键勾选的效果完全一致。为了兼容不同语言版本的Excel，推荐用控件ID进行设置，避免本地化名称差异导致的报错：

' 显示最大值统计项
Application.CommandBars("Status Bar").FindControl(ID:=1969).Visible = True
' 显示最小值统计项
Application.CommandBars("Status Bar").FindControl(ID:=1970).Visible = True

' 隐藏对应项只需将Visible设为False即可，其他常用内置统计项ID参考：
' 平均值：1966、求和：1967、数值计数：1968

注意：该方法修改的是Excel全局设置，关闭文件后也会保留修改后的勾选状态。如果需要仅在你的文件使用时生效，可以在Workbook_Open事件中开启对应项，在Workbook_BeforeClose事件中还原为用户原本的设置。

方案2：自定义状态栏内容（适合后续扩展自定义操作的场景）

如果你需要展示非内置的统计内容，或者完全自定义状态栏的展示逻辑，可以直接给Application.StatusBar赋值实现：

' 自定义显示选中区域的最值
Sub ShowCustomStatusBar()
    Dim selRng As Range
    Set selRng = Selection
    If TypeName(selRng) = "Range" Then
        Application.StatusBar = "最大值：" & WorksheetFunction.Max(selRng) & "  最小值：" & WorksheetFunction.Min(selRng)
    End If
End Sub

' 还原为默认状态栏
Sub ResetStatusBar()
    Application.StatusBar = False
End Sub

如果需要选中区域变化时自动更新自定义内容，可以把更新逻辑写在Worksheet_SelectionChange或者Workbook_SheetSelectionChange事件中。该方案不会修改用户的原生状态栏勾选设置，调用重置方法即可恢复原状，灵活度更高，适合后续扩展更多自定义功能。

内容的提问来源于stack exchange，提问作者FreeSoftwareServers