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"