Nwlapcug.com


Come creare un grafico in Excel VBA

Come creare un grafico in Excel VBA


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

Istruzioni

1

Aprire Microsoft Excel 2007 e fare clic sulla scheda "Sviluppatore" e selezionare "Visual Basic e il tipo di"Sub createColumnChart()"e premere"Invio"per creare un nuovo sub.

2

Digitare "Dim myChart come grafico

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

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

Digitare "con 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"

Terminare con"per impostare le proprietà del grafico.

4

Se necessario, digitare "End Sub". Eseguire il tuo nuovo sub.

Consigli & Avvertenze

  • Il tuo nuovo sub dovrebbe assomigliare a questo:
  • "Sub createColumnChart()
  • Dim myChart come grafico
  • Range("a1"). Selezionare
  • ActiveCell. Value = "1" dati del grafico
  • 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 = "2" dati del grafico
  • 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
  • Impostare myChart = Charts.Add
  • Con myChart
  • . Nome = "I dati del grafico"
  • . ChartType = xlColumnClustered
  • . SetSourceData Source:=Sheets("Sheet1"). Range("a1:B5") _
  • PlotBy: = xlRows
  • . HasTitle = True
  • . ChartTitle. Text = "= Foglio1! R1C2 "
  • . Assi (xlCategory, xlPrimary). HasTitle = True
  • . Assi (xlCategory, xlPrimary). AxisTitle.Characters.Text = "1" dati del grafico
  • . Assi (xlValue, xlPrimary). HasTitle = True
  • . Assi (xlValue, xlPrimary). AxisTitle.Characters.Text = "Data 2" del grafico
  • Terminare con
  • End Sub"