Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Заливка ячеек в колонке / 12 сообщений из 12, страница 1 из 1
26.10.2006, 16:48:43
    #34084491
MrPavlik
MrPavlik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заливка ячеек в колонке
Задача следующая:
В таблице есть колонка n ячеек в которых находятся различные даты.
Нужно сравнить по всей колонке эти даты с текущей, те в которых дата меньше или равна текущей залить цветом, например красным.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2006, 16:52:34
    #34084514
Ashton
Ashton
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заливка ячеек в колонке
Формат->Условное форматирование.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2006, 16:59:22
    #34084538
MrPavlik
MrPavlik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заливка ячеек в колонке
Хотелось бы все таки макрос.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2006, 17:27:08
    #34084666
vbapro
vbapro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заливка ячеек в колонке
ну так записать макрорекордером???? это практически без изменений:
Код: plaintext
1.
2.
3.
4.
5.
6.
Sub Macro15()
    Columns("A:A").Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLessEqual, _
        Formula1:="=NOW()"
    Selection.FormatConditions( 1 ).Interior.ColorIndex =  3 
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2006, 17:54:05
    #34084788
MrPavlik
MrPavlik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заливка ячеек в колонке
Кол-во ячеек в колонке может быть любым.
Как сделать выборку от заданной до последней ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2006, 17:56:17
    #34084797
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заливка ячеек в колонке
MrPavlikХотелось бы все таки макрос.Если операция будет производиться от раза к разу, то еще куда ни шло, но если хочешь привязывать код к какому-либо +/- регулярному событию, то имей ввиду, что в отличие от Условного форматирования при использовании кода потеряется возможность отмены/возврата к предыдущим изменениям на листе, а также возможность копировать ячейки.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Test1()
    On Error Resume Next
    With ActiveSheet
        With Intersect(.[A:A], .UsedRange).FormatConditions
            .Delete
            .Add Type:=xlExpression, Formula1:="=AND(RC<>"""",RC<=TODAY())"
            .Item( 1 ).Interior.ColorIndex =  3 
        End With
    End With
End Sub

или

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
Sub test2()
    Dim c As Range, x As Date
    x = Date 'или x = Now
    With ActiveSheet
        For Each c In Intersect(.[A:A], .UsedRange)
            If c <= x Then c.Interior.ColorIndex =  3  Else c.Interior.ColorIndex =  0 
        Next c
    End With
End Sub

Также имей ввиду, что, в обоих случаях, если в ячейке не дата, а дата со временем (если при форматировании ячейки как General, число имеет десятичные разряды), то нужно будет округлять (например до 8 десятичных разрядов, т.е. до миллисекунд), чтобы избежать ошибки связанной с явлением описанным здесь: http://support.microsoft.com/default.aspx/kb/78113/en-us (не знаю русского термина).

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2006, 17:59:21
    #34084818
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заливка ячеек в колонке
Первый код лучше даже так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub Test1()
    On Error Resume Next
    With ActiveSheet
        .[A:A].FormatConditions.Delete
        With Intersect(.[A:A], .UsedRange).FormatConditions
            .Add Type:=xlExpression, Formula1:="=AND(RC<>"""",RC<=TODAY())"
            .Item( 1 ).Interior.ColorIndex =  3 
        End With
    End With
End Sub

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
26.10.2006, 18:33:54
    #34084949
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заливка ячеек в колонке
MrPavlikКол-во ячеек в колонке может быть любым.
Как сделать выборку от заданной до последней ?

Например так, как это сделано в моих предыдущих примерах, или так:

Dim rng As Range
With ActiveSheet
Set rng=.Range(.[A2],.[A65536].End(xlUp))
End With

Разница в том, что в первом случае включаются не только непустые ячейки, но и пустые с форматированием, а во втором только непустые ячейки.

Есть еще несколько способов, включая использование метода Find или SpecialCells(xlCellTypeLastCell)

Использование UsedRange и SpecialCells(xlCellTypeLastCell) сопряжено с риском налететь на след. баг:
http://support.microsoft.com/kb/q232094/
http://support.microsoft.com/kb/231007
http://www.contextures.com/xlfaqApp.html#Unused
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2007, 16:09:14
    #34650805
srxp1154
srxp1154
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заливка ячеек в колонке
Здравствуйте, Уважаемые.
Не хотел создавать новую тему, эта наиболее всего мне подходит.
Суть та же - в таблице колонка с датами. Если дата в ячейке меньше или равна сегодняшней - заливка красным. Тут меня вполне устраивает Условное форматирование. Но мне надо чтобы если в соседней ячейке поставить букву F (Fixed), то заливка снимается. Нутром понимаю надо использовать двойное условие, но не получается.
Надеюсь поможете.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2007, 16:34:32
    #34650906
Deggasad
Deggasad
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заливка ячеек в колонке
Формат - условное форматирование - формула
=И(A1<=СЕГОДНЯ();B1<>"F")
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2007, 16:44:02
    #34650933
KL (XL)
KL (XL)
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заливка ячеек в колонке
DeggasadФормат - условное форматирование - формула
=И(A1<=СЕГОДНЯ();B1<>"F")

или так:

=(A1<=СЕГОДНЯ())*(B1<>"F")

KL
[MVP - Microsoft Excel]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
10.07.2007, 16:47:47
    #34650947
srxp1154
srxp1154
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заливка ячеек в колонке
Спасибо! До столь простого решения я не додумался.
Пытался использовать фукцию If и AND NOT.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Заливка ячеек в колонке / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 335ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2182631]:
 0ms
get settings:
 8ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 51ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 45ms
get tp. blocked users:
 2ms
others: 197ms
total:  335ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]