09/09/2010

Today we start with Visual Basic in Excel – Ejercicios de entrenamiento para la prueba.
En una planilla nueva:
1. Un botón para borrar el rango A10:G30
2. Un botón para que permita ingresar por teclado el nombre de la persona que usa el programa y lo guarde en la celda a1.
3. Un botón para llenar la columna D desde D10 hasta D19 con los primeros 10 múltiplos de 2 (usar for next).
4. Un botón para llenar la columna A desde A10 hasta A19 con los nombres de marcas de autos ingresadas por teclado.
5. Un botón para llenar con números aleatorios que representen los precios de los autos en la columna B desde B10 hasta B19. Los precios entre 15000 y 100000 pesos.
6. Un botón que calcule el precio promedio y lo ponga en B20.
7. Un botón que cuente cuántos autos son más caros que 50000 pesos y lo ponga en B21.
8. Un botón que llene la columna C desde C10 hasta C19 con las marcas de los autos cuyo precio es inferior al precio promedio.
9. Un botón que ponga en la celda A24 la leyenda “Se ingresaron xxxxxx autos marca Mitsubishi” o bien “No se ingresaron autos Mitsubishi” según corresponda.
10. Un botón que ponga en A25 “El auto más caro es marca: xxxxxxxx” donde xxxxxxxx es una de las marcas que se habían ingresado por teclado (suponemos que habrá solo uno).
11. Un botón que ponga en A26 “El auto más barato es marca: xxxxxxxx” donde xxxxxxxx es una de las marcas que se habían ingresado por teclado (suponemos que habrá solo uno).
12. Un botón para borrar el rango D10:G30 pero que pregunte al usuario antes de borrar “Está Usted seguro que desea borrar el rango A10:G30” y en caso de que se responda que NO que no lo borre.
13. Un botón que revise la columna B desde B10 y calcule el producto entre la columna B y la columna D poniendo el resultado en la columna E a partir de la celda E10 (usar do loop).
14. Un botón que llene la columna F desde F10 con los primeros N múltiplos de A siendo N y A números ingresados por teclado con inputbox.
15. Un botón que revise los precios en la columna B e informe con un msgbox la cantidad de precios múltiplos de 4 que hay o bien la leyenda “No hay precios múltiplos de 4” según corresponda.


Ej 3 resuelto de tres formas distintas:
Versión de Alf_1
Private Sub CommandButton1_Click()
Dim K as double, L as double
L=0
For K=2 to 20 step 2
L=L+1 ‘contador
Range("D10").Cells(L, 1)=K
Next K
End Sub

Versión de Alf_2
Private Sub CommandButton1_Click()
Dim K as double
For K=1 to 10 step 1
Range("D10").Cells(K, 1)=K * 2
Next K
End Sub

Versión de Lucas
Private Sub CommandButton1_Click()
Dim K as double
For K=10 to 19 step 1
Range("D” & K).Cells(1, 1)=K * 2
Next K
End Sub