Tämä opetusohjelma osoittaa, kuinka rivikorkeus ja sarakeleveydet asetetaan VBA: n avulla.
Excelin rivien korkeuksia ja sarakkeiden leveyksiä voidaan muuttaa VBA: ssa asettamalla .RowHeight- ja .ColumnWidth -ominaisuudet.
Aseta sarakkeen leveys VBA: lla
Makro asettaaksesi sarakkeen leveys sarakkeista A - E:
| 123 | Alasarake_leveys ()Sarakkeet ("A: E"). Sarakkeen leveys = 30End Sub |
Aseta rivin korkeus VBA: lla
Makro asettaaksesi rivin korkeus rivistä 1:
| 123 | Alarivin korkeus ()Rivit ("1: 1"). RiviKorkeus = 30End Sub |
Automaattisen sarakkeen leveys
Excel tarjoaa mahdollisuuden automaattiseen sovittamiseen sarakeleveydet. Tämä ominaisuus säätää sarakkeen leveyden siten, että sarake (sarakkeet) on riittävän leveä, jotta se mahtuu sarakkeessa olevaan tekstiin.
Automaattisen sarakkeen leveyden säätäminen VBA: ssa:
| 1 | Sarakkeet ("A: B"). Automaattinen sovitus |
Kirjoitimme tästä lisää toisessa artikkelissa sarakkeen automaattisesta sovittamisesta VBA: sta, mukaan lukien kaikkien käytettyjen sarakkeiden automaattinen sovitus.
Automaattinen rivin korkeus
Voit myös sovittaa rivien korkeudet automaattisesti vastaavalla menetelmällä:
| 1 | Rivit ("1: 2"). Automaattinen sovitus |
Aseta solun leveys
Voit myös säätää sarakkeiden leveyksiä viittaamalla soluun:
| 1 | Alue ("a1"). Koko sarake. Sarakkeen leveys = 20 |
Aseta solun korkeus
Tai säädä rivien korkeuksia viittaamalla soluun:
| 1 | Alue ("a1"). EntireRow.RowHeight = 10 |
Hae sarakkeen leveys
Sarakkeen leveyden saaminen:
| 12 | himmeä iColumnWidth niin kauaniColumnWidth = sarakkeet ("a"). ColumnWidth |
Huomautus: Tämä palauttaa nollan, jos alueen kaikkien sarakkeiden leveys ei ole sama.
Hanki rivin korkeus
Samalla tavalla voit saada rivin korkeuden:
| 12 | himmeä iRowHeight niin kauaniRowHeight = rivit ("1"). RowHeight |
