Ircservices.com


Cómo crear un gráfico en VBA excel

Cómo crear un gráfico en VBA excel

Saber cómo crear dinámicamente tablas con Visual Basic para aplicaciones pueden ahorrar tiempo cuando analizando grandes cantidades de datos. Microsoft Excel es utilizado para recopilar datos similares a una base de datos de Access. Excel ofrece diferentes tipos de gráficos como pie, línea, columna y otros formatos. Gráficos de columna se utilizan en Excel para mostrar gráficamente la información. No es difícil crear gráficos usando VBA para presentar los datos claramente y de manera más eficiente.

Instrucciones

• Abrir Microsoft Excel 2007 y haga clic en la ficha "Programador" seleccione "Visual Basic y tipo"Sub createColumnChart()"y presionar"Enter"para crear un nuevo sub.

• Tipo "dévil mi carta como carta Range("A1"). Seleccione ActiveCell.Value = "tabla de datos 1" Range("A2"). Seleccione ActiveCell.Value = "1" Range("A3"). Seleccione ActiveCell.Value = "2" Range("A4"). Seleccione ActiveCell.Value = "3" Range("A5"). Seleccione ActiveCell.Value = "4" Range("B1"). Seleccione ActiveCell.Value = "tabla de datos 2" Range("B2"). Seleccione ActiveCell.Value = "5" Range("B3"). Seleccione ActiveCell.Value = "6" Range("B4"). Seleccione ActiveCell.Value = "7" Range("B5"). Seleccione ActiveCell.Value = "8" Range("B6"). Seleccione"para declarar la variable de tabla y agregar algunos datos para el gráfico.

• Tipo "establecer mi tabla = Charts.Add" para añadir un nuevo gráfico. Tipo "con mi carta astral. Nombre = "Tabla de datos". ChartType = xlColumnClustered. SetSourceData Source:=Sheets("Sheet1"). Range("a1:B5"), _ PlotBy: = xlRows. HasTitle = True. ChartTitle.Text = "¡ = Hoja1! R1C2 ". Ejes (xlCategory, xlPrimary). HasTitle = True. Ejes (xlCategory, xlPrimary). AxisTitle.Characters.Text = "tabla de datos 1". Ejes (xlValue, xlPrimary). HasTitle = True. Ejes (xlValue, xlPrimary). AxisTitle.Characters.Text = "Datos del cuadro 2" terminan con"para establecer las propiedades de gráfico.

• Tipo "End Sub" si es necesario. Ejecutar el nuevo sub.