[已解决]VBA怎样快速设置保留两位小数问题

龙送农

[b5:p18]、[b22:p35]、[b39:p52]、[b56:p69]、[b73:p86]等区域用VBA怎样快速设置保留两位小数？

最佳答案

月排行榜 / 总排行榜

xdragon

2015-1-6 16:32

1. Sub t()
   
2.    Dim rng As Range, arr, rn As Range, i&, j%
   
3.    Set rng = Union([b5:p18], [b22:p35], [b39:p52], [b56:p69], [b73:p86])
   
4.    For Each rn In rng.Areas
   
5.        arr = rn.Value
   
6.        For i = 1 To UBound(arr)
   
7.            For j = 1 To UBound(arr, 2)
   
8.                If IsNumeric(arr(i, j)) And Len(arr(i, j)) Then arr(i, j) = Round(arr(i, j), 2)
   
9.            Next
   
10.         Next
    
11.         rn = arr
    
12.    Next
    
13. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Union([b5:p18], [b22:p35], [b39:p52], [b56:p69], [b73:p86]).NumberFormatLocal = "0.00"

复制代码

爱疯

Sub Click()
    Range("b5:p18,b22:p35,b39:p52,b56:p69,b73:p86").NumberFormat = "0.00"
End Sub


改成你的区域

龙送农

两位老师：我要的效果是四舍五入保留两位小数。

龙送农

爱疯 发表于 2015-1-6 15:52
Sub Click()
    Range("b5:p18,b22:p35,b39:p52,b56:p69,b73:p86").NumberFormat = "0.00"
End Sub

两位老师：我要的效果是四舍五入保留两位小数。两位小数后面的数位删除。

龙送农

xdragon 发表于 2015-1-6 15:50

两位老师：我要的效果是四舍五入保留两位小数。两位小数后面的数位删除。

xdragon

1. Sub t()
   
2.    Dim rng As Range, arr, rn As Range, i&, j%
   
3.    Set rng = Union([b5:p18], [b22:p35], [b39:p52], [b56:p69], [b73:p86])
   
4.    For Each rn In rng.Areas
   
5.        arr = rn.Value
   
6.        For i = 1 To UBound(arr)
   
7.            For j = 1 To UBound(arr, 2)
   
8.                If IsNumeric(arr(i, j)) And Len(arr(i, j)) Then arr(i, j) = Round(arr(i, j), 2)
   
9.            Next
   
10.         Next
    
11.         rn = arr
    
12.    Next
    
13. End Sub

复制代码

爱疯

Sub Click2()
    Dim x As Range
    For Each x In Range("b5:p18,b22:p35,b39:p52,b56:p69,b73:p86")
       x = Round(x, 2)
    Next
End Sub