Без примера вряд ли кто что скажет, на вскидку скажу что возможно это можно сделать через 2 или скорее всего 8 отдельных рядов данных, нарастающие ряды красите в один цвет, убывающие в другой
Во вложении пример того что я хочу, но этот график построен не в Excel.
Это в какой же программе? Может оттуда можно скопировать/вставить диаграмму в Excel?
Без примера вряд ли кто что скажет, на вскидку скажу что возможно это можно сделать через 2 или скорее всего 8 отдельных рядов данных, нарастающие ряды красите в один цвет, убывающие в другой
Добрый день. Тоже нужно решение этой задачи. Может сейчас кно-нибудь сможет что-то предложить? Нужно чтобы на графике если линии вверх, то они были бы одним цветом, а если вниз - то другим.
Добрый день. Тоже нужно решение этой задачи. Может сейчас кно-нибудь сможет что-то предложить? Нужно чтобы на графике если линии вверх, то они были бы одним цветом, а если вниз - то другим.drugojandrew
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [C5:AA5]) Is Nothing Then ActiveSheet.ChartObjects("Äèàãðàììà 1").Activate For Each icell In [C5:AA5] ActiveChart.SeriesCollection(1).Points(icell.Column - 2).Select If icell.Value = 1 Then Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0) Else Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 255) End If Next End If End Sub
[/vba] Он сделан для книги "post_366838" Кто может подсказать, что в нем поменять, чтобы он работал для графика в книге "Primer"? (Обе книги приложены)
Нашел вот такой вот код:[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [C5:AA5]) Is Nothing Then ActiveSheet.ChartObjects("Äèàãðàììà 1").Activate For Each icell In [C5:AA5] ActiveChart.SeriesCollection(1).Points(icell.Column - 2).Select If icell.Value = 1 Then Selection.Format.Line.ForeColor.RGB = RGB(255, 0, 0) Else Selection.Format.Line.ForeColor.RGB = RGB(0, 0, 255) End If Next End If End Sub
[/vba] Он сделан для книги "post_366838" Кто может подсказать, что в нем поменять, чтобы он работал для графика в книге "Primer"? (Обе книги приложены)drugojandrew