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

Вход

Регистрация

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

 

= Мир MS Excel/Макрос на закрашивание строки диапазона одним цветом - Мир MS Excel

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

Excel 2016
добрый день всем!

нашёл на просторах интернета следующий макрос, который закрашивает всю строку при изменении ячейки в 3 столбце:

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(3)) Is Nothing Then
With Range("A" & Target.Row & ":AF" & Target.Row).Interior
Select Case Target.Value
Case "N"
.ColorIndex = 3
Case "Y"
.ColorIndex = 4
Case Else
.ColorIndex = None
End Select
End With
End If

End Sub
[/vba]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

вопрос в следующем..как сделать так чтобы заливалась не вся строка, а определённые столбцы? к примеру нужно залить диапазон с A по D
К сообщению приложен файл: zalivka_strok_makrosom.xlsm (16.0 Kb)
 
Ответить
Сообщениедобрый день всем!

нашёл на просторах интернета следующий макрос, который закрашивает всю строку при изменении ячейки в 3 столбце:

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(3)) Is Nothing Then
With Range("A" & Target.Row & ":AF" & Target.Row).Interior
Select Case Target.Value
Case "N"
.ColorIndex = 3
Case "Y"
.ColorIndex = 4
Case Else
.ColorIndex = None
End Select
End With
End If

End Sub
[/vba]
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

вопрос в следующем..как сделать так чтобы заливалась не вся строка, а определённые столбцы? к примеру нужно залить диапазон с A по D

Автор - h1dex
Дата добавления - 24.04.2024 в 06:32
h1dex Дата: Среда, 24.04.2024, 06:41 | Сообщение № 2
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
эх..ещё обнаружил, что при протягивании ячеек вниз ошибку выдаёт..а если в ячейке прописана формула на поиск значений Y или N то закраска не работает :( закрашивание работает только если выбрать Y или N
 
Ответить
Сообщениеэх..ещё обнаружил, что при протягивании ячеек вниз ошибку выдаёт..а если в ячейке прописана формула на поиск значений Y или N то закраска не работает :( закрашивание работает только если выбрать Y или N

Автор - h1dex
Дата добавления - 24.04.2024 в 06:41
gling Дата: Среда, 24.04.2024, 07:15 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
Здравствуйте.
With Range("A" & Target.Row & ":AF" & Target.Row).Interior
Заливается не вся строка, а только ячейки от "A" до "AF".
Где у вас формула в примере. В столбце С (№3) нет формул, там только выпадающий список. Если в столбце 3 будет формула, результат которой N или Y, то строка закрасится. Про ошибку не понял, где и какая ошибка? Если задаете вопрос, показали бы эту ошибку, лучше конечно в файле, на крайний случай скрин.


ЯД-41001506838083

Сообщение отредактировал gling - Среда, 24.04.2024, 07:32
 
Ответить
СообщениеЗдравствуйте.
With Range("A" & Target.Row & ":AF" & Target.Row).Interior
Заливается не вся строка, а только ячейки от "A" до "AF".
Где у вас формула в примере. В столбце С (№3) нет формул, там только выпадающий список. Если в столбце 3 будет формула, результат которой N или Y, то строка закрасится. Про ошибку не понял, где и какая ошибка? Если задаете вопрос, показали бы эту ошибку, лучше конечно в файле, на крайний случай скрин.

Автор - gling
Дата добавления - 24.04.2024 в 07:15
h1dex Дата: Среда, 24.04.2024, 07:19 | Сообщение № 4
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
к сожалению эта строка в коде не работает..и заливается вся строка где мы пишем Y или N в столбце 3 первого листа
 
Ответить
Сообщениек сожалению эта строка в коде не работает..и заливается вся строка где мы пишем Y или N в столбце 3 первого листа

Автор - h1dex
Дата добавления - 24.04.2024 в 07:19
gling Дата: Среда, 24.04.2024, 07:35 | Сообщение № 5
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2525
Репутация: 678 ±
Замечаний: 0% ±

2010
заливается вся строка где мы пишем Y или N в столбце 3
Покажите в файле. В вашем примере заливка только до столбца AF. Замените AF на D и посмотрите что получится.
К сообщению приложен файл: 1006623.xlsm (16.7 Kb)


ЯД-41001506838083

Сообщение отредактировал gling - Среда, 24.04.2024, 07:41
 
Ответить
Сообщение
заливается вся строка где мы пишем Y или N в столбце 3
Покажите в файле. В вашем примере заливка только до столбца AF. Замените AF на D и посмотрите что получится.

Автор - gling
Дата добавления - 24.04.2024 в 07:35
h1dex Дата: Среда, 24.04.2024, 09:09 | Сообщение № 6
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
точно..я затупил..там написано AF, а я почему то подумал что это диапазон A:F
спасибо

странный макрос..у меня он при протягивании Y вверх почему то закрашивается красным, а не зелёным

P.S. у меня в ячейке прописана формула впр, которая выдаёт значение Y, но ячейка не закрашивается зелёным..я про это..на формулу макрос не срабатывает
 
Ответить
Сообщениеточно..я затупил..там написано AF, а я почему то подумал что это диапазон A:F
спасибо

странный макрос..у меня он при протягивании Y вверх почему то закрашивается красным, а не зелёным

P.S. у меня в ячейке прописана формула впр, которая выдаёт значение Y, но ячейка не закрашивается зелёным..я про это..на формулу макрос не срабатывает

Автор - h1dex
Дата добавления - 24.04.2024 в 09:09
Pelena Дата: Среда, 24.04.2024, 09:20 | Сообщение № 7
Группа: Админы
Ранг: Местный житель
Сообщений: 19187
Репутация: 4421 ±
Замечаний: ±

Excel 365 & Mac Excel
прописана формула впр, которая выдаёт значение Y

тогда это другое событие: не Change, а Calculate

Обязательно макрос? Условное форматирование не предлагать?


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
прописана формула впр, которая выдаёт значение Y

тогда это другое событие: не Change, а Calculate

Обязательно макрос? Условное форматирование не предлагать?

Автор - Pelena
Дата добавления - 24.04.2024 в 09:20
h1dex Дата: Среда, 24.04.2024, 09:45 | Сообщение № 8
Группа: Пользователи
Ранг: Новичок
Сообщений: 40
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
условное форматирование хорошо работает если ничего не добавляется в таблицу..а у меня динмические данные постоянно сыплются туда и формула в УФ клонируется много раз..поэтому макрос лучшее решение
спасибо за подсказку!
 
Ответить
Сообщениеусловное форматирование хорошо работает если ничего не добавляется в таблицу..а у меня динмические данные постоянно сыплются туда и формула в УФ клонируется много раз..поэтому макрос лучшее решение
спасибо за подсказку!

Автор - h1dex
Дата добавления - 24.04.2024 в 09:45
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Макрос на закрашивание строки диапазона одним цветом (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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