excel - 我可以在Excel的自定义状态栏中添加自己的函数吗？

Question

如果我在 Excel 中选择多个单元格，我可以在自定义状态栏中看到这些单元格的一些功能。此信息是我自己从以下内容中选择的:

• 平均
• 计数
• 数字计数
• 最低
• 最大值
• 总和

我想向此列表添加一个计算非空白单元格比率的函数。该函数为 =COUNTA(range)/(COUNTA(range) + COUNTBLANK(range))，但如何将其放入状态栏中？我在 VBA 方面没有太多经验，所以欢迎一些解释。

Answer 1

尝试这样的事情(虽然不是最好的方法，但可以解决你的目的)

说明:此代码的作用是检查用户是否选择了有效范围(至少 2 个单元格)，然后使用 Application.Evaluate 计算公式然后将其显示在状态栏中。另请注意，我没有进行任何错误处理。我相信你会处理好它的:)

将其粘贴到相关工作表代码区域。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If TypeName(Target) = "Range" Then
        If Target.Cells.Count > 1 Then
            Application.StatusBar = "My Function: " & _
                                    Application.Evaluate( _
                                                          "=COUNTA(" & _
                                                           Target.Address & _
                                                           ") / (COUNTA(" & _
                                                           Target.Address & _
                                                           ") + COUNTBLANK(" & _
                                                           Target.Address & _
                                                           "))" _
                                                           )
        End If
    End If
End Sub

这是一种非常基本的方法。如果您希望它适用于所有工作表，那么您必须相应地修改它。

此方法的问题还在于它会抑制状态栏中的应用程序级别消息。

屏幕截图