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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 30.12.2006, 21:06   #1
vladi
Пользователь
 
Регистрация: 30.12.2006
Сообщений: 11
По умолчанию написание формулы

Господа!С новым годом!
Помогите написать цифровую формулу.Пример:=если(А1>B1-то шрифт в ячейки С1 должен менять цвет)
vladi вне форума
Старый 30.12.2006, 23:49   #2
-=DeS=-
Форумчанин
 
Аватар для -=DeS=-
 
Регистрация: 20.12.2006
Сообщений: 135
Злость

Код:
if strtoint(edit1.Text) > strtoint(edit2.Text) then edit3.Font.Color:=clred;
меняет цвет шрифта 3 эдита на красный...
Блин опять не посмотрел на название топика написал на делфи но думаю что хоть принцип пригодится...
writeln('Hello Dude!!!');

Последний раз редактировалось -=DeS=-; 31.12.2006 в 00:49.
-=DeS=- вне форума
Старый 31.12.2006, 01:13   #3
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

А теперь правильный ответ : формулы не могут менять шрифт в ячейке, т.к. это изменение возможно только :
1) вручную
2) программно
3) используя соответствующий формат ячейки
4) используя условное форматирование

В данном конкретном случае, для решения поставленной задачи, достаточно применить условное форматирование.

Для этого : выделите ячейку "C1", затем в меню Формат выберите команду Условное форматирование. В поле со списком выберите Формула, в текстовом поле введите первую формулу (если Вы абсолютно уверены, что ячейки "A1" и "B1" могут содержать только числовые значения) или вторую формулу (если возможен вариант, что в вышеупомянутые ячейки могут быть введены данные, отличные от числовых, или же эти ячейки содержат формулы, которые могут возвращать различные значения, в т.ч. и ошибки)

=$A$1>$B$1
=ЕСЛИ(И(ЕЧИСЛО($A$1);ЕЧИСЛО($B$1)); $A$1>$B$1)

Затем, нажмите на кнопку Формат, установите нужные параметры форматирования (в данном случае нужный цвет шрифта) и после всех изменений нажмите кнопку Ok.
pashulka вне форума
Старый 31.12.2006, 09:10   #4
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

-=DeS=- , модер-форумчанин, внимательнее будь
zetrix вне форума
Старый 31.12.2006, 17:12   #5
vladi
Пользователь
 
Регистрация: 30.12.2006
Сообщений: 11
По умолчанию

Огромное спасибо! Первая формула работает отлично.
А можно усложнить задачу?
При А1>B1 в С1 цвет цифр один
При A1<B1 в С1 цвет цифр другой?
vladi вне форума
Старый 31.12.2006, 17:33   #6
vladi
Пользователь
 
Регистрация: 30.12.2006
Сообщений: 11
По умолчанию

Задача решена.
Всех с новым годом!!!!!!!!!!!!!!
vladi вне форума
Старый 31.12.2006, 18:16   #7
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

Первая формула - будет возвращать ожидаемый результат, только при условии, что обе ячейки содержат числовые значения. И этот момент необходимо учитывать, ибо ситуация может измениться, если A1="Иванов", а B1=10 или же ячейка A1 будет пустая, а B1=-10
Вторая формула - более универсальна, т.к. сравнение значений возможно только при условии, что обе ячейки содержат именно числа (в т.ч. и нуль)
Если у кого-то возникнет аналогичная задача, то обратите внимание на то, что во всех указанных версиях (97, 2000, 2002/XP, 2003) в условном форматировании возможно применение трёх условий. Т.е. Для добавления дополнительных условий достаточно кликнуть кнопку А также, которая наличествует в стандартном диалоговом окне Условное форматирование.
pashulka вне форума
Закрытая тема


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Формулы SunKnight Общие вопросы Delphi 2 07.04.2008 09:38
Написание формулы на C++ Noor Общие вопросы C/C++ 11 08.01.2007 14:15
Формулы в Word Gambler Microsoft Office Word 0 30.10.2006 23:13