Gewusst wie: Erstellen eines Diagramms in Excel VBA

December 19

Gewusst wie: Erstellen eines Diagramms in Excel VBA

Zu wissen, wie dynamisch erstellen von Diagrammen mit Visual Basic, für Anwendungen Zeit sparen können, wenn Sie große Datenmengen zu analysieren. Microsoft Excel wird häufig verwendet, um Daten ähnlich einer Access-Datenbank zu sammeln. Excel bietet verschiedene Diagrammtypen wie z. B. Kreis-, Zeile, Spalte und andere Formate. Säulendiagramme werden in Excel häufig Informationen grafisch angezeigt. Es ist nicht schwierig, zum Erstellen von Diagrammen mit VBA Daten klar und effizient präsentieren.

Anweisungen

1 Öffnen Sie Microsoft Excel 2007, und klicken Sie auf die Registerkarte "Entwickler" und wählen Sie "Visual Basic"Sub createColumnChart()"und drücken Sie"Enter"eine neue Sub erstellen.

2 Geben Sie "Dim MyChart als Diagramm

Range("A1").Select

ActiveCell.Value = "Chart Data 1"

Range("A2").Select

ActiveCell.Value = "1"

Range("A3").Select

ActiveCell.Value = "2"

Range("A4").Select

ActiveCell.Value = "3"

Range("A5").Select

ActiveCell.Value = "4"

Range("B1").Select

ActiveCell.Value = "Chart Data 2"

Range("B2").Select

ActiveCell.Value = "5"

Range("B3").Select

ActiveCell.Value = "6"

Range("B4").Select

ActiveCell.Value = "7"

Range("B5").Select

ActiveCell.Value = "8"

Range("B6").Select" to declare the chart variable and add some data for your chart.3

Typ "Set MyChart = Charts.Add" ein neues Diagramm hinzufügen.

Geben Sie "mit myChart

.Name = "Chart Data"

.ChartType = xlColumnClustered

.SetSourceData Source:=Sheets("Sheet1").Range("A1:B5"), _

PlotBy:=xlRows

.HasTitle = True

.ChartTitle.Text = "=Sheet1!R1C2"

.Axes(xlCategory, xlPrimary).HasTitle = True

.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Chart Data 1"

.Axes(xlValue, xlPrimary).HasTitle = True

.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Chart Data 2"

Enden Sie mit"Diagrammeigenschaften festlegen.

4 Falls erforderlich, geben Sie "End Sub". Führen Sie Ihre neuen Sub.

Tipps & Warnungen

  • Ihre neue Sub sollte wie folgt aussehen:
  • "Sub createColumnChart()
  • Dim MyChart als Diagramm
  • Range("a1"). Wählen Sie
  • ActiveCell.Value = "Diagrammdaten 1"
  • Range("a2"). Wählen Sie
  • ActiveCell.Value = "1"
  • Range("a3"). Wählen Sie
  • ActiveCell.Value = "2"
  • Range("A4"). Wählen Sie
  • ActiveCell.Value = "3"
  • Range("a5"). Wählen Sie
  • ActiveCell.Value = "4"
  • Range("B1"). Wählen Sie
  • ActiveCell.Value = "Diagrammdaten 2"
  • Range("B2"). Wählen Sie
  • ActiveCell.Value = "5"
  • Range("B3"). Wählen Sie
  • ActiveCell.Value = "6"
  • Range("B4"). Wählen Sie
  • ActiveCell.Value = "7"
  • Range("B5"). Wählen Sie
  • ActiveCell.Value = "8"
  • Range("B6"). Wählen Sie
  • Set MyChart = Charts.Add
  • Mit myChart
  • . Name = "Diagrammdaten"
  • . ChartType = XlColumnClustered
  • . SetSourceData Source:=Sheets("Sheet1"). Range("a1:B5") _
  • PlotBy: = XlRows
  • . HasTitle = True
  • . ChartTitle.Text = "= Tabelle1! R1C2 "
  • . Achsen (XlCategory, XlPrimary). HasTitle = True
  • . Achsen (XlCategory, XlPrimary). AxisTitle.Characters.Text = "Diagrammdaten 1"
  • . Achsen (XlValue, XlPrimary). HasTitle = True
  • . Achsen (XlValue, XlPrimary). AxisTitle.Characters.Text = "Diagrammdaten 2"
  • Enden mit
  • EndSub"