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

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

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

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

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

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 17.06.2008, 09:59   #1
Wasily
Пользователь
 
Регистрация: 17.06.2008
Сообщений: 12
Сообщение И по поводу раскрашивание ячеек от даты

Чтоб часть строки окрашивалась в желтый за месяц->3 недели до даты в определенной ячейки, в оранж за 3->2 недели и в красный за 2->дата? Спасибо

Последний раз редактировалось Wasily; 17.06.2008 в 10:02.
Wasily вне форума
Старый 17.06.2008, 10:17   #2
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Можно более точный пример. И что значит
Цитата:
часть строки
Если это часть строки в одной ячейке, то нужен конкретный пример.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 17.06.2008, 10:22   #3
Wasily
Пользователь
 
Регистрация: 17.06.2008
Сообщений: 12
По умолчанию

часть сроки- от А до Q в строке с истекшей датой (строк от 1 до ....)
Wasily вне форума
Старый 17.06.2008, 10:30   #4
Wasily
Пользователь
 
Регистрация: 17.06.2008
Сообщений: 12
По умолчанию

кстати, как прикрепить файл?
Wasily вне форума
Старый 17.06.2008, 10:34   #5
VictorM
Старожил
 
Аватар для VictorM
 
Регистрация: 15.05.2008
Сообщений: 2,058
По умолчанию

при создании сообщения перейдите в "Расширенный режим".
Ниже окна сообщения увидите кнопочку - "Управление вложениями"
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499
VictorM вне форума
Старый 17.06.2008, 10:35   #6
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Войти в "Расширенный режим", нажать "Управление вложениями". И далее...
Чем шире угол зрения, тем он тупее.
SAS888 вне форума
Старый 17.06.2008, 11:06   #7
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Пусть в ячейке "A1" - контрольная дата. Тогда следующий код окрасит ячейки диапазона "A2:Q2" в требуемый цвет, в зависимости от текущей даты. Формат ячейки "A1" должен быть "Дата". Как запускать код на выполнение - дело вкуса.
Код:
Sub ColorDate()

    Select Case DateDiff("D", Now, Range("A1"))
        Case Is > 21
            Range("A2:Q2").Interior.ColorIndex = 6
        Case 15 To 21
            Range("A2:Q2").Interior.ColorIndex = 44
        Case Is < 15
            Range("A2:Q2").Interior.ColorIndex = 3
    End Select

End Sub
P.S. Можно и условным форматированием. Но это не ко мне.
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 17.06.2008 в 11:10.
SAS888 вне форума
Старый 17.06.2008, 13:08   #8
Wasily
Пользователь
 
Регистрация: 17.06.2008
Сообщений: 12
По умолчанию

Цитата:
Сообщение от SAS888 Посмотреть сообщение
Можно более точный пример.
В архиве пример того что надо: когда дата приближается эта строка окрашивается. таких строк (с датами) несколько тыс.)))
Вложения
Тип файла: rar пример.rar (1.6 Кб, 26 просмотров)
Wasily вне форума
Старый 17.06.2008, 15:01   #9
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Посмотрите вложение. Запустите макрос "Okraska".
Если устроит - переместите код в модуль "Эта книга", выполняемый по событию Workbook_Open()
Вложения
Тип файла: rar пример_2.rar (5.5 Кб, 31 просмотров)
Чем шире угол зрения, тем он тупее.

Последний раз редактировалось SAS888; 17.06.2008 в 15:19.
SAS888 вне форума
Старый 18.06.2008, 08:38   #10
Wasily
Пользователь
 
Регистрация: 17.06.2008
Сообщений: 12
По умолчанию

SAS888, спасибо- то что надо )))
Wasily вне форума
Закрытая тема


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Раскрашивание черно-белых изображений!!! ALEX_RAS Помощь студентам 1 16.05.2008 21:57
по поводу привода Nixtone Помощь студентам 1 14.12.2007 22:08
Вопрос по поводу StringList(а) KAMENYKA Компоненты Delphi 4 07.12.2007 13:01
по поводу wap чата Simply-Art PHP 2 15.07.2007 15:58
Вопрос по поводу типов werser Помощь студентам 4 23.06.2007 14:18