excel-vba
Работа с таблицами Excel в VBA

.NET Framework C# Language HTML JavaScript Python Language Regular Expressions SQL Microsoft SQL Server Visual Basic .NET Language VBA
Поиск…


Вступление

Этот раздел посвящен работе с таблицами в VBA и предполагает знание таблиц Excel. В VBA, или, скорее, в Object Object Model, таблицы называются ListObjects. Наиболее часто используемыми свойствами ListObject являются ListRow (s), ListColumn (s), DataBodyRange, Range и HeaderRowRange.

Создание экземпляра ListObject

Dim lo as ListObject
Dim MyRange as Range

Set lo = Sheet1.ListObjects(1)

'or

Set lo = Sheet1.ListObjects("Table1")

'or

Set lo = MyRange.ListObject

Работа с 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

Преобразование таблицы Excel в обычный диапазон

Dim lo as ListObject

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


Modified text is an extract of the original Stack Overflow Documentation
Лицензировано согласно CC BY-SA 3.0
Не связан с Stack Overflow