Дата публикации: 12-10-2026 12:37:29

Заливка цветов с помощью макроса в форуме Вопросы по Microsoft Excel.
Добрый день всем!Прошу помочь с написанием кода.Я перепробовал множество вариантов, но не получается ничего. дело в том, что при условии IFU с помощью Target закрашиваtтся только одна строка при нажатии в столбце I, а если поменяю код, то серая заливка исчезает, а зеленая заливается все.Вот код, которое нужно изменить.Направляю файл. Буду благодарен
====code====
    Dim r As Long
   r = Target.Row
    Application.EnableEvents = False
If Target.Cells.CountLarge > 1 Then Exit Sub
        If Target.Value = "IFU" Then
            With ws.Range("A" & r & ":AD" & r).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0.599993896298105
            End With
            ws.Cells(r, "AB").Value = "Äëÿ èíôîðìàöèè"
        Else
            ws.Range("A" & r & ":AD" & r).Interior.ColorIndex = xlNone
            ws.Cells(r, "AB").ClearContents
        End If
=============
Проба.xlsm12.10.2026 15:37:29, romlel.

Основное содержимое страницы с новостью.

    Dim r As Long
   r = Target.Row
    Application.EnableEvents = False
If Target.Cells.CountLarge > 1 Then Exit Sub
        If Target.Value = "IFU" Then
            With ws.Range("A" & r & ":AD" & r).Interior
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorAccent6
            .TintAndShade = 0.599993896298105
            End With
            ws.Cells(r, "AB").Value = "Äëÿ èíôîðìàöèè"
        Else
            ws.Range("A" & r & ":AD" & r).Interior.ColorIndex = xlNone
            ws.Cells(r, "AB").ClearContents
        End If

Схожие новости