Использование имени заголовка таблицы для установки ширины столбца - PullRequest
0 голосов
/ 11 апреля 2020

вот частичный код. интересно, есть ли способ использовать имя заголовка таблицы, чтобы установить ширину ее столбца. последний оператор - это место для установки ширины.


Worksheets("PDX Master List").ListObjects.Add(SourceType:=xlSrcRange, _
        Source:=tableRange, _
        xlListObjectHasHeaders:=xlYes _
        ).Name = tableName

Dim t As Object

Set t = Worksheets("PDX Master List").ListObjects(tableName)

t.range.WrapText = True

t.range.EntireColumn.ColumnWidth = 15

' could use the table header name to set column width?
t.ListColumns("Description").Width = 30

1 Ответ

0 голосов
/ 11 апреля 2020

Немного экспериментов показывает, что это работает

Sub x()

ActiveSheet.ListObjects(1).ListColumns("Heading 1").Range.ColumnWidth = 30

End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...