Ažurirano: kolovoz 2021.; Radi na Excelu 365, 2019, 2016.
U današnjem vodiču za automatizaciju Excela naučit ćemo kako brzo promijeniti širinu stupca radnog lista prema potrebi – ali programski koristeći VBA (Visual Basic za aplikacije).
Preduvjeti
Da biste napisali VBA kod, morate prije svega osigurati da je kartica programera omogućena. Ako niste sigurni u postupak, svakako pogledajte naš detaljni postupak .
- Na računalu sa sustavom Windows otvorite Microsoft Excel .
- Na glavnoj vrpci pritisnite Developer .
- Pritisnite naredbu Visual Basic . Ovo će otvoriti VBA Editor .
- U istraživaču projekata s lijeve strane označite određeni list u koji ćete umetnuti svoj kod. Alternativno, možete umetnuti novi modul ili dodati naš kod u postojeći VBA modul.

Postavljanje širine jednog stupca
U ovom primjeru odabrat ćemo jedan stupac u aktivnom radnom listu i u skladu s tim ga izmijeniti.
- Koristeći VBA Editor, kopirajte sljedeći kod na svoj radni list ili modul.
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
- Pokrenite svoj kôd pritiskom na F5 ili odaberite Run >> Run Sub ili Form.
- Spremite svoj rad pritiskom na Datoteka >> Spremi ili ikonu Disk.
Promjena širine raspona više stupaca
U ovom primjeru biramo raspon stupaca, a zatim mijenjamo širinu.
Kod možete primijeniti na isti način kao što je opisano u prethodnom odjeljku.
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
Sljedeći koraci
Početi s VBA? Obavezno pogledajte VBA osnove za vodič za Excel .