В итоге показание должно быть нулевым

[segail]

Здравствуйте.
Не могу разобраться с десятичными знаками.
Создал пример, где при клике по кнопке значение r451 должно отобразиться как отрицательное значение в TextBox2, а затем суммировав отрицательное значение с r451, значение должно дать нулевое показание в ячейки S1.
Хочу понять, как работать с десятичными знаками…

[IgorGO]

исправил

Range("S1") = Val(TextBox3.Value) + Round([r451], 20)

на

Range("S1") = Val(TextBox2.Value) + Round([r451], 20)

Хочу понять, как работать с десятичными знаками…

Это правило поможет Вам работать не только с десятичными знаками, но и со строковыми переменными: пишите то, что задумали, и проверяйте правильность написанного

[segail]

Почему в объекте TextBox2 числовой формат экспоненциальный?

TextBox2 = Val(TextBox3.Value) - Round([r451], 20)

Если количество десятичных знаков в [r451] поставить 30

Round([r451], 30)

то выдается ошибка, максимальное количество десятичных знаков можно установить 22.
И какую роль может играть количество десятичных знаков. Я ставил 3, 18, 22, разницы при расчете, ни какой нет.
В следующем примере применил другой код с Cells

Private Sub CommandButton1_Click()
    TextBox2 = Val(TextBox3.Value) - Cells(i + 451, 18).Value
    Range("S1") = Val(TextBox2.Value) + Cells(i + 451, 18).Value
End Sub

В TextBox2 отображается формат экспоненциальный, хотя должно отобразится отрицательное значение ячейки Cells(i + 451, 18)