Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
вернуть адрес ячейки или номер столбца и строки по цвету ячейки, пользовательская функция
 
#1
10.04.2019 09:46:44
здравствуйте. не могли бы написать функцию, которая вернула бы  адрес ячейки или номер столбца и строки по цвету ячейки. образец цвета в ячейке B2.
извиняюсь за прямоту. этот форум не интересует.  
Изменено: artyrH - 10.04.2019 09:50:50
 
 
 
#2
10.04.2019 10:03:27
Вводится в строку как формула массива
Код
Function АДРЕСЦВЕТ(iRng As Range, iClColor As Range)
Dim cl As Range, I&
Dim iArr$()
On Error Resume Next
ReDim iArr(0 To Application.Caller.Columns.Count)
For Each cl In iRng.Cells
    If cl.Interior.Color = iClColor.Interior.Color Then
        iArr(I) = cl.Address(0, 0)
        I = I + 1
    End If
Next
АДРЕСЦВЕТ = iArr
End Function
Изменено: Sanja - 10.04.2019 10:18:54
Согласие есть продукт при полном непротивлении сторон
 
 
 
#3
10.04.2019 10:20:45
Код
Function FindByColor(r As Range, c&)
    Dim arr$(), cell As Range, i&
    For Each cell In r.Cells
        If cell.Interior.Color = c Then
            If cell.MergeCells Then
                If cell.Address = cell.MergeArea(1, 1).Address Then
                    ReDim Preserve arr(i)
                    arr(i) = cell.MergeArea.Address
                    i = i + 1
                End If
            Else
                ReDim Preserve arr(i)
                arr(i) = cell.Address
                i = i + 1
            End If
        End If
    Next
    FindByColor = IIf(i, arr, [NA()])
End Function
Изменено: Андрей Лящук - 10.04.2019 10:23:26
 
 
 
#4
10.04.2019 10:43:29
Sanja, Андрей Лящук, спасибо большое
Андрей Лящук, только я так и не запустил функцию
 
 
 
#5
10.04.2019 10:52:22
Андрей Лящук, в ручную вписывать цифровое значение цвета - это не наш метод. ;)
 
 
 
#6
10.04.2019 11:07:26
V, теперь понятно
вот так работает
Код
=FindByColor(C6:I6;"&HFFFF")
 
 
 
Страницы: 1
Наверх