Uso de With para dar formato a celdas especiales: texto, número y formula:
Este macro nos permite seleccionar automáticamente las celdas que contienen texto, número y formulas y darles un formato correspondiente.
1.- Tenemos un tabla estadística con Fuerza laboral de un año:
El cual nos muestra la cantidad de trabajadores tanto de empleados como obreros en los meses del año
2.- Tenemos un botón el cual nos indica que presionemos para dar el formato
3.- Aplicamos el macro:
'Seleccionamos las celdas que contienen Texto
Selection.SpecialCells(xlCellTypeConstants, 2).Select
With Selection.Font '
.FontStyle = "Bold" 'Negrita
.ColorIndex = 13 'Color violeta
End With
With Selection.Interior '
.ColorIndex = 15 'Fondo Color
End With'Seleccionamos las celdas que contienen Numeros
Selection.SpecialCells(xlCellTypeConstants, 1).Select
With Selection.Font
.FontStyle = "Regular"
.ColorIndex = 5 'azul
End With
'Seleccionamos las celdas que contienen Formulas
Selection.SpecialCells(xlCellTypeFormulas, 23).Select
With Selection.Font
.FontStyle = "bold"
.ColorIndex = 3 'rojo
End With
With Selection.Interior '
.ColorIndex = 8 'Fondo Color celeste
End With
4.- Con esto logramos que los textos tengan un color violeta, los números un color azul y los número un color rojo.
Aquí el archivo excel:
Seleccion_y_formato_texto_numero_y_formula