Суммирование значение textbox в форме!

[Punker1]

Добрый день!
Помогите мне с такой проблемой. Я ввожу данные на лист через форму.
Данные вводятся в текстбоксы на форме. В качестве проверки, сумма чисел введенных в верхние пять текстбоксов с 1-ого по 5-ый должна ровняться сумме чисел введенных в нижние четыре текстбокса с 6-ого по 9-ый. Для проверки равенства я добавил еще два текстбокса в которых соответственно пытаюсь суммировать вводимые данные. Но как ни пытался я менять код: данные не суммируются, а сцепляются. Я так понимаю, что они принимаются как текст, но как правильно сделать так чтобы введенные данные принимались как числа и суммировались я так и не додумал.

[The_Prist]

Используйте функции конвертации, т.к. Вы таки правы - текстБоксы возвращают именно текст, не зря они ТекстБоксы.
Вариант1(путые ТекстБоксы не проблема)

dim dblSumm as double
dblSumm = Val(textBox1)+Val(TextBox2)

Вариант2(при пустом ТекстБоксе будет ошибка)

dim dblSumm as double
dblSumm = Cdbl(textBox1)+Cdbl(TextBox2)

[SAS888]

Необходимо добавить, что во 2-м варианте от The_Prist ошибка будет не только при пустом значении, а при любом значении, которое невозможно преобразовать в тип Double. Например, буквы.

[The_Prist]

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

Необходимо добавить, что во 2-м варианте от The_Prist ошибка будет не только при пустом значении, а при любом значении, которое невозможно преобразовать в тип Double. Например, буквы.

Ну это да, верно. Я думаю автор догадается, что незачем буквы суммировать...

[SAS888]

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

Ну это да, верно. Я думаю автор догадается, что незачем буквы суммировать...

Это я к тому, что в подобных случаях, как правило, уместно вставлять проверку вводимых данных. Иначе, по невнимательности пользователя, это может привести к неправильному результату в расчетах, при чем, без сигнализации ошибки несоответствия типов. Так, например, по Вашему 1-му варианту, ошибки не будет никогда, даже при суммировании букв. Чем это обернется в последствии - знает только автор вопроса. Ему решать.

[The_Prist]

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

Так, например, по Вашему 1-му варианту, ошибки не будет никогда, даже при суммировании букв.

Ладно, SAS888, уговорили
Раз уж начали дискуссию, так будем добивать потихоньку...

Punker1, перед преобразованием можете добавить проверку на числовое значение в ТекстБоксе

dim dblSumm as double
If IsNumeric(textBox1) and IsNumeric(textBox2) then dblSumm = Val(textBox1)+Val(TextBox2)

А для Cdbl необходимо добавить еще и проверку на строку нулевой длины.
А вообще посоветовал бы контролировать ввод в Боксы только цифр и запятой(или точки - зависит от установленного в качестве разделителя знака).

[Punker1]

Спасибо огромное, наконец-то заработало. Да мне подходит первый вариант. В примере, что я выкладывал, в том числе имеется макрос, позволяющий в текстбоксы вводить только цифры, но при этом цифр может и не быть вообще.

[КаМММ]

когда у меня возникала проблема преобразования, я присваивал переменной значение из текстбокса и умножая на единицу и проверял ошибку.