La función With nos permite poder hacer una variedad de modificaciones, ya sea para las celdas, formatos, imágenes, etc. El objetivo de ésta función es minimizar el trabajo de copiar el mismo texto (para las modificaciones) una y otra vez, por ejemplo, para la aplicación del with al formato de notas y promedio de notas hacemos lo siguiente:
En lugar de copiar:
Sub seleccionycambio()
Selection.Font.Name = "verdana"
Selection.Font.FontStyle = "bold italic"
Selection.Font.Size = 16
Selection.Font.Underline = xlSingle
Selection.Font.ColorIndex = 14
End Sub
Se busca ahorrar todo el trabajo de copiar repetidamente (en éste caso) "Selection.Font" y se coloca:
Sub seleccionycambio()
With Selection.Font
.Name = "verdana"
.FontStyle = "bold italic"
.Size = 16
.Underline = xlSingle
.ColorIndex = 14
End With
End Sub
Además, poniendo un número determinado de notas, nuestra tabla halla el promedio de las notas y nos envía un mensaje donde muestra el promedio total de las notas.
Excel avanzado-Ejemplo de With
Elaborado por: Cinthya Pando