Как увеличить текстовую область столбцов через Excel VBA

Question

Я извлекаю данные из таблицы через VBA. Запрос на выборку выдает правильные данные. У одного из выбранных мной столбцов есть текстовое описание, которое является многострочным. Поэтому, когда я получаю свои строки, я хочу увеличить текстовое чтение моегоСтолбцы электронной таблицы динамически в соответствии с результатами, которые я получаю. Как я могу это сделать

Answer 1

Вы можете использовать метод AutoFit для столбцов, содержащих результат запроса, например,

Columns("A:G").EntireColumn.AutoFit ' hardcoded ... works but isn't nice

Если у вас есть диапазон, определенный для результата запроса, используйте этот фрагмент кода:

Dim QRslt As Range, QCol As Range

    '....
    For Each QCol In QRslt.Columns
        QCol.AutoFit
    Next
    '....

Если вы хотите ограничить ширину столбца до определенного максимального размера, вы можете в качестве альтернативы установить для свойства .WrapText ячеек = True

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

Удачи - MikeD