Ejemplos de Macros
Código Macro
'Este código es para el ingreso de datos en una caja de texto y lo ubica en celdas especificas...
'En este array ingresaremos el nombre de 5 personas y sus respectivas edades.
'Para este caso este array es de tamaño 5x2, 5 filas ya que serán 5 los nombres de personas que...
———
Código Macro
'Estos códigos son para manejar carpetas, directorios y archivos...
'Devuelve el directorio actual (CurDir)
Sub Directorios1()
MsgBox CurDir, vbInformation, "Informacion:"
End Sub
'Cambia a un nuevo directorio (ChDir)
Sub...
———
Código Macro
'Este código muestra las filas y/o columnas ocultas...
'Mostrar filas y columnas ocultas
Sub FilasColumnasOcultas()
Columns.EntireColumn.Hidden = False
Rows.EntireRow.Hidden = False
End Sub
Para agregar un...
———
Código Macro
'Este código es para mover el rango mencionado a otro rango y hoja distinta...
'Mueve el rango A1:A5 de la hoja 1 al rango C1 de la hoja 2
Sub MoverRango2()
Worksheets(1).Range("A1:A5").Cut Worksheets(2).Range("A1")
End Sub
Para...
———
Código Macro
'Este código es para mover una forma (shape)...
Sub Mover_Horizontalmente_Formas()
'Mueve la forma 1 a la izquierda 50 puntos (valor negativo)
ActiveSheet.Shapes(1).IncrementLeft -50
'Mueve la forma 2 a la derecha 70...
———
Código Macro
'Este código Muestra u Oculta el Filtro de la columna A...
Sub Filtro()
Selection.AutoFilter
End Sub
Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al cual desea...
———
Código Macro
'Este código es para mover el rango mencionado a otro rango...
'Mueve el rango A1:A5 a C1
Sub MoverRango1()
Range("A1:A5").Cut Range("C1")
End Sub
Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al...
———
Código Macro
'Este código pone en Negrita o saca la Negrita de la celda seleccionada...
Sub Con_Sin_Negrita()
If Selection.Font.Bold = True Then
Selection.Font.Bold = False
Else
Selection.Font.Bold = True
End If
End Sub
Para agregar un...
———
Código Macro
'Este código recorre todas las gráficas incrustradas en la hoja y devuelve sus nombres...
Sub Nombres_Graficas()
Dim Graficas As ChartObject
Dim Mensaje As String
Mensaje = ""
For Each Graficas In ActiveSheet.ChartObjects
...
———
Código Macro
'Este código muestra el nombre de todas las hojas contenidas en el libro...
Sub Nombre_Hojas_Libro_Activo()
Dim ws As Worksheet
For Each ws In Worksheets
MsgBox "Nombre: " & ws.Name, vbInformation, "Nombres de las...