Произведение чисел в текстбоксе без кнопки "ОК"

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Произведение чисел в текстбоксе без кнопки "ОК" (Макросы/Sub)

parovoznik

Дата: Вторник, 29.09.2015, 12:08 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 450

Репутация: 26 ±

Замечаний: 0% ±

Excel 2013

Добрый день.
Создал форму . В поля тексбокса вводятся цифры и по нажатию на кнопку ОК получаем результат.
У меня вопрос к знатокам : как получить результат в поле "Объем" после заполнения всех полей не применяя кнопку ОК. Заполнили три поля и сразу получили результат. Это возможно.

К сообщению приложен файл: 3995566.xlsm (21.9 Kb)

Ответить

buchlotnik

Дата: Вторник, 29.09.2015, 12:44 | Сообщение № 2

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

можно так [vba]

Код

Private Sub TextBox5_Change()
If TextBox5 <> "" And TextBox6 <> "" And TextBox7 <> "" Then TextBox8 = TextBox5 * TextBox6 * TextBox7
End Sub

[/vba]

К сообщению приложен файл: _3995566.xlsm (20.7 Kb)

Ответить

Саня

Дата: Вторник, 29.09.2015, 12:44 | Сообщение № 3

Группа: Друзья

Ранг: Ветеран

Сообщений: 1068

Репутация: 560 ±

Замечаний: 0% ±

XL 2016

добавьте в код формы:

[vba]

Код

Private Sub TextBox5_Change()
     GetRes
End Sub
Private Sub TextBox6_Change()
     GetRes
End Sub
Private Sub TextBox7_Change()
     GetRes
End Sub
Private Sub GetRes()
     TextBox8.Text = Val(TextBox5.Text) * Val(TextBox6.Text) * Val(TextBox7.Text)
End Sub

[/vba]