Работа с цветом ячеек

[tibhar940]

Сообщение от DiemonStar

всё прекрасно работает:

Public Function Test() As String
  Test = "Test"
End Function

наверное, вам стоит ссылки на функции переделать - там должно быть описание книги макросов

Спасибо. Я без ссылки на личную книгу макросов делал просто. Не знал этого просто.

[tibhar940]

А подскажите еще один момент.
Хочу сделать тоже самое, но не суммировать, а связать ячейки выделенного цвета. Пока выходит так.. Но не работает. Подскажите что не так делаю.

Public Function ЦВЕТ_ЗАПЯТ(Диапазон_суммирования As Range, Цвет_берется_из_ячейки As Range)
For Each cll In Диапазон_суммирования.Cells
If cll.Interior.ColorIndex = Цвет_берется_из_ячейки.Interior.ColorIndex Then
ElseIf Диапазон_суммирования.Rows.Count > Диапазон_суммирования.Columns.Count Then
summa = summa + cll.Value
Else: ЦВЕТ_ЗАПЯТ = summa.Join(Application.Transpose(Application.Transpose(rg)), ",")
End If
Next

End Function