Код в VBA

[Вадим12091965]

Всем привет. Может кто поможет.
Private Sub ComboBox1_Change()
If ComboBox1.Text = "С 1-й распашной дверью 150*300*720" Then
TextBox19.Text = 150
TextBox2.Text = 300
TextBox3.Text = 720
TextBox4.Text = 1
End If

If ComboBox1.Text = "С 2-мя распашными дверями 600*300*720" Then
TextBox19.Text = 600
TextBox2.Text = 300
TextBox3.Text = 720
TextBox4.Text = 1
End If
End Sub
При этом, если значения в текстбоксах изменят, то значения должны изменить цвет (красный).
Заранее благодарен за помощь.

[samsaa]

А изменения в TextBox будут выполнятся в ручную или за счет выбора другого значения из элемента ComboBox1?

[doober]

Можно так попробовать сделать

Private Sub TextBox2_Change()
    If TextBox2.Text = TextBox2.Tag Then
        TextBox2.ForeColor = &H80000008
    Else
        TextBox2.ForeColor = &HFF&
    End If
End Sub

Private Sub TextBox3_Change()
    If TextBox3.Text = TextBox3.Tag Then
        TextBox3.ForeColor = &H80000008
    Else
        TextBox3.ForeColor = &HFF&
    End If
End Sub

Private Sub TextBox4_Change()
    If TextBox4.Text = TextBox4.Tag Then
        TextBox4.ForeColor = &H80000008
    Else
        TextBox4.ForeColor = &HFF&
    End If
End Sub


Private Sub TextBox19_Change()
    If TextBox19.Text = TextBox19.Tag Then
        TextBox19.ForeColor = &H80000008
    Else
        TextBox19.ForeColor = &HFF&
    End If
End Sub


Private Sub ComboBox1_Change()
    If ComboBox1.Text = "С 1-й распашной дверью 150*300*720" Then
        TextBox19.Tag = 150
        TextBox19.Text = 150
        TextBox2.Tag = 300
        TextBox2.Text = 300
        TextBox3.Tag = 720
        TextBox3.Text = 720
        TextBox4.Tag = 1
        TextBox4.Text = 1
    End If

    If ComboBox1.Text = "С 2-мя распашными дверями 600*300*720" Then
        TextBox19.Tag = 600
        TextBox19.Text = 600
        TextBox2.Tag = 300
        TextBox2.Text = 300
        TextBox3.Tag = 720
        TextBox3.Text = 720
        TextBox4.Tag = 1
        TextBox4.Text = 1
    End If
End Sub

[Вадим12091965]

doober! Спасибо. Работает как надо. Дал направление, дальше попробую не споткнуться.

[Вадим12091965]

Все-же споткнулся. Добавил в код:
TextBox18.Text = Лист3.[G4].Value
Текстбокс показывает первое значение ячейки G4. При изменении значения ячейки G4 в текстбоксе нет изменений. Что не так?

[Hugo121]

Это ведь не формула, не мониторит постоянно лист.
Нужно его насильно обновлять.
И что это вообще за текстбоксы, где они?
Почему файл не показываете?