Автоширина колонки по видимым ячейкам - VBA
Формулировка задачи:
Есть ли у кого идеи как сделать ширину колонки по самой длинной строке из диапазона видимых ячеек (в примере из диапазона А1:А9)
Потыкался с помощью SpecialCells(xlCellTypeVisible) - не получилось.
Решение задачи: «Автоширина колонки по видимым ячейкам»
textual
Листинг программы
Sub fff() Cells(1, 1) = "a" Cells(2, 1) = "aaa" '... Cells(9, 1) = "aa" Cells(10, 1) = "aaaaaaaaaaaa" Rows(10).Hidden = True For Each x In Range("a1:a10").SpecialCells(xlCellTypeVisible) wd = IIf(Len(x) > wd, Len(x), wd) Next Columns.EntireColumn.ColumnWidth = wd End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д