Excel vba Раунд десятичной дроби для 2-х точек или для всего листа

Question

Есть ли способ удалить десятичное значение после 2 точек или округления 2 цифр

Я пробовал код ниже, отображение изменилось, но значение ячейки только с десятичным числом

Selection.NumberFormat = 0 #

Пример значения - 212582.397228849

excel vba

0

JGK 29 Апр 2016 в 11:32

Answer 1

Вы можете изменить формат любого столбца следующим образом:

Range("A1").EntireColumn.NumberFormat = "#.00" '---> here Column is A

Или, если вы хотите изменить формат диапазона:

Sub rounding()
    Dim r As Range
    Set r = ActiveWorkbook.Worksheets("Sheet1").Range("A1:E20") '--->enter your range here
    r.NumberFormat = "#0.00"
    ActiveWorkbook.PrecisionAsDisplayed = True
End Sub

1

Mrig 29 Апр 2016 в 09:35

Answer 2

Попробуйте это ниже

Sub decimalcheck()
    Dim a As Integer
    Debug.Print Format(Range("G3").Value, "#.00")
End Sub

0

Karthick Gunasekaran 29 Апр 2016 в 09:24

Answer 3

ActiveWorkbook.PrecisionAsDisplayed = True После добавления этого фрагмента кода после изменения формата он работает нормально

Спасибо ребята

Sub rounding()
    Dim r As Range
    Set r = ActiveWorkbook.Worksheets("Sheet1").Range("A1:E20") '--->enter your range here
    r.NumberFormat = "#0.00"
ActiveWorkbook.PrecisionAsDisplayed = True 
end sub

0

JGK 29 Апр 2016 в 09:22

Excel vba Раунд десятичной дроби для 2-х точек или для всего листа

3 ответа

Похожие вопросы

Новые вопросы

excel