Создание диаграммы с процентилями - PullRequest
Новая
       6

Создание диаграммы с процентилями

0 голосов
/ 06 января 2020

Можно ли создать диаграмму рассеяния с процентилями (20-й и 80-й) без добавления дополнительных столбцов?

Мне нужно создать несколько диаграмм рассеяния с 20-м и 80-м процентилями для нескольких параметров в одной электронной таблице. В настоящее время я добавляю два дополнительных столбца помимо столбцов с данными и вычисляю процентили в этих столбцах.

Мне было интересно, есть ли формула, которую я могу использовать в макросе vba, который добавляет строку для процентилей без необходимости добавлять столбцы

Это мой текущий VBA, если он помогает 

Sub Graph()

' Creates scatter chart with provided limit/percentile values
'

    Dim my_range    As Range, t

    t = Selection.Cells(1, 1).Value + " - " + ActiveSheet.Name

    Dim OldSheet As Worksheet
    Set OldSheet = ActiveSheet

    Set my_range = Union(Selection, ActiveSheet.Range("A:A"))
    ActiveSheet.Shapes.AddChart2(201, xlLine).Select
    With ActiveChart
        .FullSeriesCollection(1).ChartType = xlLine
        .FullSeriesCollection(1).AxisGroup = 1
        .FullSeriesCollection(2).ChartType = xlLine
        .FullSeriesCollection(2).AxisGroup = 1
        .FullSeriesCollection(1).ChartType = xlXYScatter
        .FullSeriesCollection(1).AxisGroup = 1
        .HasTitle = True
        .ChartTitle.Text = t
        .Location Where:=xlLocationAsObject, Name:="Graphs"
    End With
    OldSheet.Activate

End Sub
...