根据值为所选内容指定数字格式
提问于 2019-06-27 01:25:47
我正在尝试用Excel电子表格为我的日常工作创建一个小而有用的宏，这个宏应该根据单元格的值给出格式。
Sub decimals()
ScreenUpdating = False
If Selection.Value > 0.99999999 Then
Selection.NumberFormat = "#,#00"
Else
Selection.NumberFormat = "0.00"
End If
End Sub代码只适用于一个单元格选择，但不适用于范围，我想它是不是缺少一些循环？打个比方？
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-06-27 01:41:06
如果是多个单元格选择，则Selection.Value比较将不起作用。
也许可以尝试一下这样的方法：
Sub Decimals()
If Not TypeOf Selection Is Range Then Exit Sub
Dim rng As Range
For Each rng In Selection
If IsNumeric(rng.Value) Then
If rng.Value > 0.99999999 Then
rng.NumberFormat = "#,#00"
Else
rng.NumberFormat = "0.00"
End If
End If
Next
End Sub页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56782770
复制相关文章
![无线充qi协议c语言详解,无线充电Qi协议正向通信FSK的解调设计[通俗易懂]](https://ask.qcloudimg.com/http-save/yehe-8223537/6ed9fdd53cab17ddfe570c5786e4471d.jpeg)
![无线充电原理与QI协议详解[通俗易懂]](https://ask.qcloudimg.com/http-save/yehe-8223537/d89c43fba1ac9d1f3463c04652a36ec2.jpeg)
点击加载更多
腾讯云开发者
