Vide, hvordan man dynamisk oprette diagrammer med Visual Basic for Applications kan spare tid , når man analyserer store mængder data . Microsoft Excel er almindeligt anvendt til at indsamle data svarende til en Access-database . Excel tilbyder forskellige typer af diagrammer såsom pie, line , kolonne-og andre formater. Søjlediagrammer bruges ofte i Excel til grafisk vise oplysninger . Det er ikke svært at skabe diagrammer ved hjælp af VBA at præsentere dine data klart og mere effektivt. Instruktioner
1

Åbn Microsoft Excel 2007 og klik på "Udvikler "-fanen . Vælg "Visual Basic og skrive" Sub createColumnChart () " og tryk" Enter "for at oprette en ny sub .
2

Type" Dim myChart Som figur

Range (" A1" ) . Vælg

ActiveCell.Value = " Chart data 1 "

Range (" A2 "). Vælg

ActiveCell.Value = "1"
< p > Range (" A3 "). Vælg

ActiveCell.Value = "2 "

Range (" A4 "). Vælg

ActiveCell.Value = "3" < br >

Range (" A5 "). Vælg

ActiveCell.Value = "4 "

Range (" B1 "). Vælg

ActiveCell.Value = " Chart data 2 "

Range (" B2 "). Vælg

ActiveCell.Value = "5 "

Range (" B3 "). Vælg
< p> ActiveCell.Value = "6 "

Range (" B4 "). Vælg

ActiveCell.Value = "7 "

Range (" B5 "). Vælg

ActiveCell.Value = "8 "

Range (" B6 "). Vælg " at erklære diagrammet variabel og tilføjer nogle data for dit diagram.
3

Type " Set myChart = Charts.Add " for at tilføje et nyt diagram .

Type " med myChart

. name =" kortdata "

. ChartType . = xlColumnClustered

SetSourceData Kilde: = Sheets ( " Ark1 " ) Range (" A1: B5 "). , _

PlotBy : . = xlRows

HasTitle = Sand

. ChartTitle.Text = " = Ark1 ! r1c2 "

. Axes ( xlCategory , xlPrimary ) . HasTitle = Sand

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

. Axes ( xlValue , xlPrimary ) . HasTitle = Sand

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

End With " for at indstille chart egenskaber.
4

Type " End Sub ", hvis det er nødvendigt. Udfør dine nye sub .