Выделение цветной активной строки, без изменения цвета шапки

@Даша Кетова · Регистрация: 30.03.2018

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

Добрый вечер, подскажите пожалуйста, как сделать активную строку цветную, но так чтоб активная строка не затрагивала цвет шапки, и при нажатии на поиск, сразу же выделяла цветом эту самую поисковую запись.Есть код, но в нем цвет шапки уходит, и остается просто цветная активная строка. Картинка 1, то что не получается

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Если выделено больше 1-й строки, то выходим из макроса
If Target.Rows.Count > 1 Then Exit Sub
'Если выделяем столбец за пределами А:О, закрашивать строку нужно?
'Если нет, то расскомментировать следующую строчку
'If Target.Column > 15 Then Exit Sub
Static rn_Prev As Range
Dim rn As Range
 
If rn_Prev Is Nothing Then
    Cells.Interior.ColorIndex = xlColorIndexNone
Else
    Range("a" & rn_Prev.Row & ":o" & rn_Prev.Row).Interior.ColorIndex = xlColorIndexNone
End If
'вместо всей строки (rn.EntireRow) закрашиваем диапазон а:о
Range("a" & Target.Row & ":o" & Target.Row).Interior.ColorIndex = 37
Set rn_Prev = Target
 
End Sub

@Burk · 20.04.2019, 13:43

Даша Кетова, т.е. нужно, чтобы этот макрос работал на нескольких листах. Создается модуль класса и все объекты этого класса обрабатываются одним макросом. Желательно, чтобы страницы этого класса начинались одинаково, чтобы по этому признаку их заносить в класс. Но можно и по номерам листа или заносить имена самому. Например, Программа-1, Программа-2 и т.д.

@Даша Кетова · 20.04.2019, 14:18 **[ТС]**

Burk, а если по номеру листа, то это куда записывать?

@Burk · 20.04.2019, 15:09

Даша Кетова, записывать никуда не надо, просто вы говорите мне какие листы входят в класс или наоборот какие не входят (на них этот макрос работать не будет) , если таких меньше. Но надо создать модуль класса, сами вы вряд ли сделаете. Так что продумайте и сообщите. ну и почитайте в поисковике про модуль класса вба

Добавлено через 19 минут
А вы на мои замечания по поводу вставки строк нулёвое внимание? То откуда-то откопали старый файл, то не вносите изменения. Мне так скучно будет с вами работать. И зачем вы сохраняете в формате xlsm, лучше 2003 xls, тогда не нужно будет делать зипы. А задачи ваши пока 2007 не требуют. Так все листы надо выделять и сколько столбцов на каждом листе? По шапке?

@Даша Кетова · 20.04.2019, 15:18 **[ТС]**

Burk, нет, вставляю по мере необходимости,у меня 2003, размер превышает.

@Burk · 21.04.2019, 06:57

Даша Кетова, так как вы не ответили на мой вопрос, какие страницы должны обрабатываться этим макросом (и такое у вас случается), то включаю все. Теперь один макрос на все страницы, он находится в модуле класса MySheet.
Добавлен мой модуль ModuleBurk. Ну ставить в качестве правой границы цифры (37) это не по-игроцки, надо определять истинную, у вас я определяю по цвету в первой строке.

@Даша Кетова · 21.04.2019, 09:43 **[ТС]**

Burk, можете переслать в зипе? у меня пишет что архив поврежден

@Burk · 21.04.2019, 10:33

Даша Кетова, нет у меня зипа, у меня и этот Rar открывается, ищите rar

@Даша Кетова · 21.04.2019, 11:26 **[ТС]**

Burk, Спасибо, вроде работает

@Burk · 21.04.2019, 12:13

Даша Кетова, между прочим, официальные спасиба есть в окнах сообщений внизу справа.

Добавлено через 24 минуты
Даша Кетова, ну вообще-то единичку лучше ставить в сообщении с решением вашей проблемы, а не в отказе прислать вам зип-архив

Новые блоги и статьи Все статьи Все блоги /
GitHub Copilot в JetBrains: модель по умолчанию, Fix и контроль MCP and_y87 12.10.2026 10 октября 2026 года GitHub обновил Copilot для JetBrains: добавил настройки стартовой модели, исправления из диагностики и управление автозапуском MCP. Поддержка IDE 2025. 1 прекращена — требуется. . .	День 5 из 28: Codex подсказывает следующий запрос and_y87 12.10.2026 9 октября 2026 года OpenAI запустила бету Composer predictions — подсказок следующего сообщения в текущем диалоге Codex. Это помощь с формулировкой запроса, а не автоматическое продолжение задачи. . . .	Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ" Adler 06.10.2026 Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .	ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .	Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	20.04.2019, 13:43
	Даша Кетова, т.е. нужно, чтобы этот макрос работал на нескольких листах. Создается модуль класса и все объекты этого класса обрабатываются одним макросом. Желательно, чтобы страницы этого класса начинались одинаково, чтобы по этому признаку их заносить в класс. Но можно и по номерам листа или заносить имена самому. Например, Программа-1, Программа-2 и т.д. 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	20.04.2019, 15:09
	Даша Кетова, записывать никуда не надо, просто вы говорите мне какие листы входят в класс или наоборот какие не входят (на них этот макрос работать не будет) , если таких меньше. Но надо создать модуль класса, сами вы вряд ли сделаете. Так что продумайте и сообщите. ну и почитайте в поисковике про модуль класса вба Добавлено через 19 минут А вы на мои замечания по поводу вставки строк нулёвое внимание? То откуда-то откопали старый файл, то не вносите изменения. Мне так скучно будет с вами работать. И зачем вы сохраняете в формате xlsm, лучше 2003 xls, тогда не нужно будет делать зипы. А задачи ваши пока 2007 не требуют. Так все листы надо выделять и сколько столбцов на каждом листе? По шапке? 0

@Даша Кетова 0 / 0 / 0 Регистрация: 30.03.2018 Сообщений: 84
	21.04.2019, 09:43 [ТС]
	Burk, можете переслать в зипе? у меня пишет что архив поврежден 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	21.04.2019, 10:33
	Даша Кетова, нет у меня зипа, у меня и этот Rar открывается, ищите rar 0

@Даша Кетова 0 / 0 / 0 Регистрация: 30.03.2018 Сообщений: 84
	21.04.2019, 11:26 [ТС]
	Burk, Спасибо, вроде работает 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	21.04.2019, 12:13
	Даша Кетова, между прочим, официальные спасиба есть в окнах сообщений внизу справа. Добавлено через 24 минуты Даша Кетова, ну вообще-то единичку лучше ставить в сообщении с решением вашей проблемы, а не в отказе прислать вам зип-архив 0