Добрый день.
Подскажите, как в макрос добавить округление вставляемого значения до второго знака после запятой.
Подскажите, как в макрос добавить округление вставляемого значения до второго знака после запятой.
| Код |
|---|
Sub Кабельный_журнал()
Dim lr As Long, llastr As Long, lcnt As Long, ac As Long
ac = Application.Calculation
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
lcnt = 7
With Worksheets("0,4кВ")
llastr = .Cells(.Rows.Count, 1).End(xlUp).Row
For lr = 12 To llastr
If .Cells(lr, 1).Value <> "" Then
Worksheets("кабельний журнал").Range("A" & lcnt).Value = .Range("E" & lr).Value
Worksheets("кабельний журнал").Range("B" & lcnt).Value = .Range("C" & lr).Value
Worksheets("кабельний журнал").Range("C" & lcnt).Value = .Range("F" & lr).Value
Worksheets("кабельний журнал").Range("D" & lcnt).Value = .Range("AO" & lr).Value
Worksheets("кабельний журнал").Range("E" & lcnt).Value = .Range("AN" & lr).Value
Worksheets("кабельний журнал").Range("H" & lcnt).Value = .Range("O" & lr).Value
Worksheets("кабельний журнал").Range("N" & lcnt).Value = .Range("I" & lr).Value
lcnt = lcnt + 1
End If
Next
End With
Application.Calculation = ac
Application.ScreenUpdating = True
End Sub
|
