Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.08.2010, 13:44   #1
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию Условие не срабатывает

Здравствуйте.

При вычислении число десятичных знаков в R451 два
Код:
TextBox2.Value = (TextBox3.Value) - Round([r451], 2)
Условие
Код:
If TextBox2.Value < 0 Then
не срабатывает на цвет
Код:
TextBox2.ForeColor = vbRed
Else
TextBox2.ForeColor = vbBlack
End If
Если вычисляется целое значение
Код:
TextBox2.Value = (TextBox3.Value) - Round([r451], 0)
то условие срабатывает.

Как сделать, что бы условие срабатывало с учетом десятичных знаков.
segail вне форума Ответить с цитированием
Старый 15.08.2010, 13:58   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

TextBox2.Value не строку ли содержит случайно?
строка всегда больше числа, т.е. "1" > 1000
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 15.08.2010, 14:04   #3
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
TextBox2.Value не строку ли содержит случайно?
строка всегда больше числа, т.е. "1" > 1000
Не знаю…
Как и где узнать что он содержит…
segail вне форума Ответить с цитированием
Старый 15.08.2010, 14:08   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

если TextBox2.Value = "1"
то TextBox2.Value > 2
а Val(TextBox2.Value) < 2
(надо текст привести к числу)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 15.08.2010, 14:26   #5
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

Цитата:
Сообщение от IgorGO Посмотреть сообщение
если TextBox2.Value = "1"
то TextBox2.Value > 2
а Val(TextBox2.Value) < 2
(надо текст привести к числу)
А Функция преобразования переменной в значение CInt тоже подойдет?
segail вне форума Ответить с цитированием
Старый 15.08.2010, 15:10   #6
segail
Форумчанин
 
Регистрация: 13.06.2009
Сообщений: 691
По умолчанию

А как теперь назначить количество десятичных знаков объекту Val(TextBox3.Value), при вычислении Round([r451], 2) с двумя десятичными знаками не дает результат значения с двумя десятичными знаками в TextBox2.Value

Последний раз редактировалось segail; 15.08.2010 в 15:31.
segail вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Не срабатывает чексбокс Syltan PHP 2 12.07.2010 03:29
Не срабатывает onclick zeharon JavaScript, Ajax 5 15.06.2010 09:11
Индекс не срабатывает GenniY БД в Delphi 4 24.11.2009 15:05
Не срабатывает макрос... Busine2009 Фриланс 6 14.08.2009 10:14
Не срабатывает OnCloseQuery Arkuz Общие вопросы Delphi 4 31.07.2009 01:32