Форум программистов, компьютерный форум, киберфорум
MS Office Excel
Войти
Регистрация
Восстановить пароль
 
0 / 0 / 0
Регистрация: 09.03.2020
Сообщений: 6
1

Выделение строки определенным цветом по наличию данных в одной из двух ячеек строки

09.03.2020, 19:25. Просмотров 222. Ответов 8
Метки нет (Все метки)

Доброго времени суток , помогите с кодом пожалуйста: нужно чтобы строка выделялась определенным цветом при наличии данных в одной из ячеек строки "Например при заполнении ячейки "дата прибытия" строка закрашивается желтым и наоборот при заполнении ячейки с "датой убытия" строка закрашивается в зеленый цвет
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.03.2020, 19:25
Ответы с готовыми решениями:

Запись в файл строки с определенным цветом
Как записать в файл строку с определенным цветом?

Выделение строки цветом
Доброго времени суток, у меня есть таблица с заказами и есть поле "Статус" (Выполнен или не...

Выделение строки в RichEdit с определенным словом
Помогите плиз читал много примеров по выделению определённого слова в RichEdit, а как выделить...

Перенос двух ячеек из одной строки таблицы, в одну ячейку другой таблицы.
Я объясню по кароче. Если чек бокс = true то две ячеки надо занести и объединить в одну в другой...

8
1069 / 755 / 377
Регистрация: 23.03.2015
Сообщений: 2,571
09.03.2020, 21:09 2
Ден124,
файл с примером прикрепите
0
0 / 0 / 0
Регистрация: 09.03.2020
Сообщений: 6
09.03.2020, 21:22  [ТС] 3
пример в условном форматировании
0
Вложения
Тип файла: 7z Лист Microsoft Excel (4).7z (15.7 Кб, 3 просмотров)
1069 / 755 / 377
Регистрация: 23.03.2015
Сообщений: 2,571
09.03.2020, 21:48 4
Ден124,

Попробуйте так:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Application.Intersect(Range("D:D,E:E"), Target) Is Nothing Then
        Application.EnableEvents = False
        
        If Target.Column = 4 Then
            Cells(Target.Row, 5).ClearContents
            
            Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Interior.Color = vbYellow
        Else
            Cells(Target.Row, 4).ClearContents
            Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Interior.Color = vbGreen
        End If
        
        Application.EnableEvents = True
    End If
End Sub
1
0 / 0 / 0
Регистрация: 09.03.2020
Сообщений: 6
09.03.2020, 21:56  [ТС] 5
от души огромное спасибо !!!!!
0
1069 / 755 / 377
Регистрация: 23.03.2015
Сообщений: 2,571
09.03.2020, 22:00 6
Ден124,
Велкоме…..
0
0 / 0 / 0
Регистрация: 09.03.2020
Сообщений: 6
09.03.2020, 22:41  [ТС] 7
Извините еще вопрос , какой командой в коде удалять заливку если данные в ячейках с датами не заполнены
0
1069 / 755 / 377
Регистрация: 23.03.2015
Сообщений: 2,571
10.03.2020, 15:03 8
Цитата Сообщение от Ден124 Посмотреть сообщение
какой командой в коде удалять заливку если данные в ячейках с датами не заполнены
Кликните здесь для просмотра всего текста

Visual Basic
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
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    
    If Not Application.Intersect(Range("D:D,E:E"), Target) Is Nothing Then
        Application.EnableEvents = False
        
        If Target.Column = 4 Then
            Cells(Target.Row, 5).ClearContents
                If Cells(Target.Row, 4).Value = 0 Then
                  Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Interior.Color = xlNone
                Else
                  Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Interior.Color = vbYellow
                End If
 
        Else
            Cells(Target.Row, 4).ClearContents
                If Cells(Target.Row, 5).Value = 0 Then
                  Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Interior.Color = xlNone
                Else
                  Range(Cells(Target.Row, 2), Cells(Target.Row, 5)).Interior.Color = vbGreen
                End If
            
            
        End If
        
        Application.EnableEvents = True
    End If
End Sub

1
0 / 0 / 0
Регистрация: 09.03.2020
Сообщений: 6
10.03.2020, 15:51  [ТС] 9
Еще раз от души
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.03.2020, 15:51

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Перенос двух ячеек из одной строки таблицы, в одну ячейку другой таблицы.
Можно ли каким-то образом перенести так как показано на рисунках. Нужно при нажатии на клавишу,...

Выделение цветом строки в DataGrid
Здравствуйте. Написал приложение в стиле MVVM. Есть DataGrid, хотелось бы узнать, как выделять...

Выделение строки цветом в Memo1
Выделение строки цветом в Memo1. Как сделать первую строку, к примеру синий?

Выделение строки цветом в листбоксе
как сделать такое


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.