Ажурирано: август 2021; Ради на Екцел 365, 2019, 2016.
У данашњем водичу за аутоматизацију Екцел-а научићемо како да брзо променимо ширину колоне радног листа по потреби – али програмски користећи ВБА (Висуал Басиц за апликације).
Предуслови
Да бисте написали ВБА код, прво морате да се уверите да је картица програмера омогућена. Ако нисте сигурни у вези са процедуром, обавезно погледајте нашу детаљну процедуру .
- На Виндовс рачунару отворите Мицрософт Екцел .
- На главној траци притисните Девелопер .
- Притисните команду Висуал Басиц . Ово ће отворити ВБА Едитор .
- У истраживачу пројеката са леве стране, означите одређени лист у који ћете уметнути свој код. Алтернативно, можете уметнути нови модул или додати наш код у постојећи ВБА модул.

Подешавање ширине једне колоне
У овом примеру, изабраћемо једну колону у активном радном листу и изменити је у складу са тим.
- Користећи ВБА Едитор, копирајте следећи код на радни лист или модул.
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
- Покрените свој код притиском на Ф5 или изаберите Рун >> Рун Суб или Форм.
- Сачувајте свој рад притиском на Датотека >> Сачувај или икону Диск.
Промените ширину опсега са више колона
У овом примеру бирамо опсег колона, а затим мењамо ширину.
Код можете применити на исти начин као што је описано у претходном одељку.
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
Следећи кораци
Почињете са ВБА? Обавезно погледајте ВБА основе за водич за Екцел .