2舍3入，7舍8入

qcw911

各位早上好
遇到一个问题
左面是原值，右面是结果
如何用vba得到右面的结果？

原值	结果
14940	14940
14941	14940
14942	14940
14943	14945
14944	14945
14945	14945
14946	14945
14947	14945
14948	14950
14949	14950

山菊花

jg = 5 * (yz \ 5 + IIf(yz Mod 5 > 2, 1, 0))

yangyangzhifeng

自定义函数

1. Function Rd(InData As Range)
   
2.     Dim i&
   
3.     i = Right(InData, 1)
   
4.     If i < 3 Then
   
5.         i = 0
   
6.     ElseIf i >= 3 And i <= 7 Then
   
7.         i = 5
   
8.     Else
   
9.         i = 10
   
10.     End If
    
11.     Rd = (InData \ 10) * 10 + i
    
12. End Function

复制代码

sub一次性处理

1. Sub test()
   
2.     Dim arr, i&, lastrow&, j&
   
3.     lastrow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
   
4.     arr = Sheet1.Range("a1", Sheet1.Cells(lastrow, 2))
   
5.     For i = 2 To UBound(arr)
   
6.         j = Right(arr(i, 1), 1)
   
7.         If j < 3 Then
   
8.             j = 0
   
9.         ElseIf j >= 3 And j <= 7 Then
   
10.             j = 5
    
11.         Else
    
12.             j = 10
    
13.         End If
    
14.         arr(i, 2) = (arr(i, 1) \ 10) * 10 + j
    
15.     Next
    
16.     Sheet1.Range("A1").Resize(UBound(arr), UBound(arr, 2)) = arr
    
17. End Sub
    

复制代码

yjh_27

jg=round(yz*2，-1)/2

山菊花

工作表函数可用FLOOR：
=FLOOR(A2+2,5)

红洋葱头

自定义个函数就可以了。如下面的代码就可以实现你的功能，只能是整数，如果要负数也适用需要修改下。

1. Function Qu(ByVal rg As Range) As Integer
   
2.     Dim AA, x, y
   
3.     AA = CDbl(rg.Value)
   
4.     x = AA Mod 10
   
5.     If x = 0 Then
   
6.         y = AA
   
7.     ElseIf x > 0 And x < 3 Then
   
8.         y = Int(AA / 10) * 10
   
9.     ElseIf x >= 3 And x < 8 Then
   
10.         y = Int(AA / 10) * 10 + 5
    
11.     ElseIf x >= 8 Then
    
12.         y = Int(AA / 10) * 10 + 10
    
13.     End If
    
14.     Qu = y
    
15. End Function

复制代码

qcw911

非常感谢大家的回答，我找了3个直接可以算出的函数 FLOOR，MROUND，CEILING()

lzqmsy

方法真是很多呀,学习了

hcm19522

=INT((A2+2)/5)*5