Visual Basic diagrammer kan nemt oprettes som en makro ved hjælp af Microsoft Excel. Makroer er et sæt af instruktioner, som du kan samle til hurtigt at udføre en opgave. Excel har en indbygget Visual Basic Editor , der kan bruges til dette formål. Skabe diagrammer i Visual Basic kræver, at du kode i Visual Basic sprog. Instruktioner
1
Klik på " Start", peg på " Alle programmer " og derefter klikke på " Microsoft Excel ".
2
Skriv følgende uden anførselstegn på Microsoft Excel-ark , der åbner : Hej
" C3: " " D3: Region 1 " " E3: Region 2 " " F3: Region 3 "
" C4 : Jan "" D4 : 10 "" E4: 80 "" F4: 15 "
" C5 : Feb "" D5 : 20 "" E5 : 70 "" F5 : 25 & rdquo ;
" C6 : Mar " " D6 : 30 " " E6: 60 " " F6 : 35 "
" C7 : Apr " " D7 : 40 " & ldquo ; E7 : 50 "" F7 : 45 "
Hver værdi er vist her inden for de citater skulle komme i sin individuelle celle i rækkefølge vises uden anførselstegn . For eksempel vil C3 komme i en celle , C4 : Jan kommer i cellen under C3 , D3 : vil Region 1 komme i cellen støder op til C3 og så videre . Alle C-værdier skulle komme i en kolonne . Tilsvarende bør D , E, og F -værdier kommer i deres individuelle kolonner.
3
Klik på menuen "Funktioner" i Excel -vinduet , pege på "Macro " og derefter klikke "Visual Basic Editor. "
4
Klik på " Indsæt" menuen på Visual Basic Editor vindue, der åbnes , og klik derefter på " Modul ".
5 < p> Indtast følgende kode nøjagtigt som vist her på modulark der åbner : Hej
Sub CreateChart ()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData _
Kilde: = Sheets ( " Ark1 " ) Range (" C3 " ) CurrentRegion , _
PlotBy : . . = xlColumns
End sub
6
Klik på " File" menuen på Excel og derefter klikke på " Gem som".
7
Naviger til den placering på computeren, hvor du ønsker at gemme denne Excel ark på Gem som dialogboksen, der åbnes , skal du skrive et navn i "File name" boks ( for eksempel " myvbchart "), og klik derefter på "Gem".
8 < p> Klik på menuen "Funktioner" , peg på "Macro " og derefter på " Makroer ".
9
Klik på " CreateChart " på dialogboksen Makroer , der åbner og klik derefter på "Kør . "