0 / 0 / 0
Регистрация: 14.12.2010
Сообщений: 32
|
|
1 | |
Выделение строк цветом18.01.2011, 23:00. Показов 2704. Ответов 0
Метки нет (Все метки)
Уважаемые форумчане.
Есть программы выделения строк цветом Код: Код
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. Копируем значение из выделенной ячейки и вставляем в другую ячейку. Или не только значение, но и все параметры ячейки которыми она обладала до подсвечивания строки? Т.е. раскраска листа должна оставаться неизменной. А подсвечивание должно помогать только ориентироваться в записях и давать возможность работать в режиме копирование/вставка.
0
|
18.01.2011, 23:00 | |
Ответы с готовыми решениями:
0
Автоматическое выделение цветом строк в таблице Выделение строк цветом,при достижении определенного времени до даты Выделение цветом ячеек Выделение ячейки цветом |
18.01.2011, 23:00 | |
18.01.2011, 23:00 | |
Помогаю со студенческими работами здесь
1
Автоматическое выделение ячейки цветом Выделение ячеек цветом по значению Выделение цветом найденную запись Выделение данных в ячейке цветом. Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |