Прописывание имени столбца в зависимости от цвета ячейки - VBA

Формулировка задачи:

Привет все. Интересует как сделать так, чтобы прописывалось автоматически имя столбца в котором присутствует цветная ячейка в столбец B. Вообще это реально?

Решение задачи: «Прописывание имени столбца в зависимости от цвета ячейки»

textual
                            Листинг программы 
                        

                            Function Ma(hdr As Range, rng As Range) As String
Dim h(), c As Range, i&
  Application.Volatile
  h = hdr.Value
  For Each c In rng
    i = i + 1
    If c.Interior.ColorIndex <> xlColorIndexNone Then Ma = Ma & vbLf & h(1, i)
  Next
  Ma = Mid$(Ma, 2)
End Function
                        

Оцени полезность:

15 голосов , оценка 4.333 из 5

Похожие ответы