нашёл на просторах интернета следующий макрос, который закрашивает всю строку при изменении ячейки в 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
добрый день всем!
нашёл на просторах интернета следующий макрос, который закрашивает всю строку при изменении ячейки в 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 по Dh1dex
эх..ещё обнаружил, что при протягивании ячеек вниз ошибку выдаёт..а если в ячейке прописана формула на поиск значений Y или N то закраска не работает закрашивание работает только если выбрать Y или N
эх..ещё обнаружил, что при протягивании ячеек вниз ошибку выдаёт..а если в ячейке прописана формула на поиск значений Y или N то закраска не работает закрашивание работает только если выбрать Y или Nh1dex
With Range("A" & Target.Row & ":AF" & Target.Row).Interior
Заливается не вся строка, а только ячейки от "A" до "AF". Где у вас формула в примере. В столбце С (№3) нет формул, там только выпадающий список. Если в столбце 3 будет формула, результат которой N или Y, то строка закрасится. Про ошибку не понял, где и какая ошибка? Если задаете вопрос, показали бы эту ошибку, лучше конечно в файле, на крайний случай скрин.
With Range("A" & Target.Row & ":AF" & Target.Row).Interior
Заливается не вся строка, а только ячейки от "A" до "AF". Где у вас формула в примере. В столбце С (№3) нет формул, там только выпадающий список. Если в столбце 3 будет формула, результат которой N или Y, то строка закрасится. Про ошибку не понял, где и какая ошибка? Если задаете вопрос, показали бы эту ошибку, лучше конечно в файле, на крайний случай скрин.gling
ЯД-41001506838083
Сообщение отредактировал gling - Среда, 24.04.2024, 07:32
точно..я затупил..там написано AF, а я почему то подумал что это диапазон A:F спасибо
странный макрос..у меня он при протягивании Y вверх почему то закрашивается красным, а не зелёным
P.S. у меня в ячейке прописана формула впр, которая выдаёт значение Y, но ячейка не закрашивается зелёным..я про это..на формулу макрос не срабатывает
точно..я затупил..там написано AF, а я почему то подумал что это диапазон A:F спасибо
странный макрос..у меня он при протягивании Y вверх почему то закрашивается красным, а не зелёным
P.S. у меня в ячейке прописана формула впр, которая выдаёт значение Y, но ячейка не закрашивается зелёным..я про это..на формулу макрос не срабатываетh1dex
условное форматирование хорошо работает если ничего не добавляется в таблицу..а у меня динмические данные постоянно сыплются туда и формула в УФ клонируется много раз..поэтому макрос лучшее решение спасибо за подсказку!
условное форматирование хорошо работает если ничего не добавляется в таблицу..а у меня динмические данные постоянно сыплются туда и формула в УФ клонируется много раз..поэтому макрос лучшее решение спасибо за подсказку!h1dex