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 *.