Сравнение значения ячейки и закраска в такой же цвет

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сравнение значения ячейки и закраска в такой же цвет (Формулы/Formulas)

adrenalworld

Дата: Среда, 10.05.2023, 10:36 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

2013

Здравствуйте!
Помогите, пожалуйста, с решением задачи. Есть ячейки, например, B6, B9, B12 на листе "тайминг", значение которых должно сравниваться с значением ячеек в массиве A2:A43 на листе "карты". Когда найдено совпадение, то ячейка B6 должна закрашиваться в такой же цвет, в который окрашена ячейка из массива.
Каким образом это можно реализовать?

К сообщению приложен файл: gonka.xlsm (438.1 Kb)

Ответить

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

Ответить

adrenalworld

Дата: Среда, 10.05.2023, 17:14 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

2013

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

Ответить

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

Ответить

adrenalworld

Дата: Среда, 10.05.2023, 18:26 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

Репутация: 0 ±

Замечаний: 20% ±

2013

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

Сообщение отредактировал adrenalworld - Среда, 10.05.2023, 18:30