|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
08.08.2008, 11:34 | #1 |
Пользователь
Регистрация: 26.06.2008
Сообщений: 55
|
Перенос данніх в зависимости от цвета ячейки
Добрый день. Помогите пожалуйста с кодом
If Cells(i, "B").Interior.ColorIndex = xlNone Then Cells(i, "M") = Cells(i, "M") + Cells(n, "N") Если ячейка B не окрашена то в нее нужно перенести значения, а если окрашена, то пропустить. Как правильно исправить код? Спасибо |
08.08.2008, 14:00 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
вроде всё верно....
может там есть окрас - только белый цвет (посмотрите на нужных ячейках - формат ячейки - Вид - цвет...) или цикл не там крутите... пройдитесь в отладке... |
08.08.2008, 14:12 | #3 |
Пользователь
Регистрация: 26.06.2008
Сообщений: 55
|
У меня на єтих ячейках стоит условное автоформатирование. А так на них заливки нет. Как в этом случае поступить?
|
08.08.2008, 14:33 | #4 | |
Старожил
Регистрация: 12.05.2007
Сообщений: 2,339
|
Цитата:
Код:
|
|
08.08.2008, 15:27 | #5 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
проверять ...Interior.ColorIndex, если ячека закрашена условным форматированием - бессмысленно. Условное форматирование, не влияет на свойство ...Interior.ColorIndex.
В качестве проверки (закрашено/незакрашено) лучше проверить значение в ячейке по тем же критериям, которые записанным в условном форматировании.
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
08.08.2008, 15:34 | #6 |
Пользователь
Регистрация: 26.06.2008
Сообщений: 55
|
У меня там в зависимости от дня недели цвет, если выходные, то красный. Как это пропимать подскажите пожалуйста!
|
08.08.2008, 16:26 | #7 |
Пользователь
Регистрация: 26.06.2008
Сообщений: 55
|
Я пробовал
If Cells(i, "B").FormatConditions.Formula1 = _ "=weekday(i,2)" <= 5 Then Выдает ошибку, незнаю даже как правильно |
08.08.2008, 16:27 | #8 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
If weekday(Cells(i, "B"), vbMonday) < 6 then... значит рабочий день
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
08.08.2008, 19:11 | #9 |
Пользователь
Регистрация: 26.06.2008
Сообщений: 55
|
Спасибо!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как раскрасить ячейки 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 |