Jak nastavit šířku sloupce tabulky Excel pomocí VBA?

Aktualizováno: srpen 2021; Funguje na Excel 365, 2019, 2016.

V dnešním tutoriálu automatizace Excelu se naučíme, jak rychle změnit šířku sloupce listu podle potřeby – ale programově pomocí VBA (Visual Basic for Applications).

Předpoklady

Chcete-li napsat kód VBA, musíte se nejprve ujistit, že je povolena karta Vývojář. Pokud si postupem nejste jisti, nezapomeňte se podívat do našeho podrobného postupu .

  • V počítači se systémem Windows otevřete aplikaci Microsoft Excel .
  • Na hlavním pásu karet hit Developer .
  • Stiskněte příkaz Visual Basic . Tím se otevře editor VBA .
  • V průzkumníku projektu na levé straně zvýrazněte konkrétní list, do kterého vložíte kód. Případně můžete vložit nový modul nebo přidat náš kód do stávajícího modulu VBA.

Jak nastavit šířku sloupce tabulky Excel pomocí VBA?

Nastavení šířky jednoho sloupce

V tomto příkladu vybereme jeden sloupec v aktivním listu a podle toho jej upravíme.

  • Pomocí editoru VBA zkopírujte následující kód do svého listu nebo 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
  • Spusťte svůj kód stisknutím klávesy F5 nebo vyberte Spustit >> Spustit Sub nebo Formulář.
  • Uložte svou práci klepnutím na Soubor >> Uložit nebo na ikonu Disk.

Změna šířky rozsahu více sloupců

V tomto příkladu vybereme rozsah sloupců a poté změníme šířku.

Kód můžete použít stejným způsobem, jak je popsáno v předchozí části.

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

Další kroky

Začínáte s VBA? Nezapomeňte se podívat do průvodce základy VBA pro Excel .

Zanechat komentář

Modern Real Estate Listing Presentation PowerPoint Template (Free): What to Include

Modern Real Estate Listing Presentation PowerPoint Template (Free): What to Include

Build a polished real estate listing PowerPoint for free with a practical slide plan, photo, branding, accessibility, compliance, and export tips.

Jak opravit chybu Outlooku: nelze odesílat e-maily, ale příjem funguje

Jak opravit chybu Outlooku: nelze odesílat e-maily, ale příjem funguje

Opravte Outlook, když můžete přijímat e-maily, ale nemůžete je odesílat. Zkontrolujte složku K odeslání, offline režim, přihlášení, nastavení SMTP, profily a změny v Microsoft 365.

Jednoduchá šablonová tabulka Excelu pro sledování dvouměsíční výplaty pro malé týmy: Praktická příručka nastavení

Jednoduchá šablonová tabulka Excelu pro sledování dvouměsíční výplaty pro malé týmy: Praktická příručka nastavení

Vytvořte jednoduchou šablonu pro sledování dvouměsíční výplaty v Excelu pro malý tým, včetně hodin, výplat, odpočtů, kontrolních příznaků, souhrnů a pokynů pro vedení záznamů.

Šablona kontrolního seznamu pro plánování událostí a rozpočtu k vytištění ve Wordu: Co zahrnout a kdy místo toho použít Excel

Šablona kontrolního seznamu pro plánování událostí a rozpočtu k vytištění ve Wordu: Co zahrnout a kdy místo toho použít Excel

Vytvořte nebo si upravte šablonu kontrolního seznamu a rozpočtu pro plánování akcí k tisku v aplikaci Microsoft Word s praktickými částmi, kompromisy a tipy pro porovnání Wordu a Excelu.

Jednoduchá šablona prezentace pro zaškolení nových zaměstnanců: Praktická struktura 12 slidů

Jednoduchá šablona prezentace pro zaškolení nových zaměstnanců: Praktická struktura 12 slidů

Vytvořte jednoduchou prezentaci pro zaškolení nových zaměstnanců pomocí praktické struktury 12 slidů pokrývající očekávání ohledně role, nástroje, bezpečnost, zásady, bezpečnost práce a akce pro první týden.

Jak exportovat kontakty ze Salesforce do čistého formátu Excel bez poškození ID nebo telefonních čísel

Jak exportovat kontakty ze Salesforce do čistého formátu Excel bez poškození ID nebo telefonních čísel

Exportujte kontakty ze Salesforce do Excelu čistě: vytvořte správný report, exportujte pouze detaily jako CSV, importujte pomocí Power Query, zachovejte ID a úvodní nuly, bezpečně odstraňte duplicity a ověřte výsledek.

Šablona týdenního úklidového plánu pro hostitele Airbnb (Word a PDF)

Šablona týdenního úklidového plánu pro hostitele Airbnb (Word a PDF)

Použijte tento tisknutelný týdenní úklidový plán pro hostitele Airbnb k organizaci úklidu mezi pobyty, hloubkového čištění, doplňování zásob, kontrol bezpečnosti a tisku z Wordu do PDF.

Šablona kalendáře měsíčních účtů zdarma pro Excel: Praktické nastavení na rok 2026

Šablona kalendáře měsíčních účtů zdarma pro Excel: Praktické nastavení na rok 2026

Uspořádejte měsíční účty v Excelu pomocí bezplatné šablony kalendáře účtů, sledování splatností, vzorců pro stav, polí pro automatické platby a praktických tipů pro cash flow.

Vzorce v Excelu se nepřepočítávají automaticky? Opravte to ve 3 jednoduchých krocích

Vzorce v Excelu se nepřepočítávají automaticky? Opravte to ve 3 jednoduchých krocích

Opravte vzorce v Excelu, které se nepřepočítávají automaticky, ve třech krocích: povolte automatický výpočet, přepočítejte a opravte buňky se vzorci.

Šablona pro sledování výdajů nezávislých dodavatelů pro americké freelancery: Co sledovat v roce 2026

Šablona pro sledování výdajů nezávislých dodavatelů pro americké freelancery: Co sledovat v roce 2026

Vytvořte praktický nástroj pro sledování výdajů pro americké freelancery s kategoriemi vhodnými pro formulář Schedule C, poli pro účtenky, sledováním ujetých kilometrů a aktualizacemi pravidel IRS pro rok 2026.