Excel Avanzado

Macros, Vba en Excel y muchos ejemplos de nuestro Curso de Excel Avanzado

Excel Avanzado

Función With aplicada a una tabla

| 0 comments

La función With resulta de mucha utilidad, ya que permite simplificar las fórmulas que se utilizan en vba. De manera que a With se le atribuye un objeto, al cual se le hacen modificaciones sin necesidad de señalar el objeto nuevamente.

Veamos un ejemplo:

Sub CambiarFuente()
With Selection.Font
.Name = “Times New Roman”
.FontStyle = “Bold Italic”
.Size = 12
.Underline = xlSingle
.ColorIndex = 5
End With
End Sub

En este ejemplo el objeto es la fuente y con with no es necesario especificarlo varias veces, para hacer las modificaciones.

Ahora bien, la función With la podemos aplicar a distintos objetos:

Ejemplo de With aplicado a una tabla:

Aquí se crea y da formato a una tabla dinámica

Sub Tabla

With Range(“A1”, Range(“A1”).End(xlToRight)).Font
.Bold = True
.Size = 12
.Name = “arial”
End With
With Range(“B2”, Range(“B2”).End(xlDown)).Font
.Italic = True
End With

With Range(“D2”, Range(“D2”).End(xlDown)).Select
Selection.Style = “Currency”
Selection.Font.Italic = True
End With

With Range(“a1”).CurrentRegion.Select

Selection.HorizontalAlignment = xlCenter

ActiveSheet.ListObjects.Add(xlSrcRange, Range(“A1”).CurrentRegion, , xlYes).Name = “Table1”

End With

End Sub

Resultado:

Tabla

Deja un comentario

Required fields are marked *.


Excel Avanzado located at , Lima, Perú . Reviewed by usuarios rated: 4.7 / 5