Раздвинуть ячейку по горизонтали

[valerij]

Как, автоматом, раздвигать ячейки по горизонтали, от заполнения текстом?
Формат ячеек, не помог.
Например:
В А1, текст ХХХ, одна ширина яч., в В1, текст ХХХХХХХХХХХ, другая ширина и т. д.

[kuklp]

например:
columns("a:F").autofit

[R Dmitry]

Сообщение от valerij

Как, автоматом, раздвигать ячейки по горизонтали, от заполнения текстом?
Формат ячеек, не помог.
Например:
В А1, текст ХХХ, одна ширина яч., в В1, текст ХХХХХХХХХХХ, другая ширина и т. д.

Валера,
ну примерно так, но надо учитывать еще много всяких факторов, типа размер шрифта

Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target) > 5 Then Target.Columns.ColumnWidth = Len(Target) + 1
End Sub

[R Dmitry]

Сообщение от kuklp

например:
columns("a:F").autofit

привет Сергей, супер что то я про autofit забыл напрочь

[valerij]

Объединил, оба ответа, просто СУПЕР, то что надо!!!

Private Sub Worksheet_Change(ByVal Target As Range)
   Columns("a:F").AutoFit
End Sub

СПАСИБО!!!

[kuklp]

Привет, Валера, Дима. Валер, тогда уж лучше:
Private Sub Worksheet_Change(ByVal Target As Range)
Columns(target.column).AutoFit
End Sub

[valerij]

Сообщение от kuklp

тогда уж лучше

Привет Сергей!
ВзятО!!
Спасибо!