У меня есть автоматизированная диаграмма Парето, которая хорошо работает в Excel.
Я хочу изменить его, чтобы проверить, имеют ли точки в совокупном процентном ряду значение менее 80% и закрасить ту же числовую точку в серии подсчета, если это так.
Попробовал это; не выдает никаких ошибок, но также не работает.
Я думаю, что он должен выполнять итерацию по списку значений, проверять, не являются ли они <80, а затем обновлять точку на соответствующем i в серии отсчетов. </p>
Set percVals = paretoChart.Chart.SeriesCollection(percentSeries).Values
For Each i in percVals
If percVals(i) = <80 Then
With paretoChart.Chart.SeriesCollection(countSeries).Points(i)
.Format.Fill.ForeColor.RGB = RGB(0,0,225)
.Format.Line.ForeColor.RGB = RGB(0,0,225)
End With
End If
Next i
Переменная "paretoChart" установлена ранее в коде и работает нормально во всем.
Я пробовал без заявления «с». Нет разницы.
Существует аналогичный вопрос, сравнивающий два значения в ряду, но я не думаю, что смогу приспособить это для работы здесь. Любые идеи приветствуются!