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 .

Zanechať komentár

Šablóna PowerPointu o výročnej správe neziskovej organizácie: Možnosti bezplatného stiahnutia a kontrolný zoznam slajdov

Vytvorte prehľadnú výročnú správu neziskovej organizácie v PowerPointe s bezplatnou šablónou, praktickou štruktúrou slajdov, metrikami vplyvu, finančnými údajmi a tipmi na prezentácie pripravené pre darcov.

Šablóna PowerPointu pre minimalistickú investorskú prezentáciu pre technologické startupy: Čo zahrnúť a čo vynechať

Vytvorte si v PowerPointe prezentáciu pre investorov z oblasti čistých technologických startupov s praktickou štruktúrou slajdov, posolstvom zameraným na dôkazy, prístupným dizajnom a menším počtom rušivých elementov.

Šablóna matice delegovania úloh pre Word: Praktická verzia pre manažérov malých tímov

Pomocou tejto jednoduchej šablóny matice delegovania úloh vo Worde môžete priradiť vlastníkov, limity rozhodovania, termíny a kontrolné body bez toho, aby ste príliš komplikovali malý tím.

Šablóna jednoduchého hárku dochádzky do škôlky: Prihlásenie a odhlásenie na vytlačenie pre domácu starostlivosť o deti

Použite tento jednoduchý tlačiteľný hárok dochádzky do škôlky pre domácu starostlivosť o deti s menami detí, časmi príchodu/odchodu, podpismi a tipmi na dodržiavanie predpisov.

Šablóna marketingovej stratégie na jednu stránku na tlač pre miestne firmy

Použite túto šablónu marketingovej stratégie na vytlačenie na definovanie vášho miestneho publika, ponuky, kanálov, rozpočtu, týždenných akcií a merateľných cieľov.

Ako zabrániť Excelu v automatickej zmene čísel na dátumy

Zastavte Excel v konverzii hodnôt ako 1/2, 11-53 alebo JAN1 na dátumy. Naučte sa spoľahlivé riešenia pre písanie, vkladanie, import CSV a už konvertované bunky.

Šablóna PowerPointovej prezentácie moderného zoznamu nehnuteľností (bezplatná): Čo zahrnúť

Vytvorte si bezplatne elegantný PowerPointový zápis nehnuteľnosti s praktickým plánom slajdov, fotografiami, brandingom, tipmi na prístupnosť, dodržiavanie predpisov a export.

Ako opraviť chybu Outlooku: Nemožno odoslať e-mail, ale príjem funguje

Opravte Outlook, keď môžete prijímať e-maily, ale nemôžete ich odosielať. Skontrolujte Poštovú schránku na odoslanie, offline režim, prihlásenie, nastavenia SMTP, profily a zmeny v Microsoft 365.

Jednoduchá šablóna Excelu na sledovanie dvojtyždenného mzdového účtovníctva pre malé tímy: Praktická príručka na nastavenie

Vytvorte jednoduchý dvojtyždenný sledovač miezd v Exceli pre malý tím, vrátane hodín, výplat, odpočtov, príznakov na kontrolu, súhrnov a usmernení na vedenie záznamov.

Kontrolný zoznam pre plánovanie udalostí a šablóna rozpočtu na tlač pre Word: Čo zahrnúť a kedy namiesto toho použiť Excel

Vytvorte alebo prispôsobte si tlačiteľnú šablónu kontrolného zoznamu a rozpočtu pre plánovanie udalostí v programe Microsoft Word s praktickými časťami, kompromismi a tipmi pre porovnanie Wordu a Excelu.