Weten hoe dynamisch grafieken met Visual Basic for Applications kunt tijd besparen bij het analyseren van grote hoeveelheden data te creëren . Microsoft Excel wordt vaak gebruikt om de gegevens vergelijkbaar zijn met een Access-database te verzamelen . Excel biedt verschillende soorten kaarten , zoals taart , lijn , kolom , en andere formaten . Kolomdiagrammen worden vaak gebruikt in Excel om grafisch weer te geven. Het is niet moeilijk om grafieken met behulp van VBA om uw gegevens duidelijk en efficiënter presenteren creëren. Instructies
Open Microsoft Excel 2007 1 en klik op het tabblad "Ontwikkelaar " . Selecteer " Visual Basic en typ" Sub createColumnChart ( ) " en druk op" Enter "om een nieuwe sub maken .
Type 2 " Dim myChart Zoals Grafiek Range
( " A1 " ) . Selecteer ActiveCell.Value = " Grafiekgegevens 1 " Range ( " A2 " ) op Twitter . Selecteer ActiveCell.Value
= " 1 "
Range ( " A3 " ) . Selecteer ActiveCell.Value = " 2 " Range
( " A4 " ) . Selecteer
ActiveCell.Value = " 3 " < br Range > ( " A5 " ) . Selecteer ActiveCell.Value = " 4 " Range
( " B1 " ) . Selecteer ActiveCell.Value
= " Diagramgegevens 2 " Range
( " B2 " ) . Selecteer ActiveCell.Value = " 5 " Range ( " B3 " ) op Twitter . Selecteer
ActiveCell.Value Range = " 6 "
( " B4 " ) . Selecteer ActiveCell.Value = " 7 " Range ( " B5 " ) op Twitter . Selecteer ActiveCell.Value = " 8 " Range
( " B6 " ) . Selecteer "om de grafiek variabele declareren en een aantal gegevens voor uw grafiek toe te voegen .
Type 3 " Stel myChart = Charts.Add " om een nieuwe kaart toe te voegen . Type " met myChart
. Name = " grafiek gegevens "
. charttype
. = xlColumnClustered
SetSourceData Bron : = Sheets ( " Blad1 " ) Range ( " A1 : B5 " ) . , _ PlotBy
: . = xlRows
HasTitle = True
. ChartTitle.Text = " = Blad1 ! R1C2 "
. Assen ( xlCategory , xlPrimary ) . = True
. Bijlen HasTitle ( xlCategory , xlPrimary ) . AxisTitle . Characters.Text = " Grafiekgegevens 1 "
. Assen ( xlValue , xlPrimary ) . = True
. Bijlen HasTitle ( xlValue , xlPrimary ) . AxisTitle.Characters.Text = " Grafiekgegevens 2 " End
met " om grafiek eigenschappen in te stellen .
Type " End sub " 4 indien nodig. Voer uw nieuwe sub .
|
