根据值为所选内容指定数字格式
根据值为所选内容指定数字格式
提问于 2019-06-27 09: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 09: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
复制相关文章
相似问题
腾讯云开发者
