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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 07.08.2009, 21:37   #1
ALEKS2008
Пользователь
 
Регистрация: 06.08.2009
Сообщений: 33
По умолчанию

мне надо формулу с помощью которой будут удалятся (окрашиваться в другой цвет) ячейки ( то А1 до N1). при условии, что в столбце О появляются данные, после сравнения данных в двух столбцах

Зарание благодарю !!!
Вложения
Тип файла: rar форум.rar (6.9 Кб, 14 просмотров)

Последний раз редактировалось EducatedFool; 07.08.2009 в 22:17.
ALEKS2008 вне форума Ответить с цитированием
Старый 07.08.2009, 22:16   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Для этого в Excel есть условное форматирование.
Формула: =$O1=" "

EducatedFool вне форума Ответить с цитированием
Старый 07.08.2009, 23:18   #3
ALEKS2008
Пользователь
 
Регистрация: 06.08.2009
Сообщений: 33
По умолчанию

если можно подробней....я только учусь...........
ALEKS2008 вне форума Ответить с цитированием
Старый 07.08.2009, 23:41   #4
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Куда уж подробнее...
Скачиваешь файл, выделяешь одну из ячеек с белым шрифтом, жмёшь в меню Формат - Условное форматирование, смотришь формулу.
EducatedFool вне форума Ответить с цитированием
Старый 08.08.2009, 00:10   #5
ALEKS2008
Пользователь
 
Регистрация: 06.08.2009
Сообщений: 33
По умолчанию

EducatedFool это для тебя всё просто, для меня это космос, куда я должен формулу вставить ????
ALEKS2008 вне форума Ответить с цитированием
Старый 08.08.2009, 00:19   #6
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,858
По умолчанию

Там уже всё вставлено
Выдели диапазон ячеек A1:N1, и протяни их вниз на нужное количество строк.
В появившемся меню вставки выбери пункт Копировать только форматы
EducatedFool вне форума Ответить с цитированием
Старый 08.08.2009, 00:28   #7
ALEKS2008
Пользователь
 
Регистрация: 06.08.2009
Сообщений: 33
По умолчанию

извини за настойчивость, но я всё сделал как ты написал результата нет.... у меня офис 2007 мне ещё трудно с ним разобраться

Последний раз редактировалось ALEKS2008; 08.08.2009 в 00:44.
ALEKS2008 вне форума Ответить с цитированием
Старый 08.08.2009, 10:28   #8
jiko
Новичок
Джуниор
 
Регистрация: 07.08.2009
Сообщений: 2
Хорошо

Ну вот смотри:выделяешь область ячеек, давишь "ФОРМАТ"="Условное форматирование"... Там выбираешь условие, допустим "Значение", ....
А-а-а-а-а, ты имеешь в виду - изменение цвета ячеек в зависимости от значения других ячеек?...
Тогда макрос (ИМХО) лучше написать такого плана
Для листа, в котором происходит действие:
===============
Private Sub Worksheet_Change(ByVal Target As Range)
s = 0 ' обнуляем s
For r = 1 To 3 ' с первой по третью строчку
s = s + Cells(r, 15) '
Next r '15-й столбец - это "О"... суммируем данные в этом столбике
If s = 0 Then 'усли сумма=0,то
Range(Cells(1, 10), Cells(3, 14)).Interior.ColorIndex = 0 'окрашиваем в прозрачный цвет

Else ' иначе
Range(Cells(1, 10), Cells(3, 14)).Interior.ColorIndex = 3 'окрашиваем в красный цвет
End If '
End Sub '
=================
Можно копировать и вставлять.... проверено
jiko вне форума Ответить с цитированием
Старый 08.08.2009, 16:37   #9
DV68
Форумчанин
 
Регистрация: 05.08.2009
Сообщений: 465
По умолчанию

Цитата:
Сообщение от jiko Посмотреть сообщение
Ну вот смотри:выделяешь область ячеек, давишь "ФОРМАТ"="Условное форматирование"... Там выбираешь условие, допустим "Значение", ....
А-а-а-а-а, ты имеешь в виду - изменение цвета ячеек в зависимости от значения других ячеек?...
Тогда макрос (ИМХО) лучше написать такого плана
Для листа, в котором происходит действие:
===============
Private Sub Worksheet_Change(ByVal Target As Range)
s = 0 ' обнуляем s
For r = 1 To 3 ' с первой по третью строчку
s = s + Cells(r, 15) '
Next r '15-й столбец - это "О"... суммируем данные в этом столбике
If s = 0 Then 'усли сумма=0,то
Range(Cells(1, 10), Cells(3, 14)).Interior.ColorIndex = 0 'окрашиваем в прозрачный цвет

Else ' иначе
Range(Cells(1, 10), Cells(3, 14)).Interior.ColorIndex = 3 'окрашиваем в красный цвет
End If '
End Sub '
=================
Можно копировать и вставлять.... проверено
Человек новичек в EXCEL, а ты сразу макросы.
ALEKS2008, почитай про условное форматирование, оно тебе в этом вопросе вполне подойдет. Достаточно стандартной справки Excel.
"Все следует делать настолько простым, насколько это возможно, но не проще." Альберт Эйнштейн
DV68 вне форума Ответить с цитированием
Старый 08.08.2009, 18:33   #10
DV68
Форумчанин
 
Регистрация: 05.08.2009
Сообщений: 465
По умолчанию

Цитата:
Сообщение от EducatedFool Посмотреть сообщение
Для этого в Excel есть условное форматирование.
Формула: =$O1=" "

На мой взгляд вместо =$O1=" " лучше =$O1<>" ". Тогда выделяется та строка, которая нужна.
Вложения
Тип файла: rar форум- ответ.rar (4.1 Кб, 14 просмотров)
"Все следует делать настолько простым, насколько это возможно, но не проще." Альберт Эйнштейн
DV68 вне форума Ответить с цитированием
Ответ


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



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как запретить запуск программы на VBA Excel 2003 в Excel 2007 kovalevskivf Microsoft Office Excel 2 15.05.2009 16:47
Step in formula alex_r Microsoft Office Excel 7 07.04.2009 08:02
очень громоздкие финансовые модели в Excel, а Excel не тянет Ragazza Microsoft Office Excel 7 03.10.2007 20:08
Формирование из excel в ASCII, у меня он формирует по одному клиенту а в Excel нескол Askat Общие вопросы Delphi 0 18.07.2007 06:28
Как вытащить данные из Excel в бд dephi, а потом (после работы с данными) сформировать новый файл excel. Геля БД в Delphi 1 10.04.2007 15:11