Saber como criar dinamicamente gráficos com Visual Basic for Applications pode economizar tempo ao analisar grandes quantidades de dados . Microsoft Excel é comumente usado para coletar dados semelhantes a um banco de dados Access. Excel oferece diferentes tipos de gráficos , como a torta, linha , coluna, e outros formatos. Os gráficos de colunas são muitas vezes utilizados no Excel para exibir graficamente informações. Não é difícil criar gráficos usando o VBA para apresentar seus dados de forma clara e de forma mais eficiente . Instruções
1
Abra o Microsoft Excel 2007 e clique na guia "Desenvolvedor" . Selecione " Visual Basic e digite" Sub createColumnChart () " e pressione" Enter " para criar um novo sub .
2
Type" Dim MyChart Como Chart
Range (" A1" ) . Selecione
ActiveCell.Value = " Dados do Gráfico 1"
Range (" A2 " ) . Selecione
ActiveCell.Value = "1"
Range (" A3 " ) . Selecione
ActiveCell.Value = "2"
Range (" A4 " ) . Selecione
ActiveCell.Value = "3"
Range (" A5 " ) . Selecione
ActiveCell.Value = "4"
Range (" B1 " ) . Selecione
ActiveCell.Value = " Dados do Gráfico 2"
Range (" B2 " ) . Selecione
ActiveCell.Value = "5"
Range (" B3 " ) . Selecione
ActiveCell.Value = "6"
Range (" B4 " ) . Selecione
ActiveCell.Value = "7 "
Range (" B5 " ) . Selecione
ActiveCell.Value = "8 "
Range (" B6 " ) . Selecione " para declarar a variável tabela e adicionar alguns dados para o seu gráfico.
3
Type " Set MyChart = Charts.Add " para adicionar um novo gráfico.
Tipo "Com MyChart
. Name = " Os dados de gráficos "
. ChartType . = xlColumnClustered
SetSourceData Fonte : . = Sheets ( " Sheet1" ) Range (" A1: B5 " ) , _
PlotBy : . = xlRows
HasTitle = True
. ChartTitle.Text = " = R1C2 ! Sheet1 "
. Machados ( xlCategory , xlPrimary ) . HasTitle = True
. Machados ( xlCategory , xlPrimary ) . AxisTitle . Characters.Text = " Dados do Gráfico 1"
. Machados ( xlValue , xlPrimary ) . HasTitle = True
. Machados ( xlValue , xlPrimary ) . AxisTitle.Characters.Text = " Dados do Gráfico 2 "
End With " para definir propriedades do gráfico .
4 Tipo
" End Sub " , se necessário. Executar o seu novo sub .