Código Macro
Macros para formato de estilos...
'Este código cambia el formato a normal de las celdas seleccionadas...
Sub Formato_Normal()
Selection.Style = "Normal"
End Sub
'Este código cambia el formato a buena de las celdas seleccionadas...
Sub Formato_Buena()
Selection.Style = "Buena"
End Sub
'Este código cambia el formato a incorrecto de las celdas seleccionadas...
Sub Formato_Incorrecto()
Selection.Style = "Incorrecto"
End Sub
'Este código cambia el formato a neutral de las celdas seleccionadas...
Sub Formato_Neutral()
Selection.Style = "Neutral"
End Sub
Otros tipos de formatos:
Selection.Style = "Cálculo"
Selection.Style = "Celda de comprobación"
Selection.Style = "Celda vinculada"
Selection.Style = "Entrada"
Selection.Style = "Notas"
Selection.Style = "Salida"
Selection.Style = "Texto de advertencia"
Selection.Style = "Texto explicativo"
Selection.Style = "Encabezado 1"
Selection.Style = "Encabezado 4"
Selection.Style = "Título"
Selection.Style = "Título 2"
Selection.Style = "Título 3"
Selection.Style = "Total"
Selection.Style = "20% - Énfasis1"
Selection.Style = "40% - Énfasis1"
Selection.Style = "60% - Énfasis1"
Selection.Style = "Énfasis1"
Selection.Style = "20% - Énfasis2"
Selection.Style = "40% - Énfasis2"
Selection.Style = "60% - Énfasis2"
Selection.Style = "Énfasis2"
Selection.Style = "20% - Énfasis3"
Selection.Style = "40% - Énfasis3"
Selection.Style = "60% - Énfasis3"
Selection.Style = "Énfasis3"
Selection.Style = "20% - Énfasis4"
Selection.Style = "40% - Énfasis4"
Selection.Style = "60% - Énfasis4"
Selection.Style = "Énfasis4"
Selection.Style = "20% - Énfasis5"
Selection.Style = "40% - Énfasis5"
Selection.Style = "60% - Énfasis5"
Selection.Style = "Énfasis5"
Selection.Style = "20% - Énfasis6"
Selection.Style = "40% - Énfasis6"
Selection.Style = "60% - Énfasis6"
Selection.Style = "Énfasis6"
Selection.Style = "Comma"
Selection.Style = "Comma [0]"
Selection.Style = "Currency"
Selection.Style = "Currency [0]"
Selection.Style = "Percent"
Explicación para poder usar cualquiera de los formatos mencionados:
Sub Formato()
Agregar acá alguno de los codigos de formato...
End Sub
Aclaración:
En Sub Formato() deberá cambiar el nombre al correspondiente a fin de poder localizar el codigo y para evitar futuros errores de compilacion de codigo, ya que no puede haber 2 o mas códigos con el mismo nombre.
Ejemplo:
Sub Formato()
Agregar por ejemplo, Guión bajo y Calculo, quedando así:
Sub Formato_Calculo()
Para agregar un macro, deberá abrir el editor de VBA en el libro de Excel abierto al cual desea agregarlo, mantener apretado la tecla "ALT + F11", luego seleccionar la solapa "INSERTAR", y desde ahí elegir "MODULO".
Y en el módulo pegar el código completo del macro, para luego poder usarlo.
Para Usar el macro, volver a la hoja de Excel de la siguiente manera, mantener apretado la tecla "ALT + F11", o minimizando o cerrando el editor de VBA.
Y en la hoja de cálculo insertar una FORMA o IMAGEN, luego hacerle clic derecho a la misma y seleccionar, "ASIGNAR MACRO", y elegir el macro deseado que de antemano hemos copiado.
Recuerde que el libro de Excel deberá guardarlo como "LIBRO DE EXCEL HABILITADO PARA MACROS"...
