Tento tutoriál předvede, jak pomocí VBA nastavit výšku řádku a šířku sloupce.
Výšky řádků Excel a šířky sloupců lze ve VBA změnit nastavením vlastností .RowHeight a .ColumnWidth.
Nastavte šířku sloupce pomocí VBA
Makro pro nastavení šířka sloupce sloupců A až E:
| 123 | Podsloupec_Šířka ()Sloupce („A: E“). Šířka sloupce = 30End Sub |
Nastavte výšku řádku pomocí VBA
Makro pro nastavení Výška řádku řádku 1:
| 123 | Podřízená výška ()Řádky ("1: 1"). RowHeight = 30End Sub |
Šířka sloupce Autofit
Excel nabízí možnost šířky sloupců „Autofit“. Tato funkce upravuje šířku sloupce tak, aby sloupce byly dostatečně široké, aby se do nich vešel veškerý text nalezený v daném sloupci.
Jak automaticky přizpůsobit šířky sloupců ve VBA:
| 1 | Sloupce („A: B“). Autofit |
Více jsme o tom napsali v jiném článku o tom, jak automaticky přizpůsobit sloupec z VBA, včetně toho, jak automaticky přizpůsobit všechny použité sloupce.
Výška řádku Autofit
Podobně můžete také automaticky přizpůsobovat výšky řádků:
| 1 | Řádky („1: 2“). Autofit |
Nastavit šířku buňky
Šířky sloupců můžete také upravit odkazováním na buňku:
| 1 | Rozsah ("a1"). EntireColumn.ColumnWidth = 20 |
Nastavit výšku buňky
Nebo upravte výšky řádků odkazem na buňku:
| 1 | Rozsah ("a1"). EntireRow.RowHeight = 10 |
Získejte šířku sloupce
Chcete -li získat šířku sloupce sloupce:
| 12 | ztlumit iColumnWidth tak dlouhoiColumnWidth = sloupce ("a"). ColumnWidth |
Poznámka: Toto vrátí Null, pokud všechny sloupce v rozsahu nemají stejnou šířku.
Získejte výšku řádku
Podobně můžete získat výšku řádku:
| 12 | ztlumit iRowHeight tak dlouhoiRowHeight = řádky ("1"). RowHeight |
