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

Вход

Регистрация

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

 

= Мир MS Excel/Закрасить цветом ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрасить цветом ячейки (Макросы/Sub)
Закрасить цветом ячейки
ZabVs Дата: Суббота, 05.02.2022, 15:11 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 0% ±

Здравствуйте, подскажите возможно ли чтобы два столбца N и O закрашивались автоматически таким же цветом какой в cтолбце А. Столбцы А закрашиваются по условиям Условного форматирования…
Просто где только не искал нашел только такой вариант
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Range("N4").Interior.Color = Me.Range("A4").Interior.Color
End Sub
[/vba]
Попробовал вставить к себе в файл, но закрашивает белым цветом, как понимаю не подходит условие, да и если на каждую строку писать…..
Подскажите, как закрашивать столбцы N и O автоматически.
Спасибо.
К сообщению приложен файл: 4312069.xlsm (26.5 Kb)


Сообщение отредактировал ZabVs - Суббота, 05.02.2022, 15:16
 
Ответить
СообщениеЗдравствуйте, подскажите возможно ли чтобы два столбца N и O закрашивались автоматически таким же цветом какой в cтолбце А. Столбцы А закрашиваются по условиям Условного форматирования…
Просто где только не искал нашел только такой вариант
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Range("N4").Interior.Color = Me.Range("A4").Interior.Color
End Sub
[/vba]
Попробовал вставить к себе в файл, но закрашивает белым цветом, как понимаю не подходит условие, да и если на каждую строку писать…..
Подскажите, как закрашивать столбцы N и O автоматически.
Спасибо.
Автор - ZabVs
Дата добавления - 05.02.2022 в 15:11
Pelena Дата: Суббота, 05.02.2022, 15:21 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19403
Репутация: 4555 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Вариант без макросов
Используйте формулу для УФ и расширьте диапазон, добавив столбцы N и O
В файле сделала для "МИЧУРИНСКИЙ ФИЛИАЛ"
К сообщению приложен файл: 7487934.xlsm (24.9 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Вариант без макросов
Используйте формулу для УФ и расширьте диапазон, добавив столбцы N и O
В файле сделала для "МИЧУРИНСКИЙ ФИЛИАЛ"
Автор - Pelena
Дата добавления - 05.02.2022 в 15:21
Nic70y Дата: Вторник, 08.02.2022, 07:56 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 9005
Репутация: 2369 ±
Замечаний: 0% ±

Excel 2010
Цитата ZabVs, 05.02.2022 в 15:11, в сообщении № 1 ()
но закрашивает белым цветом
т.к. УФ это не
Цитата ZabVs, 05.02.2022 в 15:11, в сообщении № 1 ()
.Interior.Color
, а[vba]
Код
.DisplayFormat.Interior.Color
[/vba]
Цитата ZabVs, 05.02.2022 в 15:11, в сообщении № 1 ()
каждую строку писать…..
так:
[vba]
Код
    u = Target.Row
    Range("n" & u & ":o" & u).Interior.Color = Range("a" & u).DisplayFormat.Interior.Color
[/vba]хотели?

ЮMoney 41001841029809
 
Ответить
Сообщение
Цитата ZabVs, 05.02.2022 в 15:11, в сообщении № 1 ()
но закрашивает белым цветом
т.к. УФ это не
Цитата ZabVs, 05.02.2022 в 15:11, в сообщении № 1 ()
.Interior.Color
, а[vba]
Код
.DisplayFormat.Interior.Color
[/vba]
Цитата ZabVs, 05.02.2022 в 15:11, в сообщении № 1 ()
каждую строку писать…..
так:
[vba]
Код
    u = Target.Row
    Range("n" & u & ":o" & u).Interior.Color = Range("a" & u).DisplayFormat.Interior.Color
[/vba]хотели?
Автор - Nic70y
Дата добавления - 08.02.2022 в 07:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Закрасить цветом ячейки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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