Помогите отредактировать макрос, чтобы выделялась только строка.
Код |
---|
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) Dim WorkRange As Range, CrossRange As Range Set WorkRange = Range("A1:H36") 'адрес рабочего диапазона с таблицей If Target.Count > 1 Then WorkRange.FormatConditions.Delete Exit Sub End If Application.ScreenUpdating = False If Not Intersect(Target, WorkRange) Is Nothing Then Set CrossRange = Intersect(WorkRange, Union(Target.EntireRow, Target.EntireColumn)) WorkRange.FormatConditions.Delete CrossRange.FormatConditions.Add Type:=xlExpression, Formula1:="=1" CrossRange.FormatConditions(1).Interior.ColorIndex = 15 Target.FormatConditions.Delete End If End Sub |