Denne opplæringen vil demonstrere hvordan du angir radhøyde og kolonnebredder ved hjelp av VBA.
Excel radhøyder og kolonnebredder kan endres i VBA ved å angi egenskapene .RowHeight og .ColumnWidth.
Still inn kolonnebredde med VBA
Makro for å stille inn kolonnebredde av kolonne A til E:
123 | Sub Column_Width ()Kolonner ("A: E"). ColumnWidth = 30Slutt Sub |
Still radhøyde med VBA
Makro for å stille inn radhøyde av rad 1:
123 | Sub RowHeight ()Rader ("1: 1"). RowHeight = 30Slutt Sub |
Autofit -kolonnebredde
Excel tilbyr muligheten til å "Autofit" kolonnebredder. Denne funksjonen justerer kolonnebredden slik at kolonnen (e) er bred nok til å passe til all tekst som finnes i den kolonnen.
Slik autofitterer du kolonnebredder i VBA:
1 | Kolonner ("A: B"). Automatisk tilpasning |
Vi skrev mer om dette i en annen artikkel om hvordan du autofitterer en kolonne fra VBA, inkludert hvordan du autofitterer alle brukte kolonner.
Autofit radhøyde
Du kan også tilpasse radhøyder automatisk med en lignende metode:
1 | Rader ("1: 2"). Automatisk tilpasning |
Angi cellebredde
Du kan også justere kolonnebredder ved å referere til en celle:
1 | Område ("a1"). EntireColumn.ColumnWidth = 20 |
Angi cellehøyde
Eller juster radhøyder ved å referere til en celle:
1 | Område ("a1"). EntireRow.RowHeight = 10 |
Skaff kolonnebredde
Slik får du kolonnebredden til en kolonne:
12 | dim iColumnWidth så lengeiColumnWidth = kolonner ("a"). ColumnWidth |
Merk: Dette vil returnere Null hvis alle kolonner i området ikke har samme bredde.
Skaff radhøyde
På samme måte kan du få rekkehøyden:
12 | dim iRowHeight så lengeiRowHeight = rader ("1"). RowHeight |