Ako nastaviť šírku stĺpca tabuľky Excel pomocou VBA?

Aktualizované: august 2021; Funguje na Excel 365, 2019, 2016.

V dnešnom návode na automatizáciu Excelu sa naučíme, ako rýchlo zmeniť šírku stĺpca pracovného hárka podľa potreby – ale programovo pomocou VBA (Visual Basic for Applications).

Predpoklady

Ak chcete napísať kód VBA, musíte sa predovšetkým uistiť, že je povolená karta vývojára. Ak si nie ste istí postupom, určite si pozrite náš podrobný postup .

• V počítači so systémom Windows otvorte program Microsoft Excel .
• Na hlavnej páske hit Developer .
• Kliknite na príkaz Visual Basic . Tým sa otvorí editor VBA .
• V prieskumníkovi projektov na ľavej strane zvýraznite konkrétny hárok, do ktorého vložíte kód. Prípadne môžete vložiť nový modul alebo pridať náš kód do existujúceho modulu VBA.

Nastavenie šírky jedného stĺpca

V tomto príklade vyberieme jeden stĺpec v aktívnom pracovnom hárku a podľa toho ho upravíme.

• Pomocou editora VBA skopírujte nasledujúci kód do pracovného hárka alebo modulu.

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

• Spustite svoj kód stlačením klávesu F5 alebo vyberte možnosť Spustiť >> Spustiť Sub alebo Formulár.
• Uložte svoju prácu kliknutím na Súbor >> Uložiť alebo na ikonu Disk.

Zmena šírky rozsahu viacerých stĺpcov

V tomto príklade vyberieme rozsah stĺpcov a potom zmeníme šírku.

Kód môžete použiť rovnakým spôsobom, ako je popísané v predchádzajúcej časti.

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

Ďalšie kroky

Začínate s VBA? Nezabudnite sa pozrieť do sprievodcu Základy jazyka VBA pre Excel .