Buscar..


Introducción

Este tema trata sobre el trabajo con tablas en VBA y asume el conocimiento de las tablas de Excel. En VBA, o más bien en el modelo de objetos de Excel, las tablas se conocen como ListObjects. Las propiedades utilizadas con más frecuencia de un objeto ListObject son ListRow (s), ListColumn (s), DataBodyRange, Range y HeaderRowRange.

Creando un objeto de lista

Dim lo as ListObject
Dim MyRange as Range

Set lo = Sheet1.ListObjects(1)

'or

Set lo = Sheet1.ListObjects("Table1")

'or

Set lo = MyRange.ListObject

Trabajando con ListRows / ListColumns

Dim lo as ListObject
Dim lr as ListRow
Dim lc as ListColumn

Set lr = lo.ListRows.Add
Set lr = lo.ListRows(5)

For Each lr in lo.ListRows
    lr.Range.ClearContents
    lr.Range(1, lo.ListColumns("Some Column").Index).Value = 8
Next

Set lc = lo.ListColumns.Add
Set lc = lo.ListColumns(4)
Set lc = lo.ListColumns("Header 3")

For Each lc in lo.ListColumns
    lc.DataBodyRange.ClearContents   'DataBodyRange excludes the header row
    lc.Range(1,1).Value = "New Header Name"    'Range includes the header row
Next

Convertir una tabla de Excel a un rango normal

Dim lo as ListObject

Set lo = Sheet1.ListObjects("Table1")
lo.Unlist


Modified text is an extract of the original Stack Overflow Documentation
Licenciado bajo CC BY-SA 3.0
No afiliado a Stack Overflow