Почему автоматический размер колонки режет текст в ячейках? - VBA

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

Простой пример:

                    Листинг программы
                
Sub Macro1()
 
    Cells(1, 1).Select
    ActiveCell.Value = "666.01"
    Selection.NumberFormat = "@"
    Columns("A:A").EntireColumn.AutoFit
    
End Sub

Как сделать так, чтобы при автофите текст в ячейках не урезался?

Решение задачи: «Почему автоматический размер колонки режет текст в ячейках?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Macro1()
    With Cells(1, 1)
        .Value = "666.01"
        .NumberFormat = "@"
        '.EntireColumn.AutoFit
        .EntireColumn.ColumnWidth = Len(.Value)
    End With
End Sub

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

13 голосов , оценка 4 из 5

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

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

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