Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

При вычислении число десятичных знаков в 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
Адрес: УКРАЇНА, Київ
Сообщений: 8,997
Репутация: 1710

icq: 7934250
skype: i2x0,5
По умолчанию

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

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

icq: 7934250
skype: i2x0,5
По умолчанию

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

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


09:46.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru