如何在VBA中添加圆值？

Question

我想单独添加值，同时舍入值。假设，在舍入12.5后将是13和18.75将是19.我想添加13 + 18.75。结果应该是32.如何在VBA中执行此操作？

这是我的代码：

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range("I6:I" & LastRow).Formula = "=DateDif(C6, Today(),""m"")/12"
Range("H6:H" & LastRow).Formula = "=DateDif(E6, Today(),""d"")/30+4"
Range("J6:J" & LastRow).Formula = "=I6+H6"

Answer 1

，因为你

  

想要单独添加圆值

然后你想要这个公式

Range("J6:J" & lastRow).Formula = "=ROUND(H6,0)+ROUND(I6,0)"

Answer 2

尝试以下

Range("J6:J" & LastRow).Formula = "=CEILING.MATH((I6+H6),1)"

Answer 3

因为你只是在你的文件中写公式，我建议你这个解决方案：

LastRow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range("I6:I" & LastRow).Formula = "=DateDif(C6, Today(),""m"")/12"
Range("H6:H" & LastRow).Formula = "=DateDif(E6, Today(),""d"")/30+4"
Range("J6:J" & LastRow).Formula = "=Round(I6, 0) + Round(H6, 0)"

我刚添加了Round公式，参数[value]和[位数]

请注意，1.5 + 1.5将为4，​​因为两个值都是为了添加而舍入。

希望我能提供帮助。