Excel VBA - Круглая функция

Question

Я хочу создать макрос для редактирования прайс-листа, который генерирует мой неисправный пакет ERP. В настоящее время я получаю 175,42 $ и т. Д., И я хотел бы округлить их до 175,4 $ (в зависимости от второго знака после запятой).

  J           K
175,42      175,4 
193,76      193,8

dim i as integer
For i = 16 to 25
   Range("K" & i).Select = "=ROUND(J & i;1)"
Next i

Итак, я предполагаю, что это должно пройти через K16: K25 и использовать функцию округления, но, похоже, выдает ошибку, и я предполагаю, что это функция округления.

Answer 1

Измените свой код на

Range("K" & i).Formula = "=ROUND(J" & i & ";1)"

Answer 2

Попробуйте вместо этого. VBA имеет свою функцию для раунда.

Сейчас проверено и работает на меня!

dim i as integer
For i = 16 to 25
   Range("K" & i) = Round(Range("J" & i), 1) 
Next i

Answer 3

Попробуйте это ( НЕПРОВЕРЕНО )

Sub Sample()
    Dim i As Integer
    For i = 16 To 25
       Sheets("Sheet1").Range("K" & i).Formula = "=ROUND(J" & i & ",1)"
    Next i
End Sub