Addera dataserier till diagram

I tipset Dynamiska dataserier visas hur vi mha formler och namn kan löpande addera ny data i en serie. För att addera ny dataserier krävs dock att vi använder oss av VBA. Här demonstreras en teknik för att få till tillstånd denna önskade lösning.

Koden kan kopieras och klistras in direkt i moduler eller så kan du hämta ett exempel här. 

 

Exemplet utgår från följande tabelluppställning och diagram:

 

I proceduren används cell J1 för att hålla reda på antal upptagna rader.  Radantalet utgår från senast använda radnumret och inte antalet dataserier. 

Option Explicit  Private Sub Worksheet_Change(ByVal Target As Range)    '© 2002 Alla rättigheter XL-Dennis    Dim rnAntalRader As Range      'Här definieras cellen som håller reda på antal använda rader.    Set rnAntalRader = Range("J1")     'Kontroll om den aktiva cellen är inom "tabellområdet".    If Target.Column < 9 Then       'Kontroll om den aktiva cellen är på samma rad som nästa tomma rad       '"i tabellområdet".       If Target.Row = rnAntalRader.Value + 1 Then          ' Utöka diagrammets område för källdata.          ChartObjects(1).Chart.SetSourceData Source:=Range("A1").CurrentRegion, _                PlotBy:=xlRows          rnAntalRader.Value = Range("A1").CurrentRegion.Rows.Count       End If    End If  End Sub