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

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

если кто то подскажет, буду благодарен
...
Рейтинг: 0 / 0
09.07.2010, 19:07
| Ответить | Цитировать | Написать  
Залить ячейку цветом в зависимости от значения
    #36733611
ua3
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ua3
Гость
qwertEHOKнужно в зависимости от значения в определенной ячейке закрасить эту ячейку
Если вместо массива УФ задать ТОЛЬКО одной ячейке - тогда только эта ячейка будет выполнять условия УФ
...
Рейтинг: 0 / 0
09.07.2010, 22:48
| Ответить | Цитировать | Написать  
Залить ячейку цветом в зависимости от значения
    #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
09.07.2010, 23:03
| Ответить | Цитировать | Написать  
Залить ячейку цветом в зависимости от значения
    #36735282
Фотография -O_o-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-O_o-
Участник
zchvv,
Привет всем. А подскажите еще по такому вопросу... Если есть Столбец со значениями... Значения числовые. Как сделать так что бы одинаковые значения заливались одинаковым цветом ???
...
Рейтинг: 0 / 0
12.07.2010, 10:44
| Ответить | Цитировать | Написать  
Залить ячейку цветом в зависимости от значения
    #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:01
| Ответить | Цитировать | Написать  
Залить ячейку цветом в зависимости от значения
    #36735333
qwertEHOK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwertEHOK
Гость
да, ошибка
Run-time error '9':
Subscript out of range
...
Рейтинг: 0 / 0
12.07.2010, 11:04
| Ответить | Цитировать | Написать  
Залить ячейку цветом в зависимости от значения
    #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:12
| Ответить | Цитировать | Написать  
Залить ячейку цветом в зависимости от значения
    #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, 13:35
| Ответить | Цитировать | Написать  
Залить ячейку цветом в зависимости от значения
    #36735823
Бомбизд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бомбизд
Участник
qwertEHOK
ставить ; после каждой строки?
и что такое "Case Is > 8" ?? с чем оно сравнивает?
; не надо
"Case Is > 8" - если значение >8
...
Рейтинг: 0 / 0
12.07.2010, 14:24
| Ответить | Цитировать | Написать  
Залить ячейку цветом в зависимости от значения
    #36735921
qwertEHOK
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qwertEHOK
Гость
подскажите еще, пожалуйста, как сделать проверку выделенной ячейки
...
Рейтинг: 0 / 0
12.07.2010, 14:53
| Ответить | Цитировать | Написать  
Залить ячейку цветом в зависимости от значения
    #36737296
Бомбизд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Бомбизд
Участник
qwertEHOKподскажите еще, пожалуйста, как сделать проверку выделенной ячейки
Select Case ActiveCell.Value ...
...
Рейтинг: 0 / 0
13.07.2010, 09:06
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Залить ячейку цветом в зависимости от значения
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36733199&tid=2177889]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 60ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 72ms
get tp. blocked users:
 2ms
others: 248ms
total:  433ms
созд. / загр.: 433ms
x
x
Закрыть


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