Як встановити ширину стовпця електронної таблиці 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 .