Страницы: 1
RSS
Определение первой и последней ячейки в столбце по определенному цвету
 
Добрый день, на просторах интернета есть много  статей как определить первую непустую ячейку, но не могу найти мли сам придумать как сделать Определение первой и последней ячейки в столбце по определенному цвету. Помогите с кодом ПЖЛСТ 🙏
 
Перебирать ячейки в столбце, сравнивать заливку с нужным цветом. Совпало - опа, вот и конец/начало.

На мой взгляд, лучше стараться от "цветных" условий уходить. Неоднозначность восприятия/внесения цвета может повлиять на логику.
Один человек видит желтый так, другой - сяк. У одного на машине такая цветовая схема, у другого - сякая. А в коде желтый - это конкретный цвет с конкретным индексом. А светло-желтый - другой индекс. А лимонно-желтый - третий. И т.д.
Кому решение нужно - тот пример и рисует.
 
Код
Sub ddd()
x = Application.InputBox("Выделите любую ячейку с искомым цветом", Type:=8).Interior.Color
Set y = Application.InputBox("Выделите нужный столбец", Type:=8)
c = y.Column
Set r = Intersect(y.Parent.Columns(c), y.Parent.UsedRange)
For Each Z In r
    If Z.Interior.Color = x Then
        n = n + 1
        If n = 1 Then nach = Replace(Z.Address, "$", "")
        kon = Replace(Z.Address, "$", "")
    End If
Next
MsgBox "Начало - ячейка: " & nach & vbLf & "Конец - ячейка: " & kon
End Sub
 
Бахтиёр,спасибо)) отлично работает. но я  не могу понять, что нужно сделать, чтобы при отсутствии такой заливки происходил goto на propysk
*propysk - это у меня в коде спец место, чтобы пропустить дальнейшие вычисления, если нет первой и последней строк после поиска
Страницы: 1
Наверх