Страницы: 1
RSS
Окрашивание ячейки из примечания
 
Доброго дня!
Прошу вашей помощи!
На листе нужно залить все ячейки с примечаниями цветом,  указанным в их же примечании
 
не совсем понятно в каком виде указан цвет в примечании  - RGB, словом или как-то еще?
 
залили соседи начали жаловаться, че делаем дальше
Лень двигатель прогресса, доказано!!!
 
Добрый день.

А в каком формате указан цвет в примечаниях?
Приложите файл пример (см. п. 2.3 правил форума)
 
Прошу прощения, не уточнил. Цвет в RGB
 
Сам формат не принципиален. в примере стоит код цвета заливки
 
чутку разобравшись с азами программирования, мне удалось поменять цвет из примечания, но только к выделенной ячейки, а мне нужно применить это к диапазону 40 на 40 ячеек, из которых часть пустых
Помогите пожалуйста
 
Не знаю, где находится Ваш диапазон 40х40, поэтому так:
Код
Sub цвета()
    Dim str As String, rCell As Range
    For Each rCell In ActiveSheet.UsedRange
        If Not rCell.Comment Is Nothing Then
            sTxt = rCell.Comment.Text
            With rCell.Interior
                .ColorIndex = Mid(sTxt, InStr(sTxt, ":") + 2)
                .Pattern = xlSolid
            End With
        End If
    Next
End Sub
 
Спасибо большое!!!
Страницы: 1
Наверх