Diseño de macros en Excel
Ejercicio. Funciones y variables
1. Crea la siguiente macro en el editor Visual Basic de Excel:
Sub Macro()
Selection.End(xlUp).Select
Selection.End(xlToLeft).Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
End Sub
- Accede a una hoja que contenga una tabla con datos y selecciona cualquier celda dentro de la tabla.
- Ejecuta la macro
- ¿Qué acción realiza la macro?
2. Crea otra macro que contenga estas dos instrucciones:
ActiveCell.Value = "lunes"
Selection.AutoFill ActiveCell.Range("A1:E1"), xlFillDefault
- Accede a una hoja en blanco.
- Ejecuta la macro.
- ¿Qué acción realiza la macro?
3. Crea una macro que:
- Solicite un número al usuario.
- Guarde dicho número en una variable.
- Rellene la celda activa con el número 1.
- Rellene una serie linear en columna empezando desde esa celda y acabando por el número introducido por el usuario.
Esta podría ser una posible solución:
Sub Macro()
Dim intFin As Integer
intFin = InputBox("Hasta qué número")
ActiveCell.FormulaR1C1 = "1"
ActiveCell.DataSeries xlColumns, xlDataSeriesLinear, , 1, intFin
End Sub
4. Crea una macro que:
- Guarde en una variable de tipo cadena de texto el dato que contiene la celda A1
- Añada una hoja
- Asigne el valor de la variable como nombre de la hoja
Esta podría ser una solución:
Sub macro()
Dim strDato As String
Range("A1").Select
strDato = ActiveCell.Value
Sheets.Add
ActiveSheet.Name = strDato
End Sub
5. Crea una función que:
- Recoja dos números de tipo Double como argumentos
- Calcule el área de un triángulo
- Devuelva ese cálculo como resultado
Esta podría ser una solución:
Public Function areatriangulo(altura As Double, base As Double) As Double
areatriangulo = altura * base / 2
End Function