我可以在Excel中的自定义状态栏中添加我自己的函数吗？
我可以在Excel中的自定义状态栏中添加我自己的函数吗？
提问于 2013-09-04 03:12:09
如果我在Excel中选择了一些单元格，我可以在自定义状态栏中看到一些函数。以下信息是我自己选择的：
- 平均值
- 计数
- 数值计数
- 最小值
- 极大值
- 总和
我想在这个列表中添加一个计算非空白单元格比率的函数。函数是=COUNTA(range) / (COUNTA(range) + COUNTBLANK(range))，但如何将其放入状态栏？我在VBA方面没有多少经验，所以欢迎解释一下。
回答 1
Stack Overflow用户
回答已采纳
发布于 2013-09-04 03:34:28
尝试这样的方法(虽然这不是最好的方法，但却解决了你的目标)
解释性：这段代码所做的是检查用户是否选择了一个有效范围(最小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这是一种非常基本的方法。如果你希望它适用于所有的纸张，那么你将不得不相应地修改它。
此外，此方法的问题是它将抑制状态栏中的应用程序级消息。
截图
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/18612262
复制相关文章
点击加载更多
相似问题
我可以添加我自己的项目类型吗？
我可以在font-awsome中添加我自己的图标吗？
我可以在rss项目中添加我自己的标签吗？
我可以在Xamarin Map控件上叠加我自己的图像吗？
可以在“大商业”中添加我自己的自定义片段
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
社区富文本编辑器全新改版！诚邀体验～
全新交互，全新视觉，新增快捷键、悬浮工具栏、高亮块等功能并同时优化现有功能，全面提升创作效率和体验
腾讯云开发者
