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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 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,229
По умолчанию

вроде всё верно....
может там есть окрас - только белый цвет (посмотрите на нужных ячейках - формат ячейки - Вид - цвет...)
или цикл не там крутите...
пройдитесь в отладке...
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,339
По умолчанию

Цитата:
Сообщение от 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,487
По умолчанию

проверять ...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,487
По умолчанию

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

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


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


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