Как установить ширину столбца электронной таблицы Excel с помощью VBA?

Обновлено: август 2021 г.; Работает в Excel 365, 2019, 2016.

В сегодняшнем учебнике по автоматизации Excel мы узнаем, как быстро изменить ширину столбца рабочего листа по мере необходимости, но программно с использованием VBA (Visual Basic для приложений).

Предпосылки

Чтобы написать код VBA, вам необходимо в первую очередь убедиться, что вкладка разработчика включена. Если вы не уверены в процедуре, обязательно ознакомьтесь с нашей подробной процедурой .

• На компьютере с Windows откройте Microsoft Excel .
• На главной ленте нажмите « Разработчик» .
• Нажмите команду Visual Basic . Это откроет редактор VBA .
• В проводнике проекта с левой стороны выделите конкретный лист, в который вы будете вставлять свой код. Кроме того, вы можете вставить новый модуль или добавить наш код в существующий модуль VBA.

Установка ширины одного столбца

В этом примере мы выберем один столбец на активном рабочем листе и соответствующим образом изменим его.

• С помощью редактора VBA скопируйте следующий код на лист или модуль.

Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

• Запустите свой код, нажав F5, или выберите «Выполнить» >> «Выполнить подпрограмму» или «Форма».
• Сохраните свою работу, нажав «Файл» >> «Сохранить» или значок «Диск».

Изменить ширину диапазона из нескольких столбцов

В этом примере мы выбираем диапазон столбцов, затем меняем ширину.

Вы можете применить код так же, как описано в предыдущем разделе.

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

Следующие шаги

Начиная с VBA? Обязательно изучите руководство по основам VBA для Excel .