TextBox проблема с вычитанием!

Весь MS Office, программирование на Visual Basic for Applications и MS VB

Модератор: Naeel Maqsudov

Ответить
Evrodiller
Сообщения: 4
Зарегистрирован: 23 дек 2005, 11:03

Доброго времени суток!
У меня возникла проблема немогу отнять значение одного ТекстБокса от другого.

Код: Выделить всё

TextBox1.Value =TextBox2.Value -TextBox3.Value
sergvk
Сообщения: 129
Зарегистрирован: 21 июн 2005, 14:33
Откуда: Крым, Феодосия
Контактная информация:

Если я правильно понял, то в TextBox1 числа.

Код: Выделить всё

TextBox1.Value =Val(TextBox2.Value) -Val(TextBox3.Value)
Evrodiller
Сообщения: 4
Зарегистрирован: 23 дек 2005, 11:03

[quote="sergvk"]Если я правильно понял, то в TextBox1 числа.

Код: Выделить всё

TextBox1.Value =Val&#40][/quote]

[code]With Sheets("Лист1")
Me.TextBox10.Value = WorksheetFunction.DSum(.Range(.Cells(3, 1), .Cells(60000, 20)), _
"Что-то", .Range(.Cells(4, 30), .Cells(5, 32)))
End With
With Sheets("Лист2")
Me.TextBox12.Value = WorksheetFunction.DSum(.Range(.Cells(3, 1), .Cells(60000, 20)), _
"То-то", .Range(.Cells(4, 33), .Cells(5, 35)))
End With
TextBox13.Value=TextBox12.Value-TextBox10.Value
Вот пример.

Попробывал так, но тоже выдает ошибку Type mismatch

Код: Выделить всё

TextBox3.Value =cdbl(TextBox1.Value)-cdbl(TextBox2.Value)
Незнаю , в чем конкретно ошибка ((
Аватара пользователя
Игорь Акопян
Сообщения: 1440
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

положил на страницу 3 TextBoxa - в два прописал числа, на ДаблКлик третьего повесил обработчик

TextBox3.Value =TextBox1.Value-TextBox2.Value

работает....
Изображение
Evrodiller
Сообщения: 4
Зарегистрирован: 23 дек 2005, 11:03

Игорь Акопян,
TextBox1 и TextBox2 у меня вычисляемы, может ли быть в этом загвоздка? Тоесть они пересчитываются в зависимости от даты и т.д. и сохраняют окончательный результат.
Аватара пользователя
Игорь Акопян
Сообщения: 1440
Зарегистрирован: 13 окт 2004, 17:11
Откуда: СПБ
Контактная информация:

я не на столько хорошо знаю детали, но, имхо, не должно быть никакой разницы...
а какое событие вызывает вычисление разности?
кстати, а как и где он ругается при выполнении операции из вашего первого поста?
Изображение
Evrodiller
Сообщения: 4
Зарегистрирован: 23 дек 2005, 11:03

TextBox3.Value =cdbl(TextBox1.Value)-cdbl(TextBox2.Value) ругается тут пишет , что Type mismatch. Событие при клике на кнопку.
Аватара пользователя
Naeel Maqsudov
Сообщения: 2570
Зарегистрирован: 20 фев 2004, 19:17
Откуда: Moscow, Russia
Контактная информация:

Загвоздка может быть в десятичном разделителе!
Сам VBA работает с точками, а Excel с тем, что указано в национальных настройках Windows.

Неисключаю также, что ошибка происходит не на строке "TextBox13.Value=TextBox12.Value-TextBox10.Value", а раньше.
Evrodiller, на какой именно строчке из приведенного Вами кода возникает ошибка?
(Эта строка выделяется желтым цветом если после ошибки нажать не кнопку Stop, а перейти в режим отладки.)
Ответить