Уважаемые форумчане.
Есть программы выделения строк цветом
Код:
1.
2.
3.
4.
5.
6.
7.
8.
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
или
Код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
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. "Подсвечиваетcя" вся строка.
3. Копируем значение из выделенной ячейки и вставляем в другую ячейку. Или не только значение, но и все параметры ячейки которыми она обладала до подсвечивания строки?
Т.е. раскраска листа должна оставаться неизменной. А подсвечивание должно помогать только ориентироваться в записях и давать возможность работать в режиме копирование/вставка.
