|
Connaître comment créer dynamiquement des graphiques avec Visual Basic pour Applications peuvent gagner du temps lors de l'analyse de grandes quantités de données. Microsoft Excel est couramment utilisé pour collecter des données similaires à une base de données Access. Excel propose différents types de graphiques comme la tarte , ligne, colonne , et d'autres formats. Les histogrammes sont souvent utilisés dans Excel pour afficher graphiquement les informations . Il n'est pas difficile de créer des graphiques à l'aide de VBA pour présenter vos données de manière claire et plus efficace. Instructions
1 Ouvrez Microsoft Excel 2007 et cliquez sur l'onglet " développeur" . Sélectionnez createColumnChart sous "Basic et le type visuel" () "et appuyez sur " Entrée "pour créer un nouveau sous .
2 type " MonGraphe As Chart
Range (" A1 " ) . Sélectionnez
ActiveCell.Value = " Tableau de données 1 " Range (" A2 " )
. Sélectionnez
ActiveCell.Value = "1"
Range (" A3 " ) . Sélectionnez
ActiveCell.Value = "2"
Range (" A4 " ) . Sélectionnez
ActiveCell.Value = "3"
Range (" A5 " ) . Sélectionnez
ActiveCell.Value = "4"
Range (" B1 " ) . Sélectionnez
ActiveCell.Value = «Tableau de données 2 " Range (" B2 " )
. Sélectionnez
ActiveCell.Value = " 5 "
Range (" B3 " ) . Sélectionnez
< p> ActiveCell.Value = "6"
Range (" B4" ) . Sélectionnez
ActiveCell.Value = " 7"
Range (" B5 " ) . Sélectionnez Photos ActiveCell.Value = "8"
Range (" B6 " ) . Sélectionnez " de déclarer la variable tableau et ajouter quelques données de votre carte.
3 type de " Set MonGraphe = Charts.Add " pour ajouter un nouveau graphique.
type «Avec MonGraphe
. name =" Tableau de données "
. ChartType . = xlColumnClustered
SetSourceData Source: = Sheets (" Sheet1" ) Range ( " A1 : B5 " ) . , _
PlotBy : . = xlRows
HasTitle = True Photos . ChartTitle.Text = " = Sheet1 ! R1C2 "
. Axes ( xlCategory , xlPrimary ) . HasTitle = True
. Haches ( xlCategory , xlPrimary ) . AxisTitle . Characters.Text = " Tableau 1 données "
. Haches ( xlValue , xlPrimary ) . HasTitle = True
. Haches ( xlValue , xlPrimary ) . AxisTitle.Characters.Text = " Tableau 2 données "
End With " pour définir les propriétés du diagramme.
4 type "End Sub " si nécessaire. exécuter vos nouvelles sous .
|
