Проблема с UserForm. То работает, то НЕ работает

[Maxx]

Прблема №1:
Если выбрать опцию "По рыночной", а затем вернуться на "По заданной цене", то в окне "отклонение" должно оявиться значение 0,001 (как задано кодом), а не 0.001

Проблема №2:
При нажатии на КоммандБоттон 3 или 4 значение в "отклонении" должно увеличиваться или уменьшаться на 0,001 соответственно. Вместо этого при увеличении получается 0.002 и программа выдает ошибку "Type mismatch"

Вся хреновена в том, что Форма ТО РАБОТАЕТ, ТО НЕ РАБОТАЕТ!!!

НЕ ПОНЯТНО?

[EducatedFool]

то в окне "отклонение" должно оявиться значение 0,001 (как задано кодом), а не 0.001

Вообще-то, кодом задано именно TextBox1.Value = 0.001

Вместо этой строки напишите TextBox1.Value = "0,001"

Проблема №2

Оставьте строку TextBox1.Value = 0.001 как есть, и замените обработчики событий
CommandButton3_Click и CommandButton4_Click на следующий код:
(кроме того, добавьте процедуру UserForm_Initialize)

Private Sub CommandButton3_Click()
    TextBox1.Value = Val(TextBox1.Value) + 0.001
End Sub

Private Sub CommandButton4_Click()
    If Val(TextBox1.Value) <> 0 Then TextBox1.Value = Val(TextBox1.Value) - 0.001
End Sub

Private Sub UserForm_Initialize()
    'Application.DecimalSeparator = "."  ' эта строка в принципе не нужна
    TextBox1.Value = 0.001
End Sub

[Maxx]

На вся фишка в том и есть, что не смотря на то, что кодом задано 0.001, все равно появляется 0,001 (в том случае когда форма работает!).

А если задать TextBox1.Value = "0,001", то не будет ли это значение восприниматься как текст?

[EducatedFool]

Немного подправил код в предыдущем посте...

В итоге, если сделать так, работать будет корректно.

Private Sub CommandButton3_Click()
    TextBox1.Value = Val(TextBox1.Value) + 0.001
End Sub

Private Sub CommandButton4_Click()
    If Val(TextBox1.Value) <> 0 Then TextBox1.Value = Val(TextBox1.Value) - 0.001
End Sub

Private Sub UserForm_Initialize()
    TextBox1.Value = 0.001
End Sub

И из TextBox1 можно убрать значение по умолчанию ("0,001") - которое Вы задали при проектировании формы

Или поставить там его в виде 0.001, тогда процедура Private Sub UserForm_Initialize() будет не нужна.

[Maxx]

ЗДОРОВО! Форма работает, но теперь не работает сам код:

' Определение цены продажи
Отклонение = UserForm3.TextBox1.Value

выделяет эту строку желтым и пишет "Type mismatch"

Вообще затея была такая, чтобы отображать в ТекстБокс значение с запятой. Ведь это значение используется в расчетах для определения цены, а ВСЕ цены в самой программе (т.е. в екселевских ячейках) стоят именно с запятой.

И изначально я исходил из того, что VBA не может складывать цифры с точкой и запятой, что они должны быть в одном формате.

И све-равно остается вопрос, почему моя начальная форма то работает, то нет?!

[EducatedFool]

Для получения числового (а не текстового) значения используйте функцию Val

' Определение цены продажи
Отклонение = Val(UserForm3.TextBox1.Value)

И све-равно остается вопрос, почему моя начальная форма то работает, то нет?!

В чём проявляется её неработоспособность? У меня вроде всё работает без сбоев...

[Maxx]

Гениально! Все заработало как надо! Огромное СПАСИБО! В который раз выручаете!