границы или конкретные значения цветов на 100+ значений

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » границы или конкретные значения цветов на 100+ значений (Макросы/Sub)

Frai5

Дата: Пятница, 06.01.2017, 15:16 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

В общем, есть такой код который закрышивает количество ячеек в строке, в зависимости от предыдущего числа, и закрашивает разными цветами.

Вот только совсем уже голову сломала, как сделать границы на эти окрашенные ячейки, ну или чтобы цвета в ячейках все время были одни и теже ???
т.е. стоит число 9 в начале строки, закрашивает 9 ячеек после него в строке, но при перезапуске макроса цвет заливки то серый, то зеленый. З.Ы. Строк будет больше 100. Если границы, то все 9 ячеек должны быть обведенфы одной общей.
[vba]

Код

Sub plan() ' çàêðàñèòü ÿ÷åéêè
Dim r As Long

r = 3     ' íà÷àòü ñ òðåòüåé ñòðîêè

Do While Application.Trim(Cells(r, 3)) <> ""
    Cells(r, 4).Resize(1, CInt(Cells(r, 3))).Interior.Color = RGB(Int(Rnd * 255), Int(Rnd * 255), Int(Rnd * 255))

    If Int(Cells(r, 3)) <> Cells(r, 3) Then
        Cells(r, 4).Offset(0, CInt(Cells(r, 3))).Interior.ColorIndex = 40

    End If
    r = r + 1

Loop

End Sub

[/vba]