Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Залить ячейку цветом в зависимости от значения / 16 сообщений из 16, страница 1 из 1
06.07.2010, 21:32
    #36726677
wsnet
wsnet
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
Всем привет, подскажите как залить ячейку красным цветом к примеру, в случаи если ячейка пустая и не заливать если она содержит значение
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2010, 22:01
    #36726714
ua3
ua3
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
wsnet ,
Здравствуйте .
Это все ечень легко делается при помощи УСЛОВНОГО ФОРМАТИРОВАНИЯ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.07.2010, 22:24
    #36726735
ua3
ua3
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
wsnet ,
Здравствуйте .
Это все ечень легко делается при помощи УСЛОВНОГО ФОРМАТИРОВАНИЯ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2010, 15:26
    #36732877
qwertEHOK
qwertEHOK
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
интересный вопрос
хотелось бы именно с помощью скриптика
так как проверок будет много

на примере же все закрашивается одним цветом
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2010, 17:20
    #36733199
ua3
ua3
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
qwertEHOK ...проверок будет много
понятие "много" измеряется в десятках или 10^ ?
qwertEHOK
на примере же все закрашивается одним цветом
Один цвет был введен по условию
на этом примере картинка 3-цветная
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2010, 19:07
    #36733446
qwertEHOK
qwertEHOK
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
это не выход
нужно в зависимости от значения в определенной ячейке закрасить эту ячейку
в дельфе я делаю case и все

если кто то подскажет, буду благодарен
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2010, 22:48
    #36733611
ua3
ua3
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
qwertEHOKнужно в зависимости от значения в определенной ячейке закрасить эту ячейку
Если вместо массива УФ задать ТОЛЬКО одной ячейке - тогда только эта ячейка будет выполнять условия УФ
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.07.2010, 23:03
    #36733622
zchvv
zchvv
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
sub ЗакраситьЯчейку()
dim r as range
dim c as range
set r=Thisworkbook.Worksheets("list").Range("A1").CurrentRegion
  for each c in r.cells
    if c.value=Empty then c.interior.Color=RGB( 255 , 0 , 0 )
  next
End sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2010, 10:44
    #36735282
-O_o-
-O_o-
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
zchvv,
Привет всем. А подскажите еще по такому вопросу... Если есть Столбец со значениями... Значения числовые. Как сделать так что бы одинаковые значения заливались одинаковым цветом ???
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2010, 11:01
    #36735320
qwertEHOK
qwertEHOK
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
2 zchw
говорит ошибка в этой строке
авторSet r = ThisWorkbook.Worksheets("list").Range("A1").CurrentRegion

ЗЫ а нельзя сделать что то такое?
авторcase A1 do
"1": A1:=RGB[xxx]
"2": A1:=RGB[xxx]
"3": A1:=RGB[xxx]
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2010, 11:04
    #36735333
qwertEHOK
qwertEHOK
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
да, ошибка
Run-time error '9':
Subscript out of range
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2010, 13:12
    #36735648
Бомбизд
Бомбизд
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
ЗЫ а нельзя сделать что то такое?
авторcase A1 do
"1": A1:=RGB[xxx]
"2": A1:=RGB[xxx]
"3": A1:=RGB[xxx][/quot]
вот так?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    Select Case Cells( 1 ,  1 ).Value
        Case  1 
            Cells( 1 ,  1 ).Interior.Color = RGB( 255 ,  255 ,  0 )
        Case  2 ,  3 
            Cells( 1 ,  1 ).Interior.Color = RGB( 0 ,  0 ,  0 )
        Case  4  To  6 
            Cells( 1 ,  1 ).Interior.Color = RGB( 0 ,  255 ,  150 )
        Case Is >  8 
            Cells( 1 ,  1 ).Interior.Color = RGB( 0 ,  0 ,  200 )
        Case Else
            Cells( 1 ,  1 ).Interior.Color = RGB( 255 ,  255 ,  255 )
    End Select
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2010, 13:35
    #36735699
qwertEHOK
qwertEHOK
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
БомбиздЗЫ а нельзя сделать что то такое?
авторcase A1 do
"1": A1:=RGB[xxx]
"2": A1:=RGB[xxx]
"3": A1:=RGB[xxx]
вот так?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
    Select Case Cells( 1 ,  1 ).Value
        Case  1 
            Cells( 1 ,  1 ).Interior.Color = RGB( 255 ,  255 ,  0 )
        Case  2 ,  3 
            Cells( 1 ,  1 ).Interior.Color = RGB( 0 ,  0 ,  0 )
        Case  4  To  6 
            Cells( 1 ,  1 ).Interior.Color = RGB( 0 ,  255 ,  150 )
        Case Is >  8 
            Cells( 1 ,  1 ).Interior.Color = RGB( 0 ,  0 ,  200 )
        Case Else
            Cells( 1 ,  1 ).Interior.Color = RGB( 255 ,  255 ,  255 )
    End Select
[/quot]

да да да
а если надо несколько значений проверять?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    Select Case Cells( 1 ,  1 ).Value
        Case  10000 
            Cells( 1 ,  1 ).Interior.Color = RGB( 255 ,  255 ,  0 )
            Cells( 1 ,  2 ).Interior.Color = RGB( 255 ,  255 ,  0 )
            Cells( 1 ,  3 ).Interior.Color = RGB( 255 ,  255 ,  0 )
            Cells( 1 ,  4 ).Interior.Color = RGB( 255 ,  255 ,  0 )
       Case Else
            Cells( 1 ,  1 ).Interior.Color = RGB( 255 ,  255 ,  255 )
    End Select
[/quot]

ставить ; после каждой строки?
и что такое "Case Is > 8" ?? с чем оно сравнивает?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2010, 14:24
    #36735823
Бомбизд
Бомбизд
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
qwertEHOK
ставить ; после каждой строки?
и что такое "Case Is > 8" ?? с чем оно сравнивает?
; не надо
"Case Is > 8" - если значение >8
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
12.07.2010, 14:53
    #36735921
qwertEHOK
qwertEHOK
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
подскажите еще, пожалуйста, как сделать проверку выделенной ячейки
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2010, 09:06
    #36737296
Бомбизд
Бомбизд
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Залить ячейку цветом в зависимости от значения
qwertEHOKподскажите еще, пожалуйста, как сделать проверку выделенной ячейки
Select Case ActiveCell.Value ...
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Залить ячейку цветом в зависимости от значения / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 657ms
Закрыть
start [/forum/topic.php?fid=61&tablet=1&tid=2177889]:
 0ms
get settings:
 9ms
get forum list:
 21ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 298ms
get topic data:
 14ms
get forum data:
 3ms
get page messages:
 71ms
get tp. blocked users:
 2ms
others: 231ms
total:  657ms
x
x
Закрыть


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