Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Окрашивание ячейки / 15 сообщений из 15, страница 1 из 1
23.06.2010, 15:10
    #36703576
hum_i
hum_i
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
Добрый день!

Подскажите пожалуйста, как можно закрасить ячейку в зависимости от определенного условия?
Код: plaintext
If Cells(j,  5 ).Value = "4" Then
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2010, 15:30
    #36703624
Бомбизд
Бомбизд
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
Код: plaintext
Cells(j,  5 ).Interior.ColorIndex = 4
ColorIndex = Ф1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.06.2010, 20:36
    #36704330
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
hum_i,
условное форматирование
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2010, 09:39
    #36704947
hum_i
hum_i
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
Что то не закрашивается

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
If Cells(j,  5 ).Value = "4" Then

Sql = " select"
Sql = Sql & " count(distinct(sh.subs_subs_id))"
Sql = Sql & " from serv_histories sh"
Sql = Sql & " where sh.srls_srls_id = '" + Cells(j,  2 ).Text + "'"
Sql = Sql & " and sh.srst_srst_id = 4"
Sql = Sql & " and sh.start_date >= to_date('" & dt & "', 'dd.mm.yyyy')"
Sql = Sql & " and sh.start_date < to_date('" & dt & "', 'dd.mm.yyyy')+1"
Sql = Sql & " and not exists (select s.subs_subs_id from bis.subs_histories s"
Sql = Sql & " where s.subs_subs_id = sh.subs_subs_id"
Sql = Sql & " and s.rtpl_rtpl_id in (4,38,75,79,14,35,58,39,101)"
Sql = Sql & " and sh.start_date between s.start_date and s.end_date)"

rs.Open Sql, con
Sheets("Пакеты и ТО").Select

Cells(j, i).Value = ""
Cells(j, i).CopyFromRecordset rs
Cells(j, i).Interior.ColorIndex =  4 

If Cells(j, i).Value = "" Then Cells(j, i).Value = "0"

End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2010, 09:40
    #36704949
hum_i
hum_i
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
Может я не в том месте поставила
Код: plaintext
Cells(j, i).Interior.ColorIndex =  4
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2010, 10:09
    #36705017
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
hum_i,

так у вас и закрывающего end if нет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2010, 11:35
    #36705297
hum_i
hum_i
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
Как же нет
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
If Cells(j,  5 ).Value = "4" Then

Sql = " select"
Sql = Sql & " count(distinct(sh.subs_subs_id))"
Sql = Sql & " from serv_histories sh"
Sql = Sql & " where sh.srls_srls_id = '" + Cells(j,  2 ).Text + "'"
Sql = Sql & " and sh.srst_srst_id = 4"
Sql = Sql & " and sh.start_date >= to_date('" & dt & "', 'dd.mm.yyyy')"
Sql = Sql & " and sh.start_date < to_date('" & dt & "', 'dd.mm.yyyy')+1"
Sql = Sql & " and not exists (select s.subs_subs_id from bis.subs_histories s"
Sql = Sql & " where s.subs_subs_id = sh.subs_subs_id"
Sql = Sql & " and s.rtpl_rtpl_id in (4,38,75,79,14,35,58,39,101)"
Sql = Sql & " and sh.start_date between s.start_date and s.end_date)"

rs.Open Sql, con
Sheets("Пакеты и ТО").Select

Cells(j, i).Value = ""
Cells(j, i).CopyFromRecordset rs
Cells(j, i).Interior.ColorIndex =  4 

If Cells(j, i).Value = "" Then Cells(j, i).Value = "0"

End If--Этот и есть закрывающий
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2010, 14:30
    #36705996
Бомбизд
Бомбизд
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
If Cells(j,  5 ).Value = "4" Then  '<--------- это первый if

Sql = " select"
Sql = Sql & " count(distinct(sh.subs_subs_id))"
Sql = Sql & " from serv_histories sh"
Sql = Sql & " where sh.srls_srls_id = '" + Cells(j,  2 ).Text + "'"
Sql = Sql & " and sh.srst_srst_id = 4"
Sql = Sql & " and sh.start_date >= to_date('" & dt & "', 'dd.mm.yyyy')"
Sql = Sql & " and sh.start_date < to_date('" & dt & "', 'dd.mm.yyyy')+1"
Sql = Sql & " and not exists (select s.subs_subs_id from bis.subs_histories s"
Sql = Sql & " where s.subs_subs_id = sh.subs_subs_id"
Sql = Sql & " and s.rtpl_rtpl_id in (4,38,75,79,14,35,58,39,101)"
Sql = Sql & " and sh.start_date between s.start_date and s.end_date)"

rs.Open Sql, con
Sheets("Пакеты и ТО").Select

Cells(j, i).Value = ""
Cells(j, i).CopyFromRecordset rs
Cells(j, i).Interior.ColorIndex =  4 


If Cells(j, i).Value = "" Then Cells(j, i).Value = "0" '<-------второй if

End If--Этот и есть закрывающий  '<-------- второй end if

End if '<----------- первый end if может быть здесь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2010, 15:18
    #36706141
hum_i
hum_i
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
Чтобы было нагляднее видно высылаю более подробный код. Который работает с теми End if, которые в нем есть
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
If Cells(j,  1 ).Value = "1" Then
    '-----Подключены-----
    If Cells(j,  5 ).Value = "4" Then
    
Cells(j, i).Select
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color =  255 
        .TintAndShade =  0 
        .PatternTintAndShade =  0 
    End With

Sql = " select"
Sql = Sql & " count(distinct(sh.subs_subs_id))"
Sql = Sql & " from serv_histories sh"
Sql = Sql & " where sh.srls_srls_id = '" + Cells(j,  2 ).Text + "'"
Sql = Sql & " and sh.srst_srst_id = 4"
Sql = Sql & " and sh.start_date >= to_date('" & dt & "', 'dd.mm.yyyy')"
Sql = Sql & " and sh.start_date < to_date('" & dt & "', 'dd.mm.yyyy')+1"
Sql = Sql & " and not exists (select s.subs_subs_id from bis.subs_histories s"
Sql = Sql & " where s.subs_subs_id = sh.subs_subs_id"
Sql = Sql & " and s.rtpl_rtpl_id in (4,38,75,79,14,35,58,39,101)"
Sql = Sql & " and sh.start_date between s.start_date and s.end_date)"

rs.Open Sql, con
Sheets("Пакеты и ТО").Select

Cells(j, i).Value = ""
Cells(j, i).CopyFromRecordset rs
Cells(j, i).Interior.ColorIndex =  4 

If Cells(j, i).Value = "" Then Cells(j, i).Value = "0" '---Здесь не требуется

Cells(j, i).Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade =  0 
        .PatternTintAndShade =  0 
    End With
    
    End If
    
    '-----Отключены-----
    If Cells(j,  5 ).Value = "6" Then

Cells(j, i).Select
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color =  255 
        .TintAndShade =  0 
        .PatternTintAndShade =  0 
    End With

Sql = " select"
Sql = Sql & " count(distinct(sh.subs_subs_id))"
Sql = Sql & " from serv_histories sh"
Sql = Sql & " where sh.srls_srls_id = '" + Cells(j,  2 ).Text + "'"
Sql = Sql & " and sh.srst_srst_id = 6"
Sql = Sql & " and sh.start_date >= to_date('" & dt & "', 'dd.mm.yyyy')"
Sql = Sql & " and sh.start_date < to_date('" & dt & "', 'dd.mm.yyyy')+1"
Sql = Sql & " and not exists (select s.subs_subs_id from bis.subs_histories s"
Sql = Sql & " where s.subs_subs_id = sh.subs_subs_id"
Sql = Sql & " and s.rtpl_rtpl_id in (4,38,75,79,14,35,58,39,101)"
Sql = Sql & " and sh.start_date between s.start_date and s.end_date)"

rs.Open Sql, con
Sheets("Пакеты и ТО").Select

Cells(j, i).Value = ""
Cells(j, i).CopyFromRecordset rs

If Cells(j, i).Value = "" Then Cells(j, i).Value = "0"

Cells(j, i).Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade =  0 
        .PatternTintAndShade =  0 
    End With
    
    End If
    
End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2010, 16:06
    #36706296
Бомбизд
Бомбизд
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
так вот это хоть работает?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Cells(j, i).Select
With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color =  255   'это закрашивает ячейку
      '.colorindex=6 'или так
      '.color= RGB(255,0,0) ' или так?
        .TintAndShade =  0 
        .PatternTintAndShade =  0 
    End With
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
24.06.2010, 16:22
    #36706338
hum_i
hum_i
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
Это работает. Этот работает так, при запуске перед заполнением ячейка окрашивается в красный цвет и так до конца пока не заполнит все ячейки.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2010, 09:01
    #36707338
Бомбизд
Бомбизд
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
Попробуй так
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Cells(j, i).Value = ""
Cells(j, i).CopyFromRecordset rs

If Cells(j, i).Value = "" Then Cells(j, i).Value = "0" '---Здесь не требуется
Cells(j, i).Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade =  0 
        .PatternTintAndShade =  0 
    End With
    Cells(j, i).Interior.ColorIndex =  4  ' <----------это поместить перед end if
    End If
или выполни пошагово
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2010, 10:26
    #36707524
hum_i
hum_i
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
Сейчас заработало спасибо. Но вот такой еще вопрос а применение RGB оттенков возможно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2010, 10:57
    #36707586
hum_i
hum_i
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
Сама разобралась Cells(j, i).Interior.Color = RGB(......) . Спасибо за помощь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.06.2010, 11:31
    #36707681
Бомбизд
Бомбизд
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Окрашивание ячейки
[offtop]hum_iСпасибо за помощь
дзинь! 0.20 юнидоллара за использование популярной фразы :)
[/offtop]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Окрашивание ячейки / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 527ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2177945]:
 0ms
get settings:
 8ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 199ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 65ms
get tp. blocked users:
 2ms
others: 213ms
total:  527ms
x
x
Закрыть


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