Добрый день! Нашел на просторах способ выделить активную ячейку цветом, цвет можно поставить любой.
Но есть недостаток такого способа, при копировании в умную таблицу - меняется цвет ячеек. Как можно копировать ячейки без изменения цвета?
Код выделения цвета ячейки через RGB:
Данные в таблицу вводятся с помощью кода:
Таблица подхватывает значение, но после этого цвет ячейки уже нельзя поменять никак, только удалять строку.
Но есть недостаток такого способа, при копировании в умную таблицу - меняется цвет ячеек. Как можно копировать ячейки без изменения цвета?
Код выделения цвета ячейки через RGB:
Код |
---|
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Cells.FormatConditions.Delete With Target .FormatConditions.Add Type:=xlExpression, Formula1:=True .FormatConditions(1).Interior.Color = RGB(252, 252, 77) End With End Sub |
Код |
---|
Private Sub CommandButton2_Click() Dim iLastRow As Integer With Sheets("Отгрузки") ActiveCell.Copy iLastRow = .Cells(Rows.Count, 1).End(xlUp).Offset(0, 2).PasteSpecial ActiveCell.Select SendKeys ("{Enter}") End With End Sub |