Home Hardware Networking Programmazione Software Domanda Sistemi
Conoscenza Informatica >> software >> Microsoft Access >> .

Come creare un grafico in Excel VBA

Sapere come creare dinamicamente 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 analoghi per un database di Access . Excel offre diversi tipi di grafici come la torta , linea , colonna , e altri formati . Istogrammi vengono 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 " sviluppatori" . Selezionare createColumnChart Sub " di base e di tipo visivo" ( ) " e premere" Invio "per creare una nuova sotto .
2

Tipo " Dim mychart Come Grafico

Range (" A1 " ) . Selezionare

ActiveCell.Value = " dati Grafico 1"

Range (" A2" ) . Selezionare

ActiveCell.Value = " 1 "

Range (" A3" ) . Seleziona

ActiveCell.Value = " 2"

Range ( "A4" ) . Seleziona

ActiveCell.Value = "3" < br Gamma

> ( " A5" ) . Seleziona

ActiveCell.Value = " 4"

Range (" B1 " ) . Seleziona

ActiveCell.Value = " dati Grafico 2"

Range (" B2" ) . Seleziona

ActiveCell.Value = " 5 "

Range (" B3" ) . Selezionare

ActiveCell.Value = "6"

Range (" B4 " ) . Seleziona

ActiveCell.Value = "7"

Range (" B5 " ) . Selezionare

ActiveCell.Value = " 8 "

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

tipo " Set mychart = Charts.Add " per aggiungere un nuovo grafico.

Tipo "Con mychart

. name =" dati cartografici "

. ChartType . = xlColumnClustered

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

PlotBy : . = xlRows

HasTitle = True

. ChartTitle.Text = " = Foglio1! R1C2 "

. Assi ( xlCategory , xlPrimary ) . HasTitle = True

. assi ( xlCategory , xlPrimary ) . AxisTitle . Characters.Text = " Grafico di dati 1"

. assi ( xlValue , xlPrimary ) . HasTitle = True

. assi ( xlValue , xlPrimary ) . AxisTitle.Characters.Text = " dati Grafico 2 "

End With " per impostare le proprietà del grafico .
4

tipo "End Sub ", se necessario. eseguire i vostri nuovi sub .

 

software © www.354353.com