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

Вход

Регистрация

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

 

= Мир MS Excel/Изменение цвета названия листа от даты - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменение цвета названия листа от даты (Формулы/Formulas)
Изменение цвета названия листа от даты
DrMini Дата: Вторник, 22.03.2022, 05:50 | Сообщение № 1
Группа: Проверенные
Ранг: Старожил
Сообщений: 1641
Репутация: 207 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Доброго времени суток форумчане и гости форума.
В таблице есть ячейки (A4:C4) в которых через УФ подкрашивается событие относительно текущей даты. Листов много. Существует ли возможность выделить цветом название листа если в этих ячейках произошло окрашивание любой ячейки (A4:C4) в красный цвет и на этот лист нужно обратить внимание?
К сообщению приложен файл: 220322_0.xlsx (11.1 Kb)


Сообщение отредактировал DrMini - Вторник, 22.03.2022, 05:50
 
Ответить
СообщениеДоброго времени суток форумчане и гости форума.
В таблице есть ячейки (A4:C4) в которых через УФ подкрашивается событие относительно текущей даты. Листов много. Существует ли возможность выделить цветом название листа если в этих ячейках произошло окрашивание любой ячейки (A4:C4) в красный цвет и на этот лист нужно обратить внимание?
Автор - DrMini
Дата добавления - 22.03.2022 в 05:50
Nic70y Дата: Вторник, 22.03.2022, 08:17 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    For u = 1 To Sheets.Count
        v_1 = Sheets(u).Range("a4").DisplayFormat.Interior.Color
        v_2 = Sheets(u).Range("b4").DisplayFormat.Interior.Color
        v_3 = Sheets(u).Range("c4").DisplayFormat.Interior.Color
        If v_1 = 255 Or v_2 = 255 Or v_3 = 255 Then
            Sheets(u).Tab.Color = 255
        Else
            Sheets(u).Tab.Color = 16777215
        End If
    Next
    Application.ScreenUpdating = False
End Sub
[/vba]
К сообщению приложен файл: 220322_0.xlsm (17.0 Kb)

ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    For u = 1 To Sheets.Count
        v_1 = Sheets(u).Range("a4").DisplayFormat.Interior.Color
        v_2 = Sheets(u).Range("b4").DisplayFormat.Interior.Color
        v_3 = Sheets(u).Range("c4").DisplayFormat.Interior.Color
        If v_1 = 255 Or v_2 = 255 Or v_3 = 255 Then
            Sheets(u).Tab.Color = 255
        Else
            Sheets(u).Tab.Color = 16777215
        End If
    Next
    Application.ScreenUpdating = False
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 22.03.2022 в 08:17
DrMini Дата: Вторник, 22.03.2022, 09:10 | Сообщение № 3
Группа: Проверенные
Ранг: Старожил
Сообщений: 1641
Репутация: 207 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Николай, большое спасибо. Работает.
Подскажите пожалуйста где находится этот код. По Alt+F11 пусто.
разобрался.
И как можно изменить макрос для работы в диапазоне например A4:C20 ?
Или надо указывать каждую ячейку?


Сообщение отредактировал DrMini - Вторник, 22.03.2022, 09:26
 
Ответить
СообщениеНиколай, большое спасибо. Работает.
Подскажите пожалуйста где находится этот код. По Alt+F11 пусто.
разобрался.
И как можно изменить макрос для работы в диапазоне например A4:C20 ?
Или надо указывать каждую ячейку?
Автор - DrMini
Дата добавления - 22.03.2022 в 09:10
Nic70y Дата: Вторник, 22.03.2022, 09:28 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8759
Репутация: 2273 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    For u = 1 To Sheets.Count
        w = 0
        For Each c In Sheets(u).Range("a4:c20")
            v = c.DisplayFormat.Interior.Color
            If v = 255 Then
                w = 1
                Exit For
            End If
        Next
        If w = 1 Then
            Sheets(u).Tab.Color = 255
        Else
            Sheets(u).Tab.Color = 16777215
        End If
    Next
    Application.ScreenUpdating = False
End Sub
[/vba]

ЮMoney 41001841029809
 
Ответить
Сообщение[vba]
Код
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    For u = 1 To Sheets.Count
        w = 0
        For Each c In Sheets(u).Range("a4:c20")
            v = c.DisplayFormat.Interior.Color
            If v = 255 Then
                w = 1
                Exit For
            End If
        Next
        If w = 1 Then
            Sheets(u).Tab.Color = 255
        Else
            Sheets(u).Tab.Color = 16777215
        End If
    Next
    Application.ScreenUpdating = False
End Sub
[/vba]
Автор - Nic70y
Дата добавления - 22.03.2022 в 09:28
DrMini Дата: Вторник, 22.03.2022, 09:42 | Сообщение № 5
Группа: Проверенные
Ранг: Старожил
Сообщений: 1641
Репутация: 207 ±
Замечаний: 0% ±

Excel LTSC 2024 RUS
Николай, отлично. Работает.
 
Ответить
СообщениеНиколай, отлично. Работает.
Автор - DrMini
Дата добавления - 22.03.2022 в 09:42
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Изменение цвета названия листа от даты (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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