Как да зададете ширина на колоната на електронна таблица в 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 или изберете Run >> Run Sub or Form.
• Запазете работата си, като натиснете File >> Save или иконата Disk.

Промяна на ширината на диапазон от множество колони

В този пример избираме диапазон от колони, след което променяме ширината.

Можете да приложите кода по същия начин, както е описано в предишния раздел.

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 .