Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Сравнение значения ячейки и закраска в такой же цвет - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Сравнение значения ячейки и закраска в такой же цвет
adrenalworld Дата: Среда, 10.05.2023, 10:36 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

2013
Здравствуйте!
Помогите, пожалуйста, с решением задачи. Есть ячейки, например, B6, B9, B12 на листе "тайминг", значение которых должно сравниваться с значением ячеек в массиве A2:A43 на листе "карты". Когда найдено совпадение, то ячейка B6 должна закрашиваться в такой же цвет, в который окрашена ячейка из массива.
Каким образом это можно реализовать?
К сообщению приложен файл: gonka.xlsm (438.1 Kb)
 
Ответить
СообщениеЗдравствуйте!
Помогите, пожалуйста, с решением задачи. Есть ячейки, например, B6, B9, B12 на листе "тайминг", значение которых должно сравниваться с значением ячеек в массиве A2:A43 на листе "карты". Когда найдено совпадение, то ячейка B6 должна закрашиваться в такой же цвет, в который окрашена ячейка из массива.
Каким образом это можно реализовать?

Автор - adrenalworld
Дата добавления - 10.05.2023 в 10:36
Serge_007 Дата: Среда, 10.05.2023, 13:03 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Здравствуйте

Если убрать непонятно зачем примененное УФ в ячейках f2:f5, то можно простым макросом закрашивать:
[vba]
Код
Sub adrenalworld()
Dim rR As Range
    For Each rR In Range("b2:b43")
       Cells(Application.WorksheetFunction.Match(rR, Range("f1:f5"), 0), 6).Copy: rR.PasteSpecial (-4122)
    Next rR
End Sub
[/vba]
К сообщению приложен файл: 20230510_adrenalworld.xls (484.5 Kb)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

Если убрать непонятно зачем примененное УФ в ячейках f2:f5, то можно простым макросом закрашивать:
[vba]
Код
Sub adrenalworld()
Dim rR As Range
    For Each rR In Range("b2:b43")
       Cells(Application.WorksheetFunction.Match(rR, Range("f1:f5"), 0), 6).Copy: rR.PasteSpecial (-4122)
    Next rR
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 10.05.2023 в 13:03
adrenalworld Дата: Среда, 10.05.2023, 17:14 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

2013
Благодарю. Макрос работает. Однако не так, как необходимо.
Закрашивать необходимо на листе "тайминг" ячейки, например, B6, B9, B12(ячейки будут постоянно добавляться) - это номера машин, на которых едут пилоты в текущий отрезок времени. Сравнивать эти ячейки необходимо с ячейками A2:A43 на листе "карты" и закрашивать в такой же цвет.
Макрос закрашивает ячейки на одном листе, которые закрашиваются УФ.
УФ в ячейках f2:f5 необходимо, чтобы после 30-40 часов бодрствования во время гонки было проще ориентироваться по цветам, и выглядит это красивее)
Может как-то можно сравнить массивы на разных листах и закрасить одинаковые значения цветами из массива A2:A43?
 
Ответить
СообщениеБлагодарю. Макрос работает. Однако не так, как необходимо.
Закрашивать необходимо на листе "тайминг" ячейки, например, B6, B9, B12(ячейки будут постоянно добавляться) - это номера машин, на которых едут пилоты в текущий отрезок времени. Сравнивать эти ячейки необходимо с ячейками A2:A43 на листе "карты" и закрашивать в такой же цвет.
Макрос закрашивает ячейки на одном листе, которые закрашиваются УФ.
УФ в ячейках f2:f5 необходимо, чтобы после 30-40 часов бодрствования во время гонки было проще ориентироваться по цветам, и выглядит это красивее)
Может как-то можно сравнить массивы на разных листах и закрасить одинаковые значения цветами из массива A2:A43?

Автор - adrenalworld
Дата добавления - 10.05.2023 в 17:14
Serge_007 Дата: Среда, 10.05.2023, 18:02 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Криво прочитал задачу :)

Так можно: [vba]
Код
Sub adrenalworld_2()
Dim rR As Range, Val1, Val2
    For Each rR In Range("b6:b95")
        If rR.Offset(0, -1) <> "" And rR <> 0 Then
           Sheets("Карты").Cells(Application.WorksheetFunction.Match _
           (Application.WorksheetFunction.VLookup _
           (rR, Sheets("Карты").Range("a2:b43"), 2, 0), _
           Sheets("Карты").Range("f1:f5"), 0), 6) _
           .Copy: rR.PasteSpecial (-4122)
        End If
    Next rR
End Sub
[/vba]
К сообщению приложен файл: 20230510_adrenalworld_2.xls (490.0 Kb)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеКриво прочитал задачу :)

Так можно: [vba]
Код
Sub adrenalworld_2()
Dim rR As Range, Val1, Val2
    For Each rR In Range("b6:b95")
        If rR.Offset(0, -1) <> "" And rR <> 0 Then
           Sheets("Карты").Cells(Application.WorksheetFunction.Match _
           (Application.WorksheetFunction.VLookup _
           (rR, Sheets("Карты").Range("a2:b43"), 2, 0), _
           Sheets("Карты").Range("f1:f5"), 0), 6) _
           .Copy: rR.PasteSpecial (-4122)
        End If
    Next rR
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 10.05.2023 в 18:02
adrenalworld Дата: Среда, 10.05.2023, 18:26 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

2013
Работает, спасибо) А через УФ это реально сделать?Чтобы кнопку не нажимать.
Хотя, возможно, я смогу вставить в тик таймера, и макрос будет сам каждый раз выполняться.


Сообщение отредактировал adrenalworld - Среда, 10.05.2023, 18:30
 
Ответить
СообщениеРаботает, спасибо) А через УФ это реально сделать?Чтобы кнопку не нажимать.
Хотя, возможно, я смогу вставить в тик таймера, и макрос будет сам каждый раз выполняться.

Автор - adrenalworld
Дата добавления - 10.05.2023 в 18:26
Serge_007 Дата: Среда, 10.05.2023, 18:35 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
через УФ это реально сделать?
Что "это"?


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
через УФ это реально сделать?
Что "это"?

Автор - Serge_007
Дата добавления - 10.05.2023 в 18:35
adrenalworld Дата: Среда, 10.05.2023, 18:42 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

2013
Это условное форматирование)
 
Ответить
СообщениеЭто условное форматирование)

Автор - adrenalworld
Дата добавления - 10.05.2023 в 18:42
adrenalworld Дата: Среда, 10.05.2023, 21:13 | Сообщение № 8
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 20% ±

2013
Ураааа!
Нашел функцию и получилось разобраться.
Код
=И(СУММПРОИЗВ(--($B$6=Карты!$A$2:$A$41));СМЕЩ(Карты!$A$2;;1)=Карты!$F$3)

Теперь работает и все красиво!
Спасибо, что откликнулись.


Сообщение отредактировал Serge_007 - Четверг, 11.05.2023, 09:50
 
Ответить
СообщениеУраааа!
Нашел функцию и получилось разобраться.
Код
=И(СУММПРОИЗВ(--($B$6=Карты!$A$2:$A$41));СМЕЩ(Карты!$A$2;;1)=Карты!$F$3)

Теперь работает и все красиво!
Спасибо, что откликнулись.

Автор - adrenalworld
Дата добавления - 10.05.2023 в 21:13
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!