excel表格中floor是可以用的，如:floor(a1，0.5)；我在vba中需要此函数的效果

Question

excel表格中floor是可以用的，如:floor(a1，0.5)；我在vba中需要此函数的效果，就是i=floor(i,0.5)。就是当i的小数部分小于0.5就取整，大于0.5就取0.5，可这个表达式不正确，请问改怎么写，或是有什么别的函数吗？

Answer 1

可以编写一个自定义函数

Function tq(ByVal i As Double, ByVal j As Double)
    tq = Application.Floor(i, j)
End Function

用法如下：比如A1=1.8，在B1当中输入=tq(A1,0.5) 返回结果1.5

在VBA当中引用工作表函数，加个application再加一个“.”就行了

Answer 2

i = WorksheetFunction.Floor(i, 0.5)

本回答被提问者采纳

Answer 3

Application.Floor([a1], 0.5)