[已解决]为什么单元格的位数那么多？

AHOWE

Dim I As Range
    For Each I In Application.Selection
        I = 70 - Int((Rnd * 30) + 1) / 10
    Next

只想保留一位小数，但是在单元格看到的是好……长……
请高手给指导一下，谢谢！！

最佳答案

月排行榜 / 总排行榜

领风飞翔

2016-4-1 17:19

round(70 - Int((Rnd * 30) + 1) / 10,1)

跳转到最佳答案楼层

领风飞翔

round(70 - Int((Rnd * 30) + 1) / 10,1)

爱疯

Sub test()
    Dim rng As Range
    For Each rng In Application.Selection
        rng = 70 - Int((Rnd * 30) + 1) / 10
        rng = VBA.Round(rng, 1)
    Next
End Sub



分两句，好看点{:011:}

AHOWE

爱疯 发表于 2016-4-1 17:22
Sub test()
    Dim rng As Range
    For Each rng In Application.Selection

谢谢，果然有效果!

AHOWE

AHOWE 发表于 2016-4-1 17:38
谢谢，果然有效果!

但是为什么放到一句就不行呢？
Sub test()
     Dim rng As Range
     For Each rng In Application.Selection
         rng = Round((70 - Int((Rnd * 30) + 1) / 10), 1)
     Next
End Sub

68
69.19999695
69.09999847
67.5
67.5
68.19999695
67
67.19999695
69.30000305
67.90000153
67
69.19999695
68.30000305
69.59999847

AHOWE

领风飞翔 发表于 2016-4-1 17:19
round(70 - Int((Rnd * 30) + 1) / 10,1)

不行，还是好……长

AHOWE

Sub test()
Dim i%
    For i = 1 To Selection.Count
    Selection(i) = 70 - Int(30 * Rnd() + 1) / 10
    Next
End Sub

领风飞翔

AHOWE 发表于 2016-4-1 17:41
但是为什么放到一句就不行呢？
Sub test()
     Dim rng As Range

浮点运算的问题
再加个format试试
Format(Round((70 - Int((Rnd * 30) + 1) / 10), 1), "0.0")