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

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы
Старый 08.08.2008, 10:34   #1
gavrylyuk
Пользователь
 
Регистрация: 26.06.2008
Сообщений: 55
По умолчанию Перенос данніх в зависимости от цвета ячейки

Добрый день. Помогите пожалуйста с кодом
If Cells(i, "B").Interior.ColorIndex = xlNone Then
Cells(i, "M") = Cells(i, "M") + Cells(n, "N")
Если ячейка B не окрашена то в нее нужно перенести значения, а если окрашена, то пропустить. Как правильно исправить код?
Спасибо
gavrylyuk вне форума
Старый 08.08.2008, 13:00   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

вроде всё верно....
может там есть окрас - только белый цвет (посмотрите на нужных ячейках - формат ячейки - Вид - цвет...)
или цикл не там крутите...
пройдитесь в отладке...
Serge_Bliznykov вне форума
Старый 08.08.2008, 13:12   #3
gavrylyuk
Пользователь
 
Регистрация: 26.06.2008
Сообщений: 55
По умолчанию

У меня на єтих ячейках стоит условное автоформатирование. А так на них заливки нет. Как в этом случае поступить?
gavrylyuk вне форума
Старый 08.08.2008, 13:33   #4
valerij
Старожил
 
Аватар для valerij
 
Регистрация: 12.05.2007
Сообщений: 2,332
По умолчанию

Цитата:
Сообщение от gavrylyuk Посмотреть сообщение
Добрый день. Помогите пожалуйста с кодом
If Cells(i, "B").Interior.ColorIndex = xlNone Then
Cells(i, "M") = Cells(i, "M") + Cells(n, "N")
Если ячейка B не окрашена то в нее нужно перенести значения, а если окрашена, то пропустить. Как правильно исправить код?
Спасибо
У меня все работает
Код:
Sub zxc()
If Cells(20, "B").Interior.ColorIndex = xlNone Then
Cells(20, "M") = Cells(20, "M") + Cells(30, "N")
End If
End Sub
Но хочу отметить, что заливка белым цветом, то же воспринимается, как заливка
valerij вне форума
Старый 08.08.2008, 14:27   #5
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,317
По умолчанию

проверять ...Interior.ColorIndex, если ячека закрашена условным форматированием - бессмысленно. Условное форматирование, не влияет на свойство ...Interior.ColorIndex.
В качестве проверки (закрашено/незакрашено) лучше проверить значение в ячейке по тем же критериям, которые записанным в условном форматировании.
IgorGO вне форума
Старый 08.08.2008, 14:34   #6
gavrylyuk
Пользователь
 
Регистрация: 26.06.2008
Сообщений: 55
По умолчанию

У меня там в зависимости от дня недели цвет, если выходные, то красный. Как это пропимать подскажите пожалуйста!
gavrylyuk вне форума
Старый 08.08.2008, 15:26   #7
gavrylyuk
Пользователь
 
Регистрация: 26.06.2008
Сообщений: 55
По умолчанию

Я пробовал
If Cells(i, "B").FormatConditions.Formula1 = _
"=weekday(i,2)" <= 5 Then

Выдает ошибку, незнаю даже как правильно
gavrylyuk вне форума
Старый 08.08.2008, 15:27   #8
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,317
По умолчанию

If weekday(Cells(i, "B"), vbMonday) < 6 then... значит рабочий день
IgorGO вне форума
Старый 08.08.2008, 18:11   #9
gavrylyuk
Пользователь
 
Регистрация: 26.06.2008
Сообщений: 55
По умолчанию

Спасибо!!!
gavrylyuk вне форума
Закрытая тема

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как раскрасить ячейки StringGrid'а в разные цвета в соответствии с условием? monushka Компоненты Delphi 12 05.11.2007 23:44
как изменять цвет ячейки в зависимости от условий ? Витёк Microsoft Office Excel 2 19.06.2007 12:10
смена цвета ячейки если... zetrix Microsoft Office Excel 0 30.10.2006 19:06


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS