Отрицательное значение TextBox

[segail]

Здравствуйте.
Подскажите почему не происходит изменение цвета, отрицательного значения TextBox5 ?

[doober]

Option Explicit

Вот ваша беда,что у вас нет обязательного обявления,сразу бы нашли ошибку

[segail]

В принципе мне уже сказали, как надо EducatedFool хотя Ваш код тоже работает. Спасибо.
После того как значения в TextBox стали с десятичными знаками, возникла другая проблема, не происходит суммирование значения TextBox5 с ячейкой .Cells(i, 6).Value

.Cells(i, 6).Value = UserForm1.TextBox5.Text + .Cells(i, 6).Value

До этого числа в TextBox были целыми, суммирование выполнялось, но кода я добавил десятичные значения в TextBox

TextBox5 = Round(.Range("D25"), 2)

Выдается ошибка. Я думаю что десятичные значение в TextBox разделены точкой, а в ячейки десятичные значения разделены запятой. Что здесь можно сделать?

[doober]

выполните макрос и все поймете

Sub Число_и_текст()

Dim a, b As String
Dim x, y As Double
a = "10,1"
b = "11,2"
MsgBox (a + b)
MsgBox (CDbl(a) + CDbl(b))
x = 10.1
y = 11.2
MsgBox (x + y)

End Sub

[segail]

Смысл Вашего примера понимаю так, текст при помощи функции CDbl переводится в числовой.
Не пойму только как у меня эти функции правильно проставить

Dim b As String
b = Round(.Range("D25"), 2)
        
TextBox5 = CDbl(b)
TextBox5.ForeColor = IIf(Val(TextBox5) < 0, vbRed, vbBlack)

[segail]

Или так. Ячейка Cells(i, 6).Value) уже имеет числовой формат, не пойму что делать с TextBox5

Dim b As String
b= UserForm1.TextBox5.Text
.Cells(i, 6).Value = (CDbl(b) + .Cells(i, 6).Value)

[doober]

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

Смысл Вашего примера понимаю так, текст при помощи функции CDbl переводится в числовой.
Не пойму только как у меня эти функции правильно проставить

Dim b As String
b = Round(.Range("D25"), 2)
        
TextBox5 = CDbl(b)
TextBox5.ForeColor = IIf(Val(TextBox5) < 0, vbRed, vbBlack)

TextBox5.Text = b


TextBox5-это контрол

TextBox5.Text -это текст этого контрола

Dim b As String
b = Round(.Range("D25"), 2)
      on error resume next  ' ячейка может быть пустая
TextBox5.Text = b
TextBox5.ForeColor = IIf(CDbl(TextBox5.Text) < 0, vbRed, vbBlack)

[segail]

А суммирование по такому принципу производить?

Dim a,b As String

a = .Cells(i, 6).Value)
on error resume next  ' ячейка может быть пустая
b= UserForm1.TextBox5.Text
.Cells(i, 6).Value = (CDbl(a) + CDbl(b))