Hvordan lage et diagram i VBA Excel
Å 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. Kolonnediagrammer brukes ofte i Excel for å grafisk vise informasjon. Det er ikke vanskelig å lage diagrammer ved hjelp av VBA å presentere dataene klart og mer effektivt.
Bruksanvisning
1 Å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 Skriv "Dim myChart Som Chart
Range("A1").Select
ActiveCell.Value = "kartdata en"
Range ( "A2"). Velg
ActiveCell.Value = "1"
Range ( "A3"). Velg
ActiveCell.Value = "2"
Range ( "A4"). Velg
ActiveCell.Value = "tre"
Range ( "A5"). Velg
ActiveCell.Value = "4"
Range ( "B1"). Velg
ActiveCell.Value = "kartdata 2"
Range ( "B2"). Velg
ActiveCell.Value = "5"
Range ( "B3"). Velg
ActiveCell.Value = "6"
Range ( "B4"). Velg
ActiveCell.Value = "7"
Range ( "B5"). Velg
ActiveCell.Value = "8"
Range ( "B6"). Velg "for å erklære diagrammet variable og legge til noen data for diagrammet.
3 Skriv "Set myChart = Charts.Add" for å legge til et nytt diagram.
Skriv "Med myChart
.Name = "Chart Data"
.ChartType = XlColumnClustered
.SetSourceData Kilde: = Sheets ( "Ark1") Range ( "A1: B5")., _
PlotBy: = xlRows
.HasTitle = True
.ChartTitle.Text = "= Ark1! R1C2"
.Axes (XlCategory, xlPrimary) .HasTitle = True
.Axes (XlCategory, xlPrimary) .AxisTitle.Characters.Text = "kartdata en"
.Axes (XlValue, xlPrimary) .HasTitle = True
.Axes (XlValue, xlPrimary) .AxisTitle.Characters.Text = "kartdata 2"
Slutter med "å sette chart egenskaper.
4 Skriv "End Sub" hvis nødvendig. Utfør den nye sub.
Hint
- Din nye sub skal se slik ut:
- "Sub createColumnChart ()
- Dim myChart Som Chart
- Range ( "A1"). Velg
- ActiveCell.Value = "kartdata en"
- Range ( "A2"). Velg
- ActiveCell.Value = "1"
- Range ( "A3"). Velg
- ActiveCell.Value = "2"
- Range ( "A4"). Velg
- ActiveCell.Value = "tre"
- Range ( "A5"). Velg
- ActiveCell.Value = "4"
- Range ( "B1"). Velg
- ActiveCell.Value = "kartdata 2"
- Range ( "B2"). Velg
- ActiveCell.Value = "5"
- Range ( "B3"). Velg
- ActiveCell.Value = "6"
- Range ( "B4"). Velg
- ActiveCell.Value = "7"
- Range ( "B5"). Velg
- ActiveCell.Value = "8"
- Range ( "B6"). Velg
- Sett myChart = Charts.Add
- med myChart
- .name = "Chart data"
- .ChartType = XlColumnClustered
- .SetSourceData Kilde: = Sheets ( "Ark1") Range ( "A1: B5")., _
- PlotBy: = xlRows
- .HasTitle = True
- .ChartTitle.Text = "= Ark1! R1C2"
- .Axes (XlCategory, xlPrimary) .HasTitle = True
- .Axes (XlCategory, xlPrimary) .AxisTitle.Characters.Text = "kartdata en"
- .Axes (XlValue, xlPrimary) .HasTitle = True
- .Axes (XlValue, xlPrimary) .AxisTitle.Characters.Text = "kartdata 2"
- End With
- End Sub "