EJERCICIOS RESUELTOS DE MACROS
(Excel)

1.- CALCULADORA BASICA

[pic]

Private Sub CmdCerrar_Click()
End
End Sub

Private Sub CmdDivision_Click()
Cells(2, 2).Value = Val(TxtValor1.Text) / Val(TxtValor2.Text)
TxtValor1.Text = ""
TxtValor2.Text = ""
TxtValor1.SetFocus
End Sub

Private Sub CmdMas_Click()
Cells(2, 2).Value = Val(TxtValor1.Text) + Val(TxtValor2.Text)
TxtValor1.Text = ""
TxtValor2.Text = ""
TxtValor1.SetFocus
End Sub

Private Sub CmdMenos_Click()
Cells(2, 2).Value = Val(TxtValor1.Text) - Val(TxtValor2.Text)
TxtValor1.Text = ""
TxtValor2.Text = ""
TxtValor1.SetFocus
End Sub

Private Sub CmdProducto_Click()
Cells(2, 2).Value = Val(TxtValor1.Text) * Val(TxtValor2.Text)
TxtValor1.Text = "" …ver más…

Ejercicio de Aplicación:
Crearemos un formulario, donde pondremos en una lista los tipos de grafica y en otra lista las opciones de fila o columna
[pic]
En el botón de comando agregaremos el código de arriba, que hemos utilizado para graficar con el mismo rango.
En el ListBox1, agregamos todos los tipos de grafico que existe y el listbox2, agregamos las opciones Filas o Columnas (evento Initialize)
Luego en el control ListBox1, en el evento clic, agregamos el código siguiente:
Private Sub ListBox1_Click()
If ListBox1 = "xlColumnClustered" Then ActiveChart.ChartType = xlColumnClustered
If ListBox1 = "xlBarClustered" Then ActiveChart.ChartType = xlBarClustered
If ListBox1 = "xlLineMarkers" Then ActiveChart.ChartType = xlLineMarkers
If ListBox1 = "xlPie" Then ActiveChart.ChartType = xlPie
If ListBox1 = "xlXYScatter" Then ActiveChart.ChartType = xlXYScatter
If ListBox1 = "xlAreaStacked" Then ActiveChart.ChartType = xlAreaStacked
If ListBox1 = "xlDoughnut" Then ActiveChart.ChartType = xlDoughnut
If ListBox1 = "xlRadarMarkers" Then ActiveChart.ChartType =