Kako postaviti širinu stupca proračunske tablice u Excelu pomoću VBA?

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 .