Как суммировать числа в текстбоксах прямо на форме?

Программирование на Visual Basic for Applications
Антон С.
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 18.02.2005 (Пт) 7:09

Как суммировать числа в текстбоксах прямо на форме?

Сообщение Антон С. » 18.02.2005 (Пт) 7:37

Мне кажется, что вопрос очень не корректный, но по другому ничего не придумал. Я только начинаю программировать на VBA. А теперь конкретнее...
На форме несколько textbox, в которые вводятся числа. Мне нужно их суммировать, и чтобы результат появился в другом textbox на этой же форме. Я пробывал так textbox1 + textbox2, получилось что-то типа 2+3=23
Прошу прощения за дилетанский вопрос. Помогите кто может.

Костя
Обычный пользователь
Обычный пользователь
 
Сообщения: 93
Зарегистрирован: 14.02.2005 (Пн) 6:45
Откуда: Новосибирск

Сообщение Костя » 18.02.2005 (Пт) 9:34

Попробуй CDec(textbox1)+CDec(textbox2)
Всё бывает!

Антон С.
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 18.02.2005 (Пт) 7:09

Сообщение Антон С. » 18.02.2005 (Пт) 11:29

Спасибо. Это помогло.
Вопрос такой. Есть ли возможность суммировать с помощью како-то функции, типа sum(tb1, tb2 ....)

Костя
Обычный пользователь
Обычный пользователь
 
Сообщения: 93
Зарегистрирован: 14.02.2005 (Пн) 6:45
Откуда: Новосибирск

Сообщение Костя » 18.02.2005 (Пт) 12:30

Есть. Можешь прям так и писать. Или не получается?
Всё бывает!

Антон С.
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 18.02.2005 (Пт) 7:09

Сообщение Антон С. » 18.02.2005 (Пт) 13:37

Костя писал(а):Есть. Можешь прям так и писать. Или не получается?


Я пробывал так. Объявлял переменную k As Integer. Потом писал:
k = Sum(tb1, tb2, tb3... и т.д. )
Получал "Sub or Function not defined".

Антон С.
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 18.02.2005 (Пт) 7:09

Сообщение Антон С. » 18.02.2005 (Пт) 13:40

pashulka писал(а):Вариант I.
iResult = Application.Sum(TextBox1, TextBox2)


Суммирует только целые числа. С десятичными выдает сообщение:
"Type mismatch"

Если использовать CDec(), ошибку не показывает, но и десятичные в итоге не выдает, округляет.

GSerg
Шаман
Шаман
 
Сообщения: 14286
Зарегистрирован: 14.12.2002 (Сб) 5:25
Откуда: Магадан

Сообщение GSerg » 18.02.2005 (Пт) 14:13

text3.text=cstr(val(text1.text)+val(text2.text))
Как только вы переберёте все варианты решения и не найдёте нужного, тут же обнаружится решение, простое и очевидное для всех, кроме вас

Антон С.
Начинающий
Начинающий
 
Сообщения: 5
Зарегистрирован: 18.02.2005 (Пт) 7:09

Сообщение Антон С. » 20.02.2005 (Вс) 9:20

pashulka! Я пробывал использовать "." вместо "," получалось "Type mismatch".

Попробывал по совету GSerg, получилось так, если ставлю запятую, то в ответе целое число, если точку - ответ с десятичными, но с запятой, а не с точкой.


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

    TopList