Автоподстройка столбца Excel

Question

Я пишу приложение в VB 6, в котором мне нужно изменить ширину столбца на листе Excel до максимального размера содержимого в этом столбце.Свойство Autofit делает ширину столбцов только шириной заголовка.Но я хочу, чтобы это было сделано исходя из максимального размера его содержимого.

Есть ли способ добиться этого?

Answer 1

В этом примере изменяется ширина столбцов от A до I на Sheet1 для достижения наилучшего соответствия:

Worksheets("Sheet1").Columns("A:I").AutoFit

В этом примере изменяется ширина столбцов от A до Eна Sheet1 для достижения наилучшего соответствия, исходя только из содержимого ячеек A1:E1:

Worksheets("Sheet1").Range("A1:E1").Columns.AutoFit

Answer 2

Ваш код должен выглядеть примерно так:

Columns("D:D").EntireColumn.AutoFit

Answer 3

Функция автозаполнения должна работать нормально, просто убедитесь, что:

• Сначала вставьте все данные, автозапуск вызова
• Вызов автозаполнения для всего столбца, а не для одной ячейки (например,.Cells (1,1) .EntireColumn.Autofit ()

Надеюсь, это поможет ...

Answer 4

Автоподгонка будет работать только для чисел и даты.

См. Формат Excel 2003 XML - AutoFitWidth не работает

Answer 5

1. Введите свой текст
2. поместите мышь на верхнюю правую границу заголовка столбца
3. при изменении указателя мыши
4. , затем дважды щелкните кнопкой управления
5. ширина вашего столбца будет увеличиваться в зависимости от содержимого ....