Автоширина колонки по видимым ячейкам - VBA

Формулировка задачи:

Есть ли у кого идеи как сделать ширину колонки по самой длинной строке из диапазона видимых ячеек (в примере из диапазона А1:А9)

                    Листинг программы
                
 
                        
                          
                    
Sub fff()
    Cells(1, 1) = "a"
    Cells(1, 1) = "aaa"
    ...
    Cells(9, 1) = "aa"
    Cells(10, 1) = "aaaaaaaaaaaa"
    Rows(10).Hidden = True
    Columns(1).EntireColumn.AutoFit
End Sub

Потыкался с помощью 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

Оцени полезность:

10 голосов , оценка 3.9 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы