Hvordan lage et diagram i VBA Excel

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 "