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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Название темы включает слова - "Помогите", "Спасите", "Срочно"
Название темы не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте >>>правила <<< и заново правильно создайте тему.
 
Опции темы
Старый 08.08.2008, 11: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, 14:00   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 26,203
По умолчанию

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

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

Цитата:
Сообщение от 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, 15:27   #5
IgorGO
МегаМодератор
СуперМодератор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,219
По умолчанию

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

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

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

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

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

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

Опции темы

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

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

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

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


11:11.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.