• 
  

  hur man skapar ett diagram i VBA excel

  
  

Att veta hur dynamiskt för att skapa diagram med Visual Basic for Applications kan spara tid när man analyserar 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-, stapel , och andra format . Stapeldiagram används ofta i Excel för att grafiskt visa information . Det är inte svårt att skapa diagram med hjälp av VBA för att presentera dina data klart och mer effektivt
1 . .
Öppna Microsoft Excel 2007 och klicka på " Utvecklare " -fliken. Välj " Visual Basic och skriv " Sub createColumnChart () " och tryck på " Enter "för att skapa en ny sub .
2 .
Typ " Dim myChart Som diagram

Range ( " A1 " ) . Välj

ActiveCell. Value=" Diagramdata 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 " att förklara diagrammet variabeln och lägga till lite data för diagrammet .
3 .
Typ " Set myChart=diagram . Lägg till " för att lägga till ett nytt diagram .

Typ " Med myChart

. Name=" Chart Data "

. ChartType=xlColumnClustered

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

PlotBy . =xlRows

HasTitle=True

. ChartTitle. Text="=Blad1 ! R1C2 "

. axlar ( xlCategory , xlPrimary ) . HasTitle=True

. axlar ( xlCategory , xlPrimary ) . AxisTitle. Characters. Text=" Diagramdata 1 "

. axlar ( xlValue , xlPrimary ) . HasTitle=True

. axlar ( xlValue , xlPrimary ) . AxisTitle. Characters. Text=" Diagramdata 2 "

slutar med " att ställa diagram egenskaper .

4 .
Skriv " End Sub " om det behövs. Kör din nya sub .


tips och varningar




Din nya sub borde se så här:

" Sub createColumnChart ()

Dim myChart Som diagram

Range ( " A1 " ) Välj

ActiveCell . Value=" Diagramdata 1 "

Range ( " A2 " ) . Välj

ActiveCell. Value="1 "

Range ( " A3 " ) . Välj

ActiveCell . Värde="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

Set myChart=Charts. Add

Med myChart

. Name=" Diagramdata "

ChartType=xlColumnClustered

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

PlotBy : . .=xlRows

HasTitle=Sant

ChartTitle. Text=" !=Blad1 R1C2 "

axlar ( xlCategory , xlPrimary ) . HasTitle=Sant

. axlar ( xlCategory , xlPrimary ) . AxisTitle. Characters. Text=" Diagramdata 1 "

. axlar ( xlValue , xlPrimary ) . HasTitle=Sant

. axlar ( xlValue , xlPrimary ) . AxisTitle. Characters. Text=" Diagramdata 2 "

End With

End Sub "

Previous：nothing Next：Hur gör jag bedöma storleken på en array i Visual Basic ?

Relaterade artiklar