Kako nastaviti širino stolpca preglednice Excel z VBA?

Posodobljeno: avgust 2021; Deluje v Excelu 365, 2019, 2016.

V današnji vadnici za avtomatizacijo Excel se bomo naučili, kako hitro spremeniti širino stolpca delovnega lista po potrebi – vendar programsko z uporabo VBA (Visual Basic za aplikacije).

Predpogoji

Če želite napisati kodo VBA, morate najprej in predvsem zagotoviti, da je vaš zavihek za razvijalce omogočen. Če niste prepričani o postopku, si oglejte naš podroben postopek .

• V računalniku z operacijskim sistemom Windows odprite Microsoft Excel .
• Na glavnem traku pritisnite Razvijalec .
• Pritisnite ukaz Visual Basic . To bo odprlo urejevalnik VBA .
• V levem raziskovalcu projektov označite določen list, v katerega boste vstavili svojo kodo. Lahko pa vstavite nov modul ali dodate našo kodo obstoječemu modulu VBA.

Nastavitev širine enega stolpca

V tem primeru bomo na aktivnem delovnem listu izbrali en stolpec in ga ustrezno spremenili.

• Z urejevalnikom VBA kopirajte naslednjo kodo na svoj delovni list ali 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

• Zaženite kodo tako, da pritisnete F5 ali izberete Zaženi >> Zaženi pod ali obrazec.
• Shranite svoje delo tako, da pritisnete Datoteka >> Shrani ali ikono Disk.

Spremeni širino obsega več stolpcev

V tem primeru izberemo obseg stolpcev in nato spremenimo širino.

Kodo lahko uporabite na enak način, kot je opisano v prejšnjem razdelku.

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

Naslednji koraki

Začeti z VBA? Prepričajte se, da si oglejte osnove VBA za vodnik za Excel .