Acest tutorial va arăta cum să setați înălțimea rândului și lățimea coloanei folosind VBA.
Înălțimile rândurilor și lățimile coloanelor Excel pot fi modificate în VBA prin setarea proprietăților .RowHeight și .ColumnWidth.
Setați Lățimea coloanei cu VBA
Macro pentru a seta lățimea coloanei a coloanelor de la A la E:
| 123 | Sub Column_Width ()Coloane („A: E”). ColumnWidth = 30Sfârșitul Sub |
Setați Înălțimea rândului cu VBA
Macro pentru a seta înălțimea rândului din rândul 1:
| 123 | Sub RowHeight ()Rânduri („1: 1”). Înălțimea rândului = 30Sfârșitul Sub |
Lățimea coloanei de ajustare automată
Excel oferă posibilitatea de a „Autofit” lățimile coloanelor. Această caracteristică ajustează lățimea coloanei astfel încât coloana (coloanele) să fie suficient de largă pentru a se potrivi cu tot textul găsit în coloana respectivă.
Pentru ajustarea automată a lățimilor coloanelor în VBA:
| 1 | Coloane („A: B”). Autofit |
Am scris mai multe despre acest lucru într-un alt articol despre modul de adaptare automată a unei coloane din VBA, inclusiv modul de adaptare automată a tuturor coloanelor utilizate.
Autofit Înălțimea rândului
De asemenea, puteți ajusta automat înălțimile rândurilor folosind o metodă similară:
| 1 | Rânduri („1: 2”). Autofit |
Setați lățimea celulei
De asemenea, puteți ajusta lățimile coloanei făcând referire la o celulă:
| 1 | Gama ("a1"). EntireColumn.ColumnWidth = 20 |
Setați înălțimea celulei
Sau ajustați înălțimile rândurilor făcând referire la o celulă:
| 1 | Gama ("a1"). EntireRow.RowHeight = 10 |
Obțineți lățimea coloanei
Pentru a obține lățimea coloanei unei coloane:
| 12 | dim iColumnWidth at longiColumnWidth = coloane ("a"). ColumnWidth |
Notă: Aceasta va reveni la nul dacă toate coloanele din interval nu au aceeași lățime.
Obțineți înălțimea rândului
În mod similar, puteți obține înălțimea rândului:
| 12 | dim iRowHeight cât timpiRowHeight = rânduri ("1"). RowHeight |
