Hur man skapar ett diagram i VBA Excel

Veta hur dynamiskt för att skapa diagram med Visual Basic for Applications kan spara tid när analysera stora mängder data . Microsoft Excel används ofta för att samla in data som liknar en Access-databas . Excel erbjuder olika typer av diagram som paj , linje , kolumn , och andra format . Stapeldiagram används ofta i Excel för att grafiskt visa informationen . Det är inte svårt att skapa diagram med VBA för att presentera data klart och mer effektivt . Instruktioner
1

Öppna Microsoft Excel 2007 och klicka på " Utvecklare " fliken . Välj " Visual Basic och typ " Sub createColumnChart ( ) " och tryck på " Enter " för att skapa en ny sub .
2

Type " Dim myChart Som diagram

Range ( " A1 " ) . Välj

ActiveCell.Value = " Chart Data 1 "

Range ( " A2 " ) . Välj

ActiveCell.Value = " 1 "

Range ( " A3 " ) . Välj

ActiveCell.Value = " 2 "

Range ( " A4 " ) . Välj

ActiveCell.Value = " 3 "

Range ( " A5 " ) . Välj

ActiveCell.Value = " 4 "

Range ( " B1 " ) . Välj

ActiveCell.Value = " Diagramdata 2 "

Range ( " B2 " ) . Välj

ActiveCell.Value = " 5 "

Range ( " B3 " ) . Välj

ActiveCell.Value = " 6 "

Range ( " B4 " ) . Välj

ActiveCell.Value = " 7 "

Range ( " B5 " ) . Välj

ActiveCell.Value = " 8 "

Range ( " B6 " ) . Välj " för att förklara diagrammet variabeln och tillsätt några data för diagrammet .
3

Type " Set myChart = Charts.Add " för att lägga till ett nytt diagram .

Type " med myChart

. name =" Diagramdata "

. ChartType . = xlColumnClustered

SetSourceData Källa : = Sheets ( " Blad1 " ) Range ( " A1 : B5 " ) . , _

PlotBy : . = xlRows

HasTitle = Sant

. ChartTitle.Text = " = Blad1 ! r1c2 "

. Axes ( xlCategory , xlPrimary ) . HasTitle = Sant

. Yxor ( xlCategory , xlPrimary ) . AxisTitle . Characters.Text = " diagramdata 1 "

. Yxor ( xlValue , xlPrimary ) . HasTitle = Sant

. Yxor ( xlValue , xlPrimary ) . AxisTitle.Characters.Text = " sjökortsdata 2 "

End With " för att ställa in diagram egenskaper .
4

Typ " End sub ​​" om det behövs . Utför dina nya sub .