如何在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

由於you're只是寫公式到您的庫門，我建議你這樣的解決方案：

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公式與參數[值]和[編號數字]

請注意，1.5 + 1.5應爲4，因爲兩個值都是四捨五入的，因爲這兩個值都是四捨五入的。

希望我能幫上忙。