Здравствуйте! Подскажите как можно поправить данный макрос, чтобы не выделять диапазон какой хочу закрасить, а чтобы он был указан уже в макросе. И сразу в нем указать конкретный столбец по которому будет происходить условие закраски?
Код |
---|
Sub Highlight_Rows_Blocks()
Dim nCol As Integer
Dim nGr As Integer
nCol = Application.InputBox(Prompt:="Введите номер столбца", Type:=1)
If nCol < 1 Or nCol > Selection.Columns.Count Then Exit Sub
Selection.Interior.ColorIndex = -4142
For r = 1 To Selection.Rows.Count
If Selection.Cells(r, nCol) <> Selection.Cells(r - 1, nCol) Then nGr = nGr + 1
If nGr Mod 2 Then Selection.Rows(r).Interior.ColorIndex = 36
Next r
End Sub
|