Å vite hvordan å dynamisk lage diagrammer med Visual Basic for Applications kan spare tid når analysere store mengder data . Microsoft Excel er vanlig å samle inn data som ligner på en Access database. Excel tilbyr forskjellige typer diagrammer som pai , linje , kolonne og andre formater . Stolpediagrammer brukes ofte i Excel for å grafisk vise informasjon. Det er ikke vanskelig å lage diagrammer som bruker VBA til å presentere data tydelig og mer effektivt. Instruksjoner
en

Åpne Microsoft Excel 2007 og klikk på " Utvikler " fanen . Velg " Visual Basic og skriv" Sub createColumnChart ( ) "og trykk " Enter "for å lage en ny sub .
2

Type" Dim myChart Som figur

Range (" A1 " ) . Velg

ActiveCell.Value = " kartdata en "

Range (" A2" ) . Velg

ActiveCell.Value = " 1 "
< p > Range (" A3" ) . Velg

ActiveCell.Value = " 2 "

Range (" A4" ) . Velg

ActiveCell.Value = " 3 "

Range (" A5 ") . Velg

ActiveCell.Value = " 4 "

Range (" B1 ") . Velg

ActiveCell.Value = " kartdata 2 "

Range (" B2 ") . Velg

ActiveCell.Value = " 5 "

Range (" B3 ") . Velg
< p> ActiveCell.Value = " 6 "

Range (" B4 ") . Velg

ActiveCell.Value = " 7 "

Range (" B5 ") . Velg

ActiveCell.Value = " 8 "

Range (" B6 ") . Velg "for å erklære diagrammet variabel og legge til noen data for diagrammet .
3

Type " Set myChart = Charts.Add " for å legge et nytt diagram .

Type " Med myChart

. name =" kartdata "

. DiagramType . = xlColumnClustered

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

PlotBy : . = xlRows

HasTitle = sant

. ChartTitle.Text = "= Ark1 ! R1C2 "

. Axes ( xlCategory , xlPrimary ) . HasTitle = sant

. økser ( xlCategory , xlPrimary ) . AxisTitle . Characters.Text = " kartdata en "

. Økser ( xlValue , xlPrimary ) . HasTitle = sant

. Økser ( xlValue , xlPrimary ) . AxisTitle.Characters.Text = " kartdata 2 "

End With " for å sette chart egenskaper .
4

type "End sub ​​" hvis nødvendig. Execute dine nye sub.