Come creare un grafico in VBA di Excel

December 8

Come creare un grafico in VBA di Excel


Sapere come creare in modo dinamico i grafici con Visual Basic, Applications Edition consente di risparmiare tempo durante l'analisi di grandi quantità di dati. Microsoft Excel è comunemente utilizzato per raccogliere dati simili a un database di Access. Excel offre diversi tipi di grafici, come la torta, linea, colonna, e altri formati. Gli istogrammi sono spesso utilizzati in Excel per visualizzare graficamente le informazioni. Non è difficile creare grafici utilizzando VBA di presentare in modo chiaro e in modo più efficiente i dati.

istruzione

1 Aprire Microsoft Excel 2007 e fare clic sulla scheda "Sviluppatore". Selezionare "Visual Basic e digitare" createColumnChart Sub () "e premere" Invio "per creare una nuova sotto.

2 Tipo "Dim myChart Come Mostra

Range("A1").Select

ActiveCell.Value = "Dati Grafico 1"

Range ( "A2"). Selezionare

ActiveCell.Value = "1"

Range ( "A3"). Selezionare

ActiveCell.Value = "2"

Range ( "A4"). Selezionare

ActiveCell.Value = "3"

Range ( "A5"). Selezionare

ActiveCell.Value = "4"

Range ( "B1"). Selezionare

ActiveCell.Value = "Dati Grafico 2"

Range ( "B2"). Selezionare

ActiveCell.Value = "5"

Range ( "B3"). Selezionare

ActiveCell.Value = "6"

Range ( "B4"). Selezionare

ActiveCell.Value = "7"

Range ( "B5"). Selezionare

ActiveCell.Value = "8"

Range ( "B6"). Select "per dichiarare la variabile grafico e aggiungere alcuni dati per il grafico.

3 Digitare "Set myChart = Charts.Add" per aggiungere un nuovo grafico.

Tipo "Con myChart

.Name = "Chart Data"

.ChartType = XlColumnClustered

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

PlotBy: = xlRows

.HasTitle = True

.ChartTitle.Text = "= Sheet1! R1C2"

.Axes (XlCategory, xlPrimary) .HasTitle = True

.Axes (XlCategory, xlPrimary) .AxisTitle.Characters.Text = "Dati Grafico 1"

.Axes (XlValue, xlPrimary) .HasTitle = True

.Axes (XlValue, xlPrimary) .AxisTitle.Characters.Text = "Dati Grafico 2"

End With "per impostare le proprietà del grafico.

4 Tipo "End Sub", se necessario. Esegui il nuovo sub.

Consigli e avvertenze

  • Il vostro nuovo sub dovrebbe essere simile a questo:
  • "Sub createColumnChart ()
  • myChart Dim Come Mostra
  • Range ( "A1"). Selezionare
  • ActiveCell.Value = "Dati Grafico 1"
  • Range ( "A2"). Selezionare
  • ActiveCell.Value = "1"
  • Range ( "A3"). Selezionare
  • ActiveCell.Value = "2"
  • Range ( "A4"). Selezionare
  • ActiveCell.Value = "3"
  • Range ( "A5"). Selezionare
  • ActiveCell.Value = "4"
  • Range ( "B1"). Selezionare
  • ActiveCell.Value = "Dati Grafico 2"
  • Range ( "B2"). Selezionare
  • ActiveCell.Value = "5"
  • Range ( "B3"). Selezionare
  • ActiveCell.Value = "6"
  • Range ( "B4"). Selezionare
  • ActiveCell.Value = "7"
  • Range ( "B5"). Selezionare
  • ActiveCell.Value = "8"
  • Range ( "B6"). Selezionare
  • Set myChart = Charts.Add
  • con myChart
  • .name = "Dati Grafico"
  • .ChartType = XlColumnClustered
  • .SetSourceData Fonte: = Sheets ( "Sheet1") Range ( "A1: B5")., _
  • PlotBy: = xlRows
  • .HasTitle = True
  • .ChartTitle.Text = "= Sheet1! R1C2"
  • .Axes (XlCategory, xlPrimary) .HasTitle = True
  • .Axes (XlCategory, xlPrimary) .AxisTitle.Characters.Text = "Dati Grafico 1"
  • .Axes (XlValue, xlPrimary) .HasTitle = True
  • .Axes (XlValue, xlPrimary) .AxisTitle.Characters.Text = "Dati Grafico 2"
  • End With
  • End Sub "