See õpetus näitab, kuidas VBA abil rea kõrgust ja veeru laiust määrata.
Exceli ridade kõrgusi ja veergude laiusi saab VBA -s muuta, määrates atribuudid .RowHeight ja .ColumnWidth.
Määrake veeru laius VBA abil
Makro seadistamiseks veeru laius veergudest A kuni E:
| 123 | Alamveeru_laius ()Veerud ("A: E"). Veeru laius = 30End Sub |
Seadke rea kõrgus VBA abil
Makro seadistamiseks rea kõrgus 1. reast:
| 123 | Alamrida kõrgus ()Ridad ("1: 1"). RowHeight = 30End Sub |
Automaatse veeru laius
Excel pakub võimalust veerulaiuste automaatseks kohandamiseks. See funktsioon reguleerib veeru laiust nii, et veerg (veerud) on piisavalt laiad, et mahutada kogu selles veerus leiduv tekst.
Veerulaiuste automaatseks kohandamiseks VBA -s tehke järgmist.
| 1 | Veerud ("A: B"). Autofit |
Kirjutasime sellest lähemalt teises artiklis, kuidas VBA -st veergu automaatselt sobitada, sealhulgas kõigi kasutatud veergude automaatset sobitamist.
Automaatne rea kõrgus
Sarnase meetodi abil saate ka ridade kõrgusi automaatselt kohandada.
| 1 | Ridad ("1: 2"). Autofit |
Määrake lahtri laius
Veeru laiust saate reguleerida ka lahtrile viidates.
| 1 | Vahemik ("a1"). Kogu veerg. Veeru laius = 20 |
Määrake raku kõrgus
Või reguleerige rea kõrgusi, viidates lahtrile:
| 1 | Vahemik ("a1"). EntireRow.RowHeight = 10 |
Saate veeru laiuse
Veeru veeru laiuse saamiseks tehke järgmist.
| 12 | hämar iColumnWidth nii kauaiColumnWidth = veerud ("a"). ColumnWidth |
Märkus. See tagastab väärtuse Null, kui kõik vahemiku veerud ei ole sama laiusega.
Hankige rea kõrgus
Samamoodi saate rea kõrguse:
| 12 | hämar iRowHeight sama kauaiRowHeight = read ("1"). RowHeight |
