Tento tutoriál vám ukáže, ako nastaviť výšku riadka a šírku stĺpca pomocou jazyka VBA.
Výšky riadkov a šírky stĺpcov v programe Excel je možné vo VBA zmeniť nastavením vlastností .RowHeight a .ColumnWidth.
Nastavte šírku stĺpca pomocou VBA
Makro na nastavenie šírka stĺpca stĺpcov A až E:
| 123 | Podstĺpec_Šírka ()Stĺpce ("A: E"). Šírka stĺpca = 30Koniec pod |
Nastavte výšku riadka pomocou VBA
Makro na nastavenie výška radu 1. riadok:
| 123 | Sub RowHeight ()Riadky ("1: 1"). RowHeight = 30Koniec pod |
Šírka stĺpca Autofit
Excel ponúka možnosť automaticky prispôsobiť šírky stĺpcov. Táto funkcia upravuje šírku stĺpca tak, aby boli stĺpce dostatočne široké, aby sa zmestili na všetok text v tomto stĺpci.
Na automatické prispôsobenie šírky stĺpcov vo VBA:
| 1 | Stĺpce („A: B“). Autofit |
Písali sme o tom viac v inom článku o tom, ako automaticky prispôsobiť stĺpček od VBA vrátane toho, ako automaticky prispôsobiť všetky použité stĺpce.
Výška riadku Autofit
Výšky riadkov môžete tiež automaticky prispôsobovať podobnou metódou:
| 1 | Riadky („1: 2“). Automatické prispôsobenie |
Nastaviť šírku bunky
Šírky stĺpcov môžete tiež upraviť odkazom na bunku:
| 1 | Rozsah („a1“). EntireColumn.ColumnWidth = 20 |
Nastavte výšku bunky
Alebo upravte výšky riadkov odkazom na bunku:
| 1 | Rozsah („a1“). EntireRow.RowHeight = 10 |
Získajte šírku stĺpca
Ak chcete zistiť šírku stĺpca:
| 12 | stmaviť iColumnWidth tak dlhoiColumnWidth = stĺpce ("a"). ColumnWidth |
Poznámka: Toto vráti hodnotu Null, ak všetky stĺpce v rozsahu nemajú rovnakú šírku.
Získajte výšku riadka
Podobne môžete získať výšku riadka:
| 12 | stmaviť iRowHeight tak dlhoiRowHeight = riadky ("1"). RowHeight |
