Не могу округлить до 3 знаков в калькуляторе vba

[Виктор1234]

Private Sub CommandButton1_Click()
R1 = 0
End Sub

Private Sub CommandButton12_Click()
R3 = 0
End Sub

Private Sub CommandButton3_Click()
R2 = R1
End Sub

Private Sub CommandButton4_Click()
R2 = R3
End Sub

Private Sub R1_Change()

End Sub

Private Sub Вычитание_Click()
R3.Value = Val(R1.Text) - Val(R2.Text)
End Sub

Private Sub Деление_Click()
If R2 = 0 Then
MsgBox "Нельзя!"
Else
R3.Value = Val(R1.Text) / Val(R2.Text)


End If
End Sub

Private Sub одиннаикс_Click()
R3.Value = 1 / Val(R1.Text)
End Sub

Private Sub равно_Click()
R3 = R2
End Sub

Private Sub Сложение_Click()
R3.Value = Val(R1.Text) + Val(R2.Text)
End Sub

Private Sub сложениеравно_Click()
R3 = Val(R3) + Val(R2)
End Sub

Private Sub степень3_Click()
R3.Value = Val(R1.Text) * Val(R1.Text) * Val(R1.Text)
End Sub

Private Sub степеньдва_Click()
R3.Value = Val(R1.Text) * Val(R1.Text)
End Sub

Private Sub степеньпополам_Click()
If R1.Value > 0 Then
R3.Text = Format(Sqr(R1.Value), "0.000")
Else
MsgBox ("R1 <=0")
End If
End Sub

Private Sub Умножение_Click()
R3.Value = Val(R1.Text) * Val(R2.Text)
End Sub

[ura_111]

Посмотри здесь округление чисел в vba:


http://www.planetaexcel.ru/forum/?FI...=read&TID=7179

[Виктор1234]

Сообщение от ura_111

Посмотри здесь округление чисел в vba:


http://www.planetaexcel.ru/forum/?FI...=read&TID=7179

Да я смотрел, не очень разбираюсь просто, как это в код вставить, подскажи пж