изменение диаграммы диапазон данных при изменении диапазона динамических данных?

Question

Я создал динамический диапазон имен на моем листе, который называется grafiekrange (chartrange in голландский). I Создал диаграмму и где вы выбираете диапазон данных диаграммы, я набрал: ='blad1'!grafiekrange, потому что blad1 - это имя рабочего листа, в котором находится диапазон имен.

Я нажимаю ok, и диаграмма соединена с диапазоном ячеек, на которые в данный момент ссылается имя. Когда диапазон от диапазона имен расширяется, диапазон данных для диаграммы все тот же. Итак, когда я подключаю диаграмму к , имя range, excel каким-то образом преобразует диапазон имен в жестко закодированный диапазон ячеек; например $A$1:$H$10 вместо 'blad1'!grafiekrange.

Я нашел некоторый код vba, который является чем-то вроде обходного пути, но это обходное решение удаляет диаграмму и создает новую при каждом изменении на листе.

это код листа:

Option Explicit 

Private Sub Worksheet_Change(ByVal Target As Range) 
With ActiveSheet 
.ChartObjects.Delete 
End With 
Call CreateChart 
End Sub 

это код в модуле:

Option Explicit 
'========================================================================= 
Sub CreateChart() 
    Dim objChart As ChartObject 
    Dim myChtRange As Range 
    Dim myDataRange As Range 
    With ActiveSheet 
    ' What range should chart cover 

    Set myChtRange = Range("chtArea") 'Range("G2:Q30") 
    ' What range contains data for chart 


    Set myDataRange = Range("grafiekrange") 


    ' Cover chart range with chart 
    Set objChart = .ChartObjects.Add(_ 
     Left:=myChtRange.Left, Top:=myChtRange.Top, _ 
     Width:=myChtRange.Width, Height:=myChtRange.Height) 
    ' Put all the right stuff in the chart 
    With objChart.Chart 
     .ChartArea.AutoScaleFont = False 
     .ChartType = xlLine 
     .SetSourceData Source:=myDataRange, PlotBy:=xlRows 
      .HasTitle = True 
      .ChartTitle.Characters.Text = "YTD Afzetontwikkeling (cumulatief) bij AS Watson (KV+TP)" 
     .ChartTitle.Font.Bold = True 
     .ChartTitle.Font.Size = 12 
     With .Axes(xlValue, xlPrimary) 
     .HasTitle = False 
     End With 
    End With 
    End With 
    End Sub 
    '========================================================================= 

Создание новой диаграммы на каждом изменении не совсем то, что Я хотел, но если он делает то, что я хочу, неважно, как это работает. Однако, я хотел бы иметь 2 серии с определенным форматированием. Первые 2 серии должны иметь тире. Я использовал макрорекордер, чтобы посмотреть, как это работает, и попытался реализовать это в коде выше. Но у меня не было рабочего кода.

это код записи макросов возвращается:

Sub Macro3() 
' 
' Macro3 Macro 
' 

' 
ActiveSheet.ChartObjects("Grafiek 29").Activate 
ActiveChart.Axes(xlValue).MajorGridlines.Select 
ActiveChart.SeriesCollection(1).Select 
With Selection.Format.Line 
    .Visible = msoTrue 
    .DashStyle = msoLineDash 
End With 
End Sub 

Мой вопрос: вы можете либо помочь мне реализовать ряд форматирования в коде выше, или предоставить мне код, который просто обновляет диапазон данных на каждое изменение (для меня это звучит более эффективно, но я не знаю, как это сделать). большое спасибо заранее.

Я пытался что-то сам, но это не данные диаграммы и каким-то образом, теперь возвращает ошибку, когда я первый не сделал:

Option Explicit 

Private Sub Worksheet_Change(ByVal myrange As Range) 

Set myrange = grafiekrange 

    With ActiveSheet.ChartObjects("Grafiek 35") 

    ActiveChart.SetSourceData Source:="myrange" 

    End With 

End Sub 

Answer 1

Я не знаю, что я изменился, но у меня есть метод работы. Я добавил этот код в модуль:

Option Explicit 
'========================================================================= 
Sub CreateChart() 
Dim objChart As ChartObject 
Dim myChtRange As range 
Dim myDataRange As range 
With ActiveSheet 
' What range should chart cover 

    Set myChtRange = range("chtArea") 'Range("G2:Q30") 
' What range contains data for chart 


Set myDataRange = range("grafiekrange") 


' Cover chart range with chart 
Set objChart = .ChartObjects.Add(_ 
    Left:=myChtRange.Left, Top:=myChtRange.Top, _ 
    Width:=myChtRange.Width, Height:=myChtRange.Height) 
' Put all the right stuff in the chart 
With objChart.Chart 
    .ChartArea.AutoScaleFont = False 
    .ChartType = xlLine 
    .SetSourceData Source:=myDataRange, PlotBy:=xlRows 
      .HasTitle = True 
      .ChartTitle.Characters.Text = "YTD Afzetontwikkeling (cumulatief) bij AS Watson (KV+TP)" 
    .ChartTitle.Font.Bold = True 
    .ChartTitle.Font.Size = 12 
    With .Axes(xlValue, xlPrimary) 
     .HasTitle = False 
    End With 
End With 
End With 
End Sub 
'========== 

, а затем в листе у меня есть этот сабвуфер:

Option Explicit 
Private Sub Worksheet_Change(ByVal myrange As range) 
Dim grafiekrange As range 

Set myrange = grafiekrange 

With ActiveSheet.ChartObjects("Grafiek 3").Activate 

ActiveChart.SetSourceData Source:=range("grafiekrange") 

End With 

End Sub 

И на листе у меня есть несколько именованных диапазонов из которых grafiekrange используется в настоящее время. это именованный диапазон имеет следующую формулу:

=VERSCHUIVING(Blad4!$A$1;0;0;AANTALARG(Blad4!$A:$A)+1;AANTAL.ALS(Blad4!$1:$1;"YTD*")+1)

где:

VERSCHUIVING = OFFSET()

AANTAL.ALS = COUNTIF

AANTALARG = COUNTA

И сейчас это работает.

Теперь у меня есть только найти решение для размещения диаграммы при каждом изменении (который входит уже в коде выше)

Answer 2

Я не могу поверить, что Вставить таблицу убивает формулы, но так или иначе.

Если ='blad1'!grafiekrange получает правильные данные диаграммы, а затем положить следующий макрос в модуль:

Sub setSelectedChartSourceData() 
Dim oChart As Chart 

On Error Resume Next 'If Selection is not the CharArea, then next line throws error. 

Set oChart = Selection.Parent 
oChart.SetSourceData Source:=Range("blad1!grafiekrange") 

On Error GoTo 0 'Set Error handling to default. 

End Sub 

Вы можете назначить сочетание клавиш для макроса. [Ctrl] + [Shift] + [D] для ex.

Теперь, если данные диаграммы и данные именованного диапазона изменены, выберите диаграмму и нажмите [Ctrl] + [Shift] + [D] или запустите макрос SetSelectedChartSourceData другим способом.

Привет

Axel