Microsoft Excel er et populært regnearksprogram, der skaber også diagrammer og grafer af alle sorter . En del af Microsoft Office , gør Excel visning og analyse af data hurtig og nem. Dog kan hvis du har brug for at skabe et stort antal træer, gør det ved hånden være tidskrævende og fejlbehæftet . I stedet overveje at bruge Microsoft Visual Basic. NET, Microsofts nye og forbedrede Visual Basic programmeringssprog, til at automatisere opgaven. Dens indbyggede Excel integration gør det til en leg. Ting du skal
Microsoft Excel ( Developer eller Professional edition )
Microsoft Visual Basic. NET
Vis Flere Instruktioner
1

Open Visual Basic. NET og skabe et nyt projekt.
2

Højreklik på projektet og vælg Tilføj kommissorium. Gå til COM fanen og klik på Microsoft Excel Object Library . Klik på OK.
3

Tilføj kode i dit projekts Hovedfunktion at oprette en ny forekomst af Excel ansøgningen. Det skal se sådan ud : Hej

Dim excelApp Som New Microsoft.Office.Interop.Excel.Application ()
4

Tilføj kode til at oprette et nyt regneark . For eksempel : Hej

Dim wb Som Microsoft.Office.Interop.Excel.Workbook = excelApp.Workbooks.Add ()
5

Tilføj kode til at hente den primære regneark fra regnearket. For eksempel : Hej

Dim ark Som Microsoft.Office.Interop.Excel.Worksheet = wb.ActiveSheet
6

Tilføj data til regnearket. For eksempel sat til værdien i det øverste yderste venstre celle i regnearket ( celle A1 ) til 5 , celle A2 til 8, og A3 til 4 , skrive følgende kode :

sheet.Cells (1, 1). Value = 5sheet.Cells (1, 2). Value = 8sheet.Cells (1, 3). Værdi = 4 fotos

Gør dette for alle de data , du ønsker at bruge i diagrammet .
7

Tilføj kode til at oprette diagrammet : Hej

Dim diagrammet som Microsoft.Office.Interop.Excel.Chart = sheet.Parent.Charts.Add () chart.ChartWizard (blad . Range (" A1: A3 ") Microsoft.Office.Interop.Excel.XlChartType.xl3DColumn , Excel.XlRowCol.xlColumns )
8

Tilføj kode til at oprette dataserier til diagrammet : Hej

Dim serier Som Microsoft.Office.Interop.Excel.Series = chart.SeriesCollection (1) series.XValues ​​= sheet.Range ( "A1 ", " A3 " )
9 < p > Dit diagram er nu færdig. Du kan tilpasse den yderligere ved hjælp af de funktioner, som Microsoft Developers Network kontor Developer Center på http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.chart ( office.11 ​​) . Aspx KAYAK