Выделение строки цветом vba excel

Заливка ячейки цветом в VBA Excel. Фон ячейки. Свойства .Interior.Color и .Interior.ColorIndex. Цветовая модель RGB. Стандартная палитра. Очистка фона ячейки.

Свойство .Interior.Color объекта Range

Начиная с Excel 2007 основным способом заливки диапазона или отдельной ячейки цветом (зарисовки, добавления, изменения фона) является использование свойства .Interior.Color объекта Range путем присваивания ему значения цвета в виде десятичного числа от 0 до 16777215 (всего 16777216 цветов).

Заливка ячейки цветом в VBA Excel

Пример кода 1:

Sub ColorTest1()

Range(«A1»).Interior.Color = 31569

Range(«A4:D8»).Interior.Color = 4569325

Range(«C12:D17»).Cells(4).Interior.Color = 568569

Cells(3, 6).Interior.Color = 12659

End Sub

Поместите пример кода в свой программный модуль и нажмите кнопку на панели инструментов «Run Sub» или на клавиатуре «F5», курсор должен быть внутри выполняемой программы. На активном листе Excel ячейки и диапазон, выбранные в коде, окрасятся в соответствующие цвета.

Есть один интересный нюанс: если присвоить свойству .Interior.Color отрицательное значение от -16777215 до -1, то цвет будет соответствовать значению, равному сумме максимального значения палитры (16777215) и присвоенного отрицательного значения. Например, заливка всех трех ячеек после выполнения следующего кода будет одинакова:

Sub ColorTest11()

Cells(1, 1).Interior.Color = —12207890

Cells(2, 1).Interior.Color = 16777215 + (—12207890)

Cells(3, 1).Interior.Color = 4569325

End Sub

Проверено в Excel 2016.

Вывод сообщений о числовых значениях цветов

Числовые значения цветов запомнить невозможно, поэтому часто возникает вопрос о том, как узнать числовое значение фона ячейки. Следующий код VBA Excel выводит сообщения о числовых значениях присвоенных ранее цветов.

Пример кода 2:

Sub ColorTest2()

MsgBox Range(«A1»).Interior.Color

MsgBox Range(«A4:D8»).Interior.Color

MsgBox Range(«C12:D17»).Cells(4).Interior.Color

MsgBox Cells(3, 6).Interior.Color

End Sub

Вместо вывода сообщений можно присвоить числовые значения цветов переменным, объявив их как Long.

Использование предопределенных констант

В VBA Excel есть предопределенные константы часто используемых цветов для заливки ячеек:

Предопределенная константа	Наименование цвета
vbBlack	Черный
vbBlue	Голубой
vbCyan	Бирюзовый
vbGreen	Зеленый
vbMagenta	Пурпурный
vbRed	Красный
vbWhite	Белый
vbYellow	Желтый
xlNone	Нет заливки

Присваивается цвет ячейке предопределенной константой в VBA Excel точно так же, как и числовым значением:

Пример кода 3:

Range(«A1»).Interior.Color = vbGreen

Цветовая модель RGB

Цветовая система RGB представляет собой комбинацию различных по интенсивности основных трех цветов: красного, зеленого и синего. Они могут принимать значения от 0 до 255. Если все значения равны 0 — это черный цвет, если все значения равны 255 — это белый цвет.

Выбрать цвет и узнать его значения RGB можно с помощью палитры Excel:

Палитра Excel

Чтобы можно было присвоить ячейке или диапазону цвет с помощью значений RGB, их необходимо перевести в десятичное число, обозначающее цвет. Для этого существует функция VBA Excel, которая так и называется — RGB.

Пример кода 4:

Range(«A1»).Interior.Color = RGB(100, 150, 200)

Список стандартных цветов с RGB-кодами смотрите в статье: HTML. Коды и названия цветов.

Очистка ячейки (диапазона) от заливки

Для очистки ячейки (диапазона) от заливки используется константа xlNone:

Range(«A1»).Interior.Color = xlNone

Свойство .Interior.ColorIndex объекта Range

До появления Excel 2007 существовала только ограниченная палитра для заливки ячеек фоном, состоявшая из 56 цветов, которая сохранилась и в настоящее время. Каждому цвету в этой палитре присвоен индекс от 1 до 56. Присвоить цвет ячейке по индексу или вывести сообщение о нем можно с помощью свойства .Interior.ColorIndex:

Пример кода 5:

Range(«A1»).Interior.ColorIndex = 8

MsgBox Range(«A1»).Interior.ColorIndex

Просмотреть ограниченную палитру для заливки ячеек фоном можно, запустив в VBA Excel простейший макрос:

Пример кода 6:

Sub ColorIndex()

Dim i As Byte

For i = 1 To 56

Cells(i, 1).Interior.ColorIndex = i

End Sub

Номера строк активного листа от 1 до 56 будут соответствовать индексу цвета, а ячейка в первом столбце будет залита соответствующим индексу фоном.

Подробнее о стандартной палитре Excel смотрите в статье: Стандартная палитра из 56 цветов, а также о том, как добавить узор в ячейку.

Источник

Содержание

Выделение активной ячейки, строки или столбца
Выделение активной ячейки
Выделение всей строки и столбца, содержащих активную ячейку
Выделение строки и столбца, содержащих активную ячейку, в текущей области
Об участнике
Поддержка и обратная связь
Выделение строки цветом vba excel
Выделение строки цветом vba excel

Выделение активной ячейки, строки или столбца

В следующих примерах кода показаны способы выделения активной ячейки или строк и столбцов, содержащих активную ячейку. В этих примерах используется событие SelectionChange объекта Worksheet.

Пример кода предоставил: Том Уртис, Atlas Programming Management

Выделение активной ячейки

В следующем примере кода показано, как удалить цвет во всех ячейках листа, присвоив свойству ColorIndex значение 0, а затем выделить активную ячейку, присвоив свойству ColorIndex значение 8 (бирюзовый).

Выделение всей строки и столбца, содержащих активную ячейку

В следующем примере кода показано, как удалить цвет во всех ячейках листа, присвоив свойству ColorIndex значение 0, а затем выделить всю строку и столбец, содержащие активную ячейку, с помощью свойств EntireRow и EntireColumn.

Выделение строки и столбца, содержащих активную ячейку, в текущей области

В следующем примере кода показано, как удалить цвет во всех ячейках листа, присвоив свойству ColorIndex значение 0, а затем в текущей области выделить строку и столбец, содержащие активную ячейку, используя свойство CurrentRegion объекта Range.

Об участнике

Том Уртис, MVP — основатель компании Atlas Programming Management, создающей полноценные бизнес-решения для Microsoft Office и Excel в Кремниевой долине. Том обладает больше чем 25 годами опыта управления бизнесом и разработки приложений для Microsoft Office, а также является соавтором книги «Holy Macro! It’s 2,500 Excel VBA Examples».

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Источник

Добрый вечер, знатоки макросов!
Подскажите пожалуйста, что нужно добавить в существующий макрос, чтобы было не просто выделение активных строки/столбца, а выделение цветом?

код макроса выделения такой:
[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range

If Target.Cells.Count > 1 Then Exit Sub ‘если выделено больше 1 ячейки — выходим

Application.ScreenUpdating = False
Set WorkRange = Range(«A11:BX7300») ‘адрес рабочего диапазона, в пределах которого видно выделение
Intersect(WorkRange, Union(Target.EntireColumn, Target.EntireRow)).Select ‘формируем крестообразный диапазон и выделяем
Target.Activate

код макроса выделения такой:
[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range

If Target.Cells.Count > 1 Then Exit Sub ‘если выделено больше 1 ячейки — выходим

Сообщение Добрый вечер, знатоки макросов!
Подскажите пожалуйста, что нужно добавить в существующий макрос, чтобы было не просто выделение активных строки/столбца, а выделение цветом?

код макроса выделения такой:
[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range

If Target.Cells.Count > 1 Then Exit Sub ‘если выделено больше 1 ячейки — выходим

Kuzmich

Дата: Пятница, 20.09.2019, 22:35 | Сообщение № 2

grh1

Дата: Суббота, 21.09.2019, 08:05 | Сообщение № 3

Kuzmich, спасибо, но немного не то. Так я тоже делал, но цвет накладывается на выделение и получается искажение цвета — хочу желтый, получаю грязно-оранжевый.

Вот код Н. Павлова, который:
1. не убивает ранее установленное цветовое форматирование на листе;
2. цвет выделения активной строки/столбца является оригинальным.
(выставил светло-зеленый цвет, он и выделяет этим цветом)

Но как сделать в этом коде, чтобы он постоянно был включен на листе, без кнопки ДОБАВИТЬ ВЫДЕЛЕНИЕ или вызова макроса на включение.

Но как сделать в этом коде, чтобы он постоянно был включен на листе, без кнопки ДОБАВИТЬ ВЫДЕЛЕНИЕ или вызова макроса на включение. grh1

Сообщение Kuzmich, спасибо, но немного не то. Так я тоже делал, но цвет накладывается на выделение и получается искажение цвета — хочу желтый, получаю грязно-оранжевый.

Но как сделать в этом коде, чтобы он постоянно был включен на листе, без кнопки ДОБАВИТЬ ВЫДЕЛЕНИЕ или вызова макроса на включение. Автор — grh1
Дата добавления — 21.09.2019 в 08:05

gling

Дата: Суббота, 21.09.2019, 08:32 | Сообщение № 4

grh1

Дата: Суббота, 21.09.2019, 09:22 | Сообщение № 5

Kuzmich

Дата: Суббота, 21.09.2019, 09:41 | Сообщение № 6

grh1

Дата: Суббота, 21.09.2019, 10:03 | Сообщение № 7

grh1

Дата: Суббота, 21.09.2019, 10:24 | Сообщение № 8

Pelena

Дата: Суббота, 21.09.2019, 11:35 | Сообщение № 9

	«Черт возьми, Холмс! Но как. » Ю-money 41001765434816

Ответить

grh1

Дата: Суббота, 21.09.2019, 12:47 | Сообщение № 10

Да, конечно.
Код на выделение активной строки/столбца Н. Павлова, убрано вкл/выкл макроса — работает постоянно
[vba]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range, CrossRange As Range
Set WorkRange = Range(«A11:CC7300»)
If Target.Count > 1 Then Exit Sub

Application.ScreenUpdating = False
If Not Intersect(Target, WorkRange) Is Nothing Then
Set CrossRange = Intersect(WorkRange, Target.EntireRow) ‘это окрас строк+столбец Set CrossRange = Intersect(WorkRange, Union(Target.EntireRow, Target.EntireColumn))
WorkRange.FormatConditions.Delete ‘эта строка делает так, чтобы выделение не оставалось
CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
CrossRange.FormatConditions(1).Interior.ColorIndex = 35
Target.FormatConditions.Delete ‘эта строка убирает заливку в активной ЯЧЕЙКЕ (она становится белой)
End If
End Sub

Не убивает форматирование на листе

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range, CrossRange As Range
Set WorkRange = Range(«A11:CC7300»)
If Target.Count > 1 Then Exit Sub

Не убивает форматирование на листе grh1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim WorkRange As Range, CrossRange As Range
Set WorkRange = Range(«A11:CC7300»)
If Target.Count > 1 Then Exit Sub

Не убивает форматирование на листе Автор — grh1
Дата добавления — 21.09.2019 в 12:47

Источник

Выделение строки цветом vba excel

Здравствуйте, нашла макрос для подсветки активной строки определенным цветом, проблема в том, что подсвечивается вся строка от А до горизонта и вторая проблема макроса в том, что если нажать на столбец, то всё дико зависает.
Прошу помочь изменить макрос таким образом, чтобы при нажатии на ячейку в строке подсвечивались ячейки с A-O и влияла только на строку, а не на столбцы.

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static rn_Prev As Range
Dim rn As Range

If rn_Prev Is Nothing Then
Cells.Interior.ColorIndex = xlColorIndexNone
Else
For Each rn In rn_Prev
If rn.Interior.ColorIndex <> xlColorIndexNone Then _
rn.EntireRow.Interior.ColorIndex = xlColorIndexNone
Next
End If

For Each rn In Target
If rn.Interior.ColorIndex <> 37 Then rn.EntireRow.Interior.ColorIndex = 37
Next

Set rn_Prev = Target

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static rn_Prev As Range
Dim rn As Range

For Each rn In Target
If rn.Interior.ColorIndex <> 37 Then rn.EntireRow.Interior.ColorIndex = 37
Next

Set rn_Prev = Target

Сообщение Здравствуйте, нашла макрос для подсветки активной строки определенным цветом, проблема в том, что подсвечивается вся строка от А до горизонта и вторая проблема макроса в том, что если нажать на столбец, то всё дико зависает.
Прошу помочь изменить макрос таким образом, чтобы при нажатии на ячейку в строке подсвечивались ячейки с A-O и влияла только на строку, а не на столбцы.

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Static rn_Prev As Range
Dim rn As Range

For Each rn In Target
If rn.Interior.ColorIndex <> 37 Then rn.EntireRow.Interior.ColorIndex = 37
Next

Set rn_Prev = Target

Manyasha

Дата: Понедельник, 06.02.2017, 13:15 | Сообщение № 2

For Each rn In Target
‘вместо всей строки (rn.EntireRow) закрашиваем диапазон а:о
If rn.Interior.ColorIndex <> 37 Then Range(«a» & rn.Row & «:o» & rn.Row).Interior.ColorIndex = 37
Next

Set rn_Prev = Target

ЯД: 410013299366744 WM: R193491431804

Ответить

Set rn_Prev = Target

Liana88

Дата: Понедельник, 06.02.2017, 13:20 | Сообщение № 3

Manyasha

Дата: Понедельник, 06.02.2017, 13:39 | Сообщение № 4

200?’200px’:»+(this.scrollHeight+5)+’px’);»> 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

Код немного сократила, т.к. циклы не нужны, если мы красим только по одной строке.

Код немного сократила, т.к. циклы не нужны, если мы красим только по одной строке. Manyasha

ЯД: 410013299366744 WM: R193491431804

Ответить

Код немного сократила, т.к. циклы не нужны, если мы красим только по одной строке. Автор — Manyasha
Дата добавления — 06.02.2017 в 13:39

Liana88

Дата: Понедельник, 06.02.2017, 13:52 | Сообщение № 5

exzor

Дата: Среда, 07.08.2019, 17:34 | Сообщение № 6

китин

Дата: Четверг, 08.08.2019, 08:25 | Сообщение № 7

	Не судите очень строго:я пытаюсь научиться ЯД 41001877306852

Ответить

exzor

Дата: Среда, 21.08.2019, 17:39 | Сообщение № 8

ну вот пример первый пока макрос не сработал а второй когда включился

Сообщение ну вот пример первый пока макрос не сработал а второй когда включился

Автор — exzor
Дата добавления — 21.08.2019 в 17:39

китин

Дата: Четверг, 22.08.2019, 08:48 | Сообщение № 9

— Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума

— Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума китин

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение exzor, — Прочитайте Правила форума

— Приложите файл с исходными данными и желаемым результатом (можно вручную) в формате Excel размером до 100кб согласно п.3 Правил форума Автор — китин
Дата добавления — 22.08.2019 в 08:48

exzor

Дата: Среда, 25.09.2019, 16:34 | Сообщение № 10

нет все равно не получается удалив строчки о которых вы сказали.
у меня на первом скриншоте залиты области мне надо чтоб они также оставались после того как я перемещусь по ячейкам
а получается что либо все области снимется окрас остается либо на оборот увеличиваеться дополнительными строками

если описать проблему то она такая в файле пример одной из таблиц у нас 4000 сотрудников. ведя поиск по таб. номеру мне нужно значение поставить в столбик который за экраном ведя прокрутку сбиваешься со строчки.

так вот я пытаюсь написать макрос который подсветит всю строку по выделенной ячейке, но не будет снимать уже закрашенные области

так вот я пытаюсь написать макрос который подсветит всю строку по выделенной ячейке, но не будет снимать уже закрашенные области exzor

Сообщение нет все равно не получается удалив строчки о которых вы сказали.
у меня на первом скриншоте залиты области мне надо чтоб они также оставались после того как я перемещусь по ячейкам
а получается что либо все области снимется окрас остается либо на оборот увеличиваеться дополнительными строками

так вот я пытаюсь написать макрос который подсветит всю строку по выделенной ячейке, но не будет снимать уже закрашенные области Автор — exzor
Дата добавления — 25.09.2019 в 16:34

Источник

Adblock
detector

Источник

You can use the following methods in VBA to highlight rows:

Method 1: Highlight Active Row

Sub HighlightActiveRow()
ActiveCell.EntireRow.Interior.Color = vbYellow
End Sub

This particular macro will highlight the currently active row.

Method 2: Highlight Specific Row

Sub HighlightSpecificRow()
Rows("4:4").Interior.Color = vbYellow
End Sub

This particular macro will highlight row 4 in the current sheet.

Method 3: Highlight Several Specific Rows

Sub HighlightSpecificRows()
Range("2:2,4:4,6:6,8:8").Interior.Color = vbYellow
End Sub

This particular macro will highlight rows 2, 4, 6, and 8 in the current sheet.

Note: To highlight all rows between 2 and 8, you can type Range(“2:8”) instead.

The following examples show how to use each method in practice.

Example 1: Highlight Active Row

Suppose we currently have cell B3 selected.

We can create the following macro to highlight each cell in the currently active row

Sub HighlightActiveRow()
ActiveCell.EntireRow.Interior.Color = vbYellow
End Sub

When we run this macro, we receive the following output:

Notice that each cell in row three is highlighted and all other rows are simply left untouched.

Example 2: Highlight Specific Row

Suppose we would like to highlight row four only.

We can create the following macro to do so:

Sub HighlightSpecificRow()
Rows("4:4").Interior.Color = vbYellow
End Sub

When we run this macro, we receive the following output:

Notice that each cell in row four is highlighted and all other rows are simply left untouched.

Example 3: Highlight Several Specific Rows

Suppose we would like to highlight rows 2, 4, 6, and 8 in the current sheet.

We can create the following macro to do so:

Sub HighlightSpecificRows()
Range("2:2,4:4,6:6,8:8").Interior.Color = vbYellow
End Sub

When we run this macro, we receive the following output:

Notice that rows 2, 4, 6, and 8 are all highlighted and all other rows are left untouched.

Note: In each example we chose to use yellow (vbYellow) as the highlight color, but you can choose a different color such as vbRed, vbGreen, vbBlue, etc.

Additional Resources

The following tutorials explain how to perform other common tasks in VBA:

VBA: How to Highlight Cells
VBA: How to Apply Conditional Formatting to Cells
VBA: How to Apply Conditional Formatting to Duplicate Values

Источник

This macro will highlight the row and column of the active cell. This will fill the row of the active cell with a solid background color and remove the color when a different cell is selected within the excel spreadsheet. Anytime you select a different cell, the new column and row will be highlighted. This is a great macro for zeroing in on a specific cell during a presentation or just when working in a really big spreadsheet. Also, if you remove the gridlines from the spreadsheet, it can be hard to determine which row or column a cell is in and this will allow you to figure that out much quicker.

This macro will overwrite any previous color in the selected cell and row. That means that if you have a worksheet with a lot of background colors and you use this macro and start selecting cells, the previous background colors will disappear.

To change the color of the highlight change the number in this line of code .ColorIndex = 6.

Where to install the macro: Worksheet

Highlight the Row of the Selected Cell

Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)

Static rr

If rr <> "" Then
 With Rows(rr).Interior
  .ColorIndex = xlNone
 End With
End If

r = Selection.Row
rr = r

With Rows(r).Interior
 .ColorIndex = 6
 .Pattern = xlSolid
End With

End Sub

Excel VBA Course — From Beginner to Expert

200+ Video Lessons
50+ Hours of Instruction
200+ Excel Guides

Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)

View Course

Excel VBA Course — From Beginner to Expert

200+ Video Lessons

50+ Hours of Video

200+ Excel Guides

Become a master of VBA and Macros in Excel and learn how to automate all of your tasks in Excel with this online course. (No VBA experience required.)

View Course

Источник

Уважаемые форумчане.
Есть программы выделения строк цветом

Код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone

With Target.EntireRow.Interior
.ColorIndex = 37
.Pattern = xlGray25
.PatternColorIndex = 24
End With
End Sub
или

Код:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count <= 2500 Then
‘ Проверка на количество ячеек. Слишком большое количество
‘ выделенных ячеек замедляет работу, т.к. при выполнении макроса
‘ определяется адрес каждой выделенной ячейки.
ActiveSheet.Cells.FormatConditions.Delete
Dim RSMin As Integer
Dim CSMin As Integer
Dim RSMax As Integer
Dim CSMax As Integer
‘ ———начало блока————
For Each Target In Selection.Cells
If RSMin = 0 Then RSMin = Target.Row
If CSMin = 0 Then CSMin = Target.Column
If Target.Row < RSMin Then
RSMin = Target.Row
ElseIf Target.Row > RSMax Then
RSMax = Target.Row
End If
If Target.Column < CSMin Then
CSMin = Target.Column
ElseIf Target.Column > CSMax Then
CSMax = Target.Column
End If
Next
‘———конец блока—————
‘ определяются максимальные и минимальные
‘ срока и столбец выделенного блока
‘———начало блока————-
With Range(Cells(RSMin, 1), Cells(RSMax, 256))
.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
.FormatConditions(1).Interior.ColorIndex = 40
End With
‘———конец блока—————
‘ выделяются сроки выделенного диапазона
‘———начало блока—————
‘With Range(Cells(1, CSMin), Cells(65000, CSMax))
‘.FormatConditions.Delete
‘.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
‘.FormatConditions(1).Interior.ColorIndex = 36
‘End With
‘———конец блока—————
‘ выделяются столбцы выделенного диапазона
‘———начало блока—————
With Range(Cells(RSMin, CSMin), Cells(RSMax, CSMax))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
.FormatConditions(1).Interior.ColorIndex = 34
End With
‘———конец блока—————
‘ выделяется выделенный диапазон
Else
End If
End Sub
При этом изменяется цвет (как свойство) ячейки. И не работает режим копирование/вставка.

Возможны ли такие действия:
1. Кликаем на ячейку (активация) .
2. «Подсвечиваетя» вся строка.
3. Копируем значение из выделенной ячейки и вставляем в другую ячейку. Или не только значение, но и все параметры ячейки которыми она обладала до подсвечивания строки?

Т.е. раскраска листа должна оставаться неизменной. А подсвечивание должно помогать только ориентироваться в записях и давать возможность работать в режиме копирование/вставка.

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

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Где-то близко по смыслу — «Координатное выделение»: http://www.planetaexcel.ru/tip.php?aid=61

vikttur,
спасибо за отклик!

{quote}{login=vikttur}{date=18.01.2011 12:29}{thema=}{post}Где-то близко по смыслу — «Координатное выделение»:

http://www.planetaexcel.ru/tip.php?aid=61

{/post}{/quote}

Здесь не работает копирование ячеек. Т.е. после копирования значения и перехода на новую ячейку в меню (Excel — Правка) Вставка не подсвечена (пропадает ее активация). Хотя в буфере скопированное значение еще есть. Вопрос в том и состоит — как оставить функцию Вставка из меню Excel?

nilem Пользователь Сообщений: 837 Регистрация: 23.12.2012	Вот посмотрите такой примерчик (автор неизвестен).

1) использованная вами конструкция
For Each Target In Selection.Cells
некорректна

для Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target = Selection
то есть Target это передаваемая в модуль обработки события
информация о том какой объект вызвал данное событие.
Для Worksheet_SelectionChange это все выбранные ячейки
Если Вы хотите что-то сделать с выбранными ячейками (Selection=Target)
For Each Mycell In target.Cells ….

2) Назначение условного форматирования для строк выбранных ячеек
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Cells.FormatConditions.Delete
‘если Выбранное.Строки.количество < 11
if Target.rows.count < 11
‘c Выбранное.CтрокиПолностью
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
.FormatConditions(1).Interior.ColorIndex = 40
End With
end if
……

{quote}{login=Sergey11222}{date=18.01.2011 10:46}{thema=Re: }{post}
Здесь не работает копирование ячеек. ….?{/post}{/quote}

Собственно, по моим догадкам, тредстартера мучает вопрос::

Какие команды VBA в модуле
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
могут привести к запрету вставки в выбранные ячейки
после выполнения обработки события selection.CanPaste = false
И что делать для того чтобы сохранить возможность вставки стандартными средствами экселя, если без данных команд не обойтись….

?????????????????????????????????????????????????????????
химмаш-сортировка-транзит

	{quote}{post} И что делать …. {/post}{/quote}

{quote}{post}

dl,
Мне не понятен Ваш пост. Поясните, пожалуйста Ваше предложение.

	Нечто похожее видел. В данном примере формулы по краям диапазона стоят?

Казанский, спасибо за отклик.

Внизу на сайте есть заметка:

Несколько пользователей, прежде всего пользователи с европейскими версиями Excel, сообщили, что RowLiner приводит Excel к отказу. Причина этого неизвестна. Я работал с инженерами службы поддержки Microsoft, чтобы разрешить эту проблему, но Microsoft не может определить природу или причину катастрофического отказа.

А у Вас есть рекомендации по использованию этой программы? Или Ваши рекомендации?

Есть еще одно небольшое ограничение:

RowLiner отключит опцию Отмены. Это — ограничение, наложенное базовой конструкцией Excel, и не может быть изменено.

Уважаемые форумчане, а есть ли вообще таковая возможность в Excel? Подсветить строку и скопировать/вставить из ячеки значение?

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

Sergey11222, смущает вот что: Вам нужно после процедуры посдветки/копирования/вставки — вернуть в строку «старое» форматирование. А для этого нужно запомнить куда-то значение заливки (как минимум) для каждой (КАЖДОЙ) ячейки строки. Оно того стоит?

Юрий М,
Все ячейки запоминать не требуется.
Последовательность действий следующая:
1. Активируется одна ячейка.
2. «Подсвечивается» вся строка, в которой находится эта ячейка.
3. Копируется значение активированной ячейки.
4. Вставляется значение в другую ячейку.
Между п.3 и п.4 становится недоступным меню вставить, хотя в буфере обмена скопированное значение есть. Вот как вытащить это значение в Excel. Или как-то иначе?

Юрий М

Модератор

Сообщений: 60577
Регистрация: 14.09.2012

Контакты см. в профиле

Вы сами себе противоречите:
{quote}{login=Sergey11222}{date=17.01.2011 11:33}{thema=Выделение строк цветом}{post} раскраска листа должна оставаться неизменной.{/post}{/quote}
Ведь после подсветки, если это заливка, поменяется форматирование ВСЕЙ строки.

Так Вы попробовали RowLiner, или пребываете в сомнениях и раздумиях?
Я проверил — копировать и вставлять он позволяет.
Что касается того, что RowLiner может приводить Excel к отказу — так Excel и сам по себе падает (причем, по моему опыту, 2007 гораздо чаще, чем 2000). И ничего, все работают. Включите автосохранение.

Юрий М Модератор Сообщений: 60577 Регистрация: 14.09.2012 Контакты см. в профиле	Ещё — смотрели ли файл, который предложил nilem?

	Не совсем так. При копировании и последующем переходе на новую ячейку формат строки восстанавливается.

	Казанский, спасибо за рекомендацию. Обязательно попробую

{quote}{login=Sergey11222}{date=19.01.2011 10:26}{thema=Re: canpaste = могу_вставить? Уточнение вопроса…..}{post}{quote}{post}

dl,
Мне не понятен Ваш пост. Поясните, пожалуйста Ваше предложение.{/post}{/quote}

ТОЖДЕСТВЕННО РАВНО ВАШЕМУ
«Между п.3 и п.4 становится недоступным меню вставить»
С ОДНИМ УТОЧНЕНИЕМ
«По какой причине?»
естественный ответ на этот вопрос —
в ходе выполнения кода эксель сбрасывает возможность вставки, это произойдёт на вполне определённой строке кода.

на пальцах
делаете пустой модуль
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
end sub
он будет обрабатываться при любом новом выборе ячейки,
при этом меню вставки остаётся активным,
втавляете в модуль команду/оператор VBA
мой вопрос (не к Вам а ко всем)
кто нибудь знает после выполнения каких команд
произойдёт сбрасывание режима вставки.

	Казанский Да попробовал RowLiner, Отмена действительно не работает !?

	{quote}{login=Sergey11222}{date=20.01.2011 11:52}{thema=}{post}В дополнение{/post}{/quote} режим вставки у меня работает. код править не хотите? (см мой пост от 19.01.2011, 09:50)

{quote}{login=dl}{date=19.01.2011 09:50}{thema=target в event процедурах}{post}1) использованная вами конструкция
For Each Target In Selection.Cells
некорректна

Тогда не получилось сделать Вставку и сейчас не получается.
Подскажите, пожалуйста, что я сделал не так?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count <= 2500 Then
‘ Проверка на количество ячеек. Слишком большое количество
‘ выделенных ячеек замедляет работу, т.к. при выполнении макроса
‘ определяется адрес каждой выделенной ячейки.
‘ActiveSheet.Cells.FormatConditions.Delete
ActiveSheet.Cells.FormatConditions.Delete
‘если Выбранное.Строки.количество < 11
If Target.Rows.Count < 11 Then
‘c Выбранное.CтрокиПолностью
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
.FormatConditions(1).Interior.ColorIndex = 40
End With
End If

Dim RSMin As Integer
Dim CSMin As Integer
Dim RSMax As Integer
Dim CSMax As Integer
‘ ———начало блока————
For Each Mycell In Target.Cells
If RSMin = 0 Then RSMin = Target.Row
If CSMin = 0 Then CSMin = Target.Column
If Target.Row < RSMin Then
RSMin = Target.Row
ElseIf Target.Row > RSMax Then
RSMax = Target.Row
End If
If Target.Column < CSMin Then
CSMin = Target.Column
ElseIf Target.Column > CSMax Then
CSMax = Target.Column
End If
Next
‘———конец блока—————
‘ определяются максимальные и минимальные
‘ срока и столбец выделенного блока
‘———начало блока————-
With Range(Cells(RSMin, 1), Cells(RSMax, 256))
.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
.FormatConditions(1).Interior.ColorIndex = 40
End With
‘———конец блока—————
‘ выделяются сроки выделенного диапазона
‘———начало блока—————
‘With Range(Cells(1, CSMin), Cells(65000, CSMax))
‘.FormatConditions.Delete
‘.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
‘.FormatConditions(1).Interior.ColorIndex = 36
‘End With
‘———конец блока—————
‘ выделяются столбцы выделенного диапазона
‘———начало блока—————
With Range(Cells(RSMin, CSMin), Cells(RSMax, CSMax))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
.FormatConditions(1).Interior.ColorIndex = 34
End With
‘———конец блока—————
‘ выделяется выделенный диапазон
Else
End If
End Sub

то что получилось у меня вместо вашего кода
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

‘удаление всего условного форматирования
ActiveSheet.Cells.FormatConditions.Delete

If Target.Cells.Count <= 2500 Then
‘если количество выбранных строк < 11
‘выделяются строки выделенного диапазона
If Target.Rows.Count < 11 Then
With Target.EntireRow
.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
.FormatConditions(1).Interior.ColorIndex = 40
End With
End If
‘если количество выбранных столбцов < 11
‘выделяются столбцы выделенного диапазона
If Target.Columns.Count < 11 Then
With Target.EntireColumn
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
.FormatConditions(1).Interior.ColorIndex = 36
End With
End If
‘выделение выбранного диапазона
With Target
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=»=1″
.FormatConditions(1).Interior.ColorIndex = 34
End With

Else
End If
End Sub

	на рисунке показано что у меня (правда это 2010) копирование вставка работают

	Нет в 2003 не работает. А Вы в 2010 вставить нажать пробовали? Срабатывает?

dl Гость	#30 20.01.2011 17:13:23 у меня всё работает выделяю ячейку через правую кнопку мыши копирую перехожу на другую ячейку (выделение строк и столбцов корректно обрабатывается) через правую кнопку мыши вставляю (операцию вставки могу повторить сколько угодно раз) могу даже через меню вставки вставить ячейки со сдвигом.

Источник

Свойство .Interior.Color объекта Range

Заливка ячейки цветом в VBA Excel

Вывод сообщений о числовых значениях цветов

Использование предопределенных констант

Цветовая модель RGB

Очистка ячейки (диапазона) от заливки

Свойство .Interior.ColorIndex объекта Range

Выделение активной ячейки, строки или столбца

Выделение активной ячейки

Выделение всей строки и столбца, содержащих активную ячейку

Выделение строки и столбца, содержащих активную ячейку, в текущей области

Об участнике

Поддержка и обратная связь

Выделение строки цветом vba excel

Выделение строки цветом vba excel

Example 1: Highlight Active Row

Example 2: Highlight Specific Row

Example 3: Highlight Several Specific Rows

Additional Resources

Where to install the macro: Worksheet

Highlight the Row of the Selected Cell

Excel VBA Course — From Beginner to Expert

Excel VBA Course — From Beginner to Expert

А вот еще интересные статьи: