Как заставить макрос передавать текущий цвет УФ - реальному цвету ячейки

@yl3d · Регистрация: 28.09.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте.
Помогите решить техническую задачу.

На листе находится диапазон с условным форматированием (столбцы E-K).
При определенных значениях ячеек - они меняют свой свет, как это задано условным форматированием.

Но они меняют именно "цвет условного форматирования". Реальный цвет самой ячейки - не меняется.
Подскажите - как макросом - заставить ячейки получать окраску своего реального цвета - в соответствии с тем цветом условного форматирования, которое ячейка имеет в настоящее время ?
(Событие Worksheet_Calculate)

То есть если в настоящий момент - цвет ячейки желтый, то и реальный ее цвет должен становится желтым.
Сейчас на листе - при разных условных форматах - реальный цвет ячейки не меняется (стоит цвет "нет заливки").

@kalbasiatka · 18.01.2017, 07:28

Убрать форматирование с листа и красить макросом

Visual Basic

Private Sub Worksheet_Calculate()
    Dim c As Range
'-----------------
    Application.ScreenUpdating = False
    For Each c In Range("E1:K45").Cells
        Select Case c.Value
            Case 2: c.Interior.Color = 255
            Case 1: c.Interior.Color = 65535
            Case 0: c.Interior.Color = xlNone
        End Select
    Next
    Application.ScreenUpdating = True
End Sub

@KoGG · 18.01.2017, 11:01

Общий случай, независимый от конкретных условий форматирования (Офис 2007 и выше):

Visual Basic

Sub Перекрасить_ячейки_в_текущий_цвет_условного_форматирования()
    Dim c As Range
    Application.ScreenUpdating = False
    For Each c In ActiveSheet.UsedRange.Cells
        If c.FormatConditions.Count > 0 Then
           c.Interior.color = c.DisplayFormat.Interior.color
        End If
    Next
    Application.ScreenUpdating = True
End Sub
 
Private Sub Worksheet_Calculate()
     Перекрасить_ячейки_в_текущий_цвет_условного_форматирования
End Sub

@yl3d · 18.01.2017, 16:42 **[ТС]**

kalbasiatka, вы поняли что нужно сделать.
Но Select Case - это слишком простое решение, поскольку цвета могут быть разными.

Добавлено через 1 минуту
KoGG, это то что нужно.
Большое спасибо.

Новые блоги и статьи Все статьи Все блоги /
Использование кэша Laravel - полный гайд bytestream 18.02.2025 Кэширование - один из наиболее эффективных способов повышения производительности веб-приложений. В современном мире, где скорость загрузки страниц напрямую влияет на удержание пользователей и. . .	Создаем REST API в Laravel с аутентификацией через Passport bytestream 18.02.2025 Разработка современных веб-приложений все чаще требует создания надежного и хорошо структурированного API. REST API стал стандартом де-факто для построения взаимодействия между клиентской и серверной. . .	Пайплайны в Laravel - полный гайд bytestream 18.02.2025 Разработка современных веб-приложений часто требует обработки сложных процессов, состоящих из множества последовательных шагов. Например, при создании системы комментариев может потребоваться. . .	Как правильно использовать @required в Symfony bytestream 18.02.2025 При разработке приложений на Symfony мы часто сталкиваемся с необходимостью внедрения зависимостей. Фреймворк предоставляет несколько способов управления этим процессом, и одним из таких инструментов. . .	Система безопасности в Laravel: возможности и примеры Wired 18.02.2025 Каждый день появляются новые виды атак и уязвимостей, которые могут поставить под угрозу конфиденциальные данные пользователей и функционирование всей системы. В этом контексте выбор надежного. . .
Давайте сравним Django и Laravel Wired 18.02.2025 Django и Laravel - два мощных инструмента, которые часто сравнивают между собой. Оба фреймворка предлагают разработчикам богатый набор возможностей для создания масштабируемых веб-приложений, но. . .	Laravel или React - что лучше? Wired 18.02.2025 В разработке веб выбор правильного инструмента часто определяет успех всего проекта. Особенно интересным представляется сравнение Laravel и React - двух популярных технологий, которые часто. . .	Laravel 11: новые возможности, гайд по обновлению Wired 18.02.2025 Laravel 11 - это новая масштабная версия одного из самых популярных PHP-фреймворков, выпущенная в марте 2024 года. Эта версия продолжает традицию внедрения передовых технологий и методологий. . .	Миграции в Laravel Wired 18.02.2025 Разработка веб-приложений на Laravel неразрывно связана с управлением структурой базы данных. При работе над проектом часто возникает необходимость вносить изменения в схему базы данных - добавлять. . .	Аутентификация в Laravel Wired 18.02.2025 В современном мире веб-разработки безопасность пользовательских данных становится критически важным аспектом любого приложения. Laravel, как один из самых популярных PHP-фреймворков, предоставляет. . .

@yl3d 3 / 3 / 1 Регистрация: 28.09.2015 Сообщений: 271
	18.01.2017, 16:42 [ТС]	4
	kalbasiatka, вы поняли что нужно сделать. Но Select Case - это слишком простое решение, поскольку цвета могут быть разными. Добавлено через 1 минуту KoGG, это то что нужно. Большое спасибо. 0

	17.01.2017, 22:10

Как заставить макрос передавать текущий цвет УФ - реальному цвету ячейки

Решение