Помогите отредактировать макрос, чтобы выделялась только строка.
| Код |
|---|
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
|
