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

Вход

Регистрация

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

 

= Мир MS Excel/Как подсветить некоторые ячейки цветом - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как подсветить некоторые ячейки цветом (Макросы/Sub)
Как подсветить некоторые ячейки цветом
SkyGreen Дата: Среда, 22.07.2020, 17:40 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Здравствуйте. Помогите решить задачу.
На листе в строку F - выписаны адреса ячеек.

Как макросом, (при щелчке на кнопку) подсветить адреса ячеек выписанных в строку F - зеленым цветом ?
К сообщению приложен файл: 8270590.xls (34.0 Kb)
 
Ответить
СообщениеЗдравствуйте. Помогите решить задачу.
На листе в строку F - выписаны адреса ячеек.

Как макросом, (при щелчке на кнопку) подсветить адреса ячеек выписанных в строку F - зеленым цветом ?

Автор - SkyGreen
Дата добавления - 22.07.2020 в 17:40
Pelena Дата: Среда, 22.07.2020, 17:48 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19161
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Здравствуйте.
Обязательно макросом? Условным форматированием не подойдёт?
Код
=ИЛИ(АДРЕС(СТРОКА();СТОЛБЕЦ();4)=$F$20:$BW$20)
К сообщению приложен файл: 9060694.xls (34.0 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеЗдравствуйте.
Обязательно макросом? Условным форматированием не подойдёт?
Код
=ИЛИ(АДРЕС(СТРОКА();СТОЛБЕЦ();4)=$F$20:$BW$20)

Автор - Pelena
Дата добавления - 22.07.2020 в 17:48
SkyGreen Дата: Среда, 22.07.2020, 19:30 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Pelena, нет.
Условное форматирование здесь не подойдет.

Потому что ячеек - намного больше чем указано в этом простеньком примере.
А при большом количестве ячеек - условное форматирование тормозит вычисления.
 
Ответить
СообщениеPelena, нет.
Условное форматирование здесь не подойдет.

Потому что ячеек - намного больше чем указано в этом простеньком примере.
А при большом количестве ячеек - условное форматирование тормозит вычисления.

Автор - SkyGreen
Дата добавления - 22.07.2020 в 19:30
Kuzmich Дата: Среда, 22.07.2020, 20:05 | Сообщение № 4
Группа: Проверенные
Ранг: Ветеран
Сообщений: 711
Репутация: 155 ±
Замечаний: 0% ±

Excel 2003
Цитата
Как макросом

[vba]
Код
Sub Tablica()
Dim i As Long
Dim iLastCol As Integer
Application.ScreenUpdating = False
  Range("F4:Y13").Interior.ColorIndex = xlNone
iLastCol = Cells(20, Columns.Count).End(xlToLeft).Column
  For i = 6 To iLastCol
    Range(Cells(20, i)).Interior.ColorIndex = 4
  Next
Application.ScreenUpdating = True
End Sub
[/vba]
 
Ответить
Сообщение
Цитата
Как макросом

[vba]
Код
Sub Tablica()
Dim i As Long
Dim iLastCol As Integer
Application.ScreenUpdating = False
  Range("F4:Y13").Interior.ColorIndex = xlNone
iLastCol = Cells(20, Columns.Count).End(xlToLeft).Column
  For i = 6 To iLastCol
    Range(Cells(20, i)).Interior.ColorIndex = 4
  Next
Application.ScreenUpdating = True
End Sub
[/vba]

Автор - Kuzmich
Дата добавления - 22.07.2020 в 20:05
SkyGreen Дата: Среда, 22.07.2020, 21:29 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 83
Репутация: 0 ±
Замечаний: 20% ±

Excel 2016
Kuzmich, спасибо
 
Ответить
СообщениеKuzmich, спасибо

Автор - SkyGreen
Дата добавления - 22.07.2020 в 21:29
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Как подсветить некоторые ячейки цветом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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