|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
07.12.2010, 17:15 | #1 |
Регистрация: 01.09.2010
Сообщений: 3
|
Залить цветом диапазон (строку таблицы), если в последней ее ячейке есть текст
Есть таблица в excel. В первой графе названия, в остальных - даты дд.мм.гггг (причем формат ячеек текстовый).
Нужно, чтобы строка закрашивалась красным, если последняя ячейка заполнена. И еще такой вопросик: можно ли программно организовать возможность ввода диапазона дат для каждого столбца (желательно, чтобы день месяц и год вводился в отдельном окошке)? |
07.12.2010, 17:58 | #2 |
Регистрация: 01.09.2010
Сообщений: 3
|
Сама спросила - сама ответила. В цвет как красить разобралась:
Sub В_красный() Dim pos As Long, EndRow1 As Long EndRow1 = Sheets("Sheet1").Range("A6").End(xl Down).Row For pos = 6 To EndRow1 If Sheets("Sheet1").Range("K" & pos).Value <> "" Then Range("A" & pos, "K" & pos).Select Selection.Interior.ColorIndex = 3 End If Next pos End Sub Остался вопрос с диапазонами дат Неужели никто не сталкивался с таким? |
07.12.2010, 18:00 | #3 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
последняя ячейка - это в колонке К? я так понимаю. см.вложение
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
07.12.2010, 18:52 | #4 | |
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Цитата:
День =ТЕКСТ($C$5;"ДД") Месяц =ТЕКСТ($C$5;"ММ") Год =ТЕКСТ($C$5;"ГГГГ")
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
|
08.12.2010, 09:39 | #5 |
Регистрация: 01.09.2010
Сообщений: 3
|
Да, последняя ячейка с колонке К, но с этим я уже разобралась. Осталась сортировка по диапазону.
=ТЕКСТ($C$5;"ДД") - это не совсем то, чего хотелось бы добиться. Задумка такая: для каждой графы с датами должен быть организован поиск типа раскрывающихся окошек: Введите диапазон с: день месяц год по: день месяц год А потом в графе сортировались строки, исходя из данных этого диапазона. Вот как-то так... |
08.12.2010, 09:47 | #6 | ||
Старожил
Регистрация: 15.05.2008
Сообщений: 2,058
|
Цитата:
Цитата:
"Дайте людям рыбы, и вы накормите их на весь день; научите их ловить рыбу - и вы накормите их на всю жизнь"
"Большое спасибо" - Z261597841314, R208907249777, U447361470499 |
||
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Залить одним цветом | Alex Cones | Win Api | 4 | 24.09.2010 16:18 |
Как залить определённые участки формы каким-то определённым цветом? | Rin | Общие вопросы Delphi | 5 | 18.11.2009 23:05 |
Залить цветом область. | gusluk | Мультимедиа в Delphi | 3 | 31.10.2009 05:58 |
Выделение цветом последней строки DBGrig | Yura_S | Помощь студентам | 2 | 28.10.2009 08:35 |
Как в OnkeyPress отловить если в Edit есть текст позицию заменяемого символа? | slips | Общие вопросы Delphi | 3 | 06.12.2008 18:12 |