Подсчет в текстбоксах

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет в текстбоксах (Макросы/Sub)

parovoznik

Дата: Воскресенье, 02.10.2016, 14:41 | Сообщение № 1

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

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

Сообщений: 442

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

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

Excel 2013

Добрый день.
Есть форма с текстбоксами . В первое и второе поле вводим цифры через запятую и в поле третьем получаем результат.
У меня вопрос ,как можно подкорректировать код,что бы при изменениии данных в textbox(параметр1, параметр2) результат автоматически изменялся в textBox"Итого по позициям"

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

Ответить

wild_pig

Дата: Воскресенье, 02.10.2016, 15:27 | Сообщение № 2

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

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

Сообщений: 516

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

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

2003, 2013

Цитата parovoznik, 02.10.2016 в 14:41, в сообщении № 1

результат автоматически изменялся в textBox"Итого по позициям"

А сейчас этого не происходит?

Ответить

lebensvoll

Дата: Воскресенье, 02.10.2016, 15:30 | Сообщение № 3

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

Ранг: Старожил

Сообщений: 1002

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

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

Excel 2010

parovoznik, добрый день.
попробуйте так вот
[vba]

Код

TextBox3 = Val(TextBox1.Value) + Val(TextBox2.Value)

[/vba]
тем самым вы достигните своего решения

Цитата

результат автоматически изменялся в textBox"Итого по позициям"

а вот и ссылка на вашу тему
My WebPage

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

Кто бы ты ни был, мир в твоих руках

Сообщение отредактировал lebensvoll - Воскресенье, 02.10.2016, 15:34

Ответить

parovoznik

Дата: Воскресенье, 02.10.2016, 15:32 | Сообщение № 4

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

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

Сообщений: 442

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

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

Excel 2013

wild_pig, подсчет происходит,но если неверно введено число например в поле 2 мы его удаляем и ПРИ УДАЛЕНИИ ОСТАЕТСЯ ПОДСЧЕТ хотя числа нет

Ответить

lebensvoll

Дата: Воскресенье, 02.10.2016, 15:47 | Сообщение № 5

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

Ранг: Старожил

Сообщений: 1002

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

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

Excel 2010

parovoznik, вот еще вам ссылка на ваше решение My WebPage

Кто бы ты ни был, мир в твоих руках

Ответить

parovoznik

Дата: Воскресенье, 02.10.2016, 16:12 | Сообщение № 6

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

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

Сообщений: 442

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

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

Excel 2013

lebensvoll, подсчет есть ,но ошибочно ввели число неверное и при удалении этого числа в поле результат остаются данные,а должно быть пусто.

Ответить

Саня

Дата: Воскресенье, 02.10.2016, 16:22 | Сообщение № 7

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

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

Сообщений: 1068

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

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

XL 2016

поправил ваш код - так скажем "на троечку"

в идеале: динамически подгружать текстбоксы во время загрузки формы, т.е., количество строк с текстбоксами - не константа, а параметр
но это другая песня...

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

Ответить

parovoznik

Дата: Воскресенье, 02.10.2016, 16:40 | Сообщение № 8

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

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

Сообщений: 442

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

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

Excel 2013

Саня, как для меня то это на" пять баллов". Спасибо все работает и подсказки,ввод цифр и редактирование. hands

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Подсчет в текстбоксах (Макросы/Sub)

Страница 1 из 1
1