Како подесити ширину колоне Екцел табеле са ВБА?

Ажурирано: август 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

Следећи кораци

Почињете са ВБА? Обавезно погледајте ВБА основе за водич за Екцел .