В общем, есть такой код который закрышивает количество ячеек в строке, в зависимости от предыдущего числа, и закрашивает разными цветами.
Вот только совсем уже голову сломала, как сделать границы на эти окрашенные ячейки, ну или чтобы цвета в ячейках все время были одни и теже ??? т.е. стоит число 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
В общем, есть такой код который закрышивает количество ячеек в строке, в зависимости от предыдущего числа, и закрашивает разными цветами.
Вот только совсем уже голову сломала, как сделать границы на эти окрашенные ячейки, ну или чтобы цвета в ячейках все время были одни и теже ??? т.е. стоит число 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
Чтобы цвета были одни и те же надо для каждого числа либо массив соответствия составлять, либо формулу. Сейчас у вас цвет случайным образом задается.
Чтобы цвета были одни и те же надо для каждого числа либо массив соответствия составлять, либо формулу. Сейчас у вас цвет случайным образом задается.Udik
вот вам барабан яд 41001231307558 wm R419131876897 udik1968@gmail.com