VBA закрашивание ячеек в зависимости от числа

[Frai5]

ну вот, задача такая: надо закрасить количество ячеек в зависимости от написанных ранее чисел. Числа в столбец, ячейки должны окрашиваться в строку. Т.е., число 3 - закрасилось 3 ячейки в строке, 235 - 235 ячеек. Можно чтобы они были одного цвета, но, желательно с подписью(числом).

есть один готовый код, но он у меня даже не запускается

Private Sub ny(ByVal Target As Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, Range("A1:N20")) Is Nothing Then
        If IsNumeric(Target.Value) Then
            Range(Target, Target.Offset(, Target.Value - 1)).Interior.ColorIndex = Target.Value + 2
        End If
    End If
End Sub

[Aleksandr H.]

Frai5 нарисуй в екселе что хочешь получить. По описанию непонятно

Числа в столбец, ячейки должны окрашиваться в строку.

как это в строку? или же в строке?

Можно чтобы они были одного цвета, но, желательно с подписью(числом).

чего?

[Frai5]

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

[Aleksandr H.]

Sub fa()
 Dim r As Long
 r = 2
 Cells.ClearFormats
 Do While Application.Trim(Cells(r, 3)) <> ""
    Cells(r, 3).Resize(1, CInt(Cells(r, 3))).Interior.ColorIndex = 6
    If Int(Cells(r, 3)) <> Cells(r, 3) Then
        Cells(r, 3).Offset(0, CInt(Cells(r, 3))).Interior.ColorIndex = 8
    End If
    r = r + 1
 Loop
End Sub

[Frai5]

ого) супер! а можно еще как-то сделать, чтобы в каждой строке именно сами закрашенные ячейки были обведены границей?

[Aleksandr H.]

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

чтобы в каждой строке именно сами закрашенные ячейки были обведены границей?

каждая ячейка или только внешняя граница? Запомните, все что хотите получить надо так формулировать что-бы не возникало вопросов, лучше все это делать как с скрином - нарисовал в екселе, "вот, хочу такое", и люди видят что именно хочется

[Frai5]

1. вот такая граница, не на каждую ячеку, а на каждую строку.
2. еще одна проблемка - если все форматирую, а потом нажимаю "заливку" то заливает все новыми цветами (это тоже видно на скрине на второй "табличке"). Хотелось бы чтобы цвета не менялись! НО в итоге колонок будет больше 56, поэтому не подходит.

For i = 1 To 56  
Cells(i, 2).Interior.ColorIndex = i

https://drive.google.com/open?id=0Bz...3ZqcmJoblZYb3M

[Frai5]

и знаете, в предыдущем коде сейчас нашла ошибку.
Если число 2,3 - красит два квадрата +1, а вот если уже 5,9 - красит 6 квадратов +1, что неправильно

[Aleksandr H.]

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

Если число 2,3 - красит два квадрата +1, а вот если уже 5,9 - красит 6 квадратов +1, что неправильно

Sub fa()
 Dim r As Long
 r = 2
 Cells.ClearFormats
 Do While Application.Trim(Cells(r, 3)) <> ""
   Cells(r, 3).Resize(1, Int(Cells(r, 3))).Interior.ColorIndex = 6
    If Int(Cells(r, 3)) <> Cells(r, 3) Then
        Cells(r, 3).Offset(0, Int(Cells(r, 3))).Interior.ColorIndex = 8
        With Range(Cells(r, 3), Cells(r, 3).Offset(0, Int(Cells(r, 3))))
            .Borders.LineStyle = xlContinuous
            .Borders.Weight = xlThin
            .Borders(xlEdgeLeft).Weight = xlMedium
            .Borders(xlEdgeTop).Weight = xlMedium
            .Borders(xlEdgeBottom).Weight = xlMedium
            .Borders(xlEdgeRight).Weight = xlMedium
            .Borders(xlInsideVertical).LineStyle = xlNone
            .Borders(xlInsideHorizontal).LineStyle = xlNone
        End With
    Else
        With Cells(r, 3).Resize(1, Int(Cells(r, 3)))
            .Borders.LineStyle = xlContinuous
            .Borders.Weight = xlThin
            .Borders(xlEdgeLeft).Weight = xlMedium
            .Borders(xlEdgeTop).Weight = xlMedium
            .Borders(xlEdgeBottom).Weight = xlMedium
            .Borders(xlEdgeRight).Weight = xlMedium
            .Borders(xlInsideVertical).LineStyle = xlNone
            .Borders(xlInsideHorizontal).LineStyle = xlNone
        End With

    End If
    
    r = r + 1
 Loop
End Sub

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

2. еще одна проблемка - если все форматирую, а потом нажимаю "заливку" то заливает все новыми цветами (это тоже видно на скрине на второй "табличке"). Хотелось бы чтобы цвета не менялись! НО в итоге колонок будет больше 56, поэтому не подходит.

непонятно

[Frai5]

проблема с дробными решилась))) а с цветами(лучше все-таки для восприятия заливать все разными цветами), посмотрите на скрин:

для примера я выбрала четвертую строку, подпись D4 - ту-18 - ячейки получились такого сиреневого цвета.
Я скопировала эту строку и перенесла ее на E25. Когда я отформатировала заполненные ячейки, а потом залила снова - цвет ячеек ту-18 поменялся - стал баклажановый. Ну а для второй таблички у меня никаких макросов, ничего.

Т.е. - проблема - если я форматирую первую таблицу, цвета в ней меняются, во второй же таблице не меняются.
Решение - 1) как-то присвоить строкам в первой таблице постоянные значения цвета
2) либо чтобы при измена цвета в первой таблице, автоматом менялись цвета во второй.