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

Вход

Регистрация

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

 

= Мир MS Excel/Закрашивание строки при её выделении - Мир MS Excel

  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Закрашивание строки при её выделении
Markoli Дата: Воскресенье, 21.05.2017, 08:41 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Всем доброго времени суток, прошу помочь составить макрос, который бы в выделенной строке закрашивал ячейки с A:Q красным цветом.
То есть, если только выделена вся строка целиком, то тогда в ней закрашиваются выделенные ячейки при использовании макроса.
 
Ответить
СообщениеВсем доброго времени суток, прошу помочь составить макрос, который бы в выделенной строке закрашивал ячейки с A:Q красным цветом.
То есть, если только выделена вся строка целиком, то тогда в ней закрашиваются выделенные ячейки при использовании макроса.

Автор - Markoli
Дата добавления - 21.05.2017 в 08:41
Pelena Дата: Воскресенье, 21.05.2017, 09:41 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19603
Репутация: 4660 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Так подойдёт? В модуль листа
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Columns.Count = Columns.Count Then Intersect(Target, Columns("A:Q")).Interior.ColorIndex = 3
End Sub
[/vba]


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Так подойдёт? В модуль листа
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Columns.Count = Columns.Count Then Intersect(Target, Columns("A:Q")).Interior.ColorIndex = 3
End Sub
[/vba]

Автор - Pelena
Дата добавления - 21.05.2017 в 09:41
Markoli Дата: Воскресенье, 21.05.2017, 09:47 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 15
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Pelena, да, отлично работает, благодарю.
 
Ответить
СообщениеPelena, да, отлично работает, благодарю.

Автор - Markoli
Дата добавления - 21.05.2017 в 09:47
  • Страница 1 из 1
  • 1
Поиск:

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