Šī apmācība parādīs, kā iestatīt rindu augstumu un kolonnu platumu, izmantojot VBA.
Programmā Excel rindu augstumus un kolonnu platumus var mainīt, iestatot rekvizītus .RowHeight un .ColumnWidth.
Iestatiet kolonnas platumu, izmantojot VBA
Makro, lai iestatītu kolonnas platums no A līdz E slejai:
| 123 | Apakškolonna_platums ()Kolonnas ("A: E"). Kolonnas platums = 30Beigu apakš |
Iestatiet rindas augstumu ar VBA
Makro, lai iestatītu rindas augstums no 1. rindas:
| 123 | Apakšrindas augstums ()Rindas ("1: 1"). Rindas augstums = 30Beigu apakš |
Automātiskās kolonnas platums
Excel piedāvā iespēju “automātiski pielāgot” kolonnu platumus. Šī funkcija pielāgo kolonnas platumu tā, lai kolonna (-as) būtu pietiekami plata, lai ietilptu visā šajā slejā atrodamajā tekstā.
Lai automātiski pielāgotu kolonnu platumus VBA:
| 1 | Kolonnas ("A: B"). Automātiskā pielāgošana |
Mēs par to vairāk rakstījām citā rakstā par to, kā automātiski pielāgot kolonnu no VBA, tostarp par to, kā automātiski pielāgot visas izmantotās kolonnas.
Autofit rindas augstums
Varat arī automātiski pielāgot rindu augstumus, izmantojot līdzīgu metodi:
| 1 | Rindas ("1: 2"). Autofit |
Iestatiet šūnas platumu
Varat arī pielāgot kolonnu platumus, atsaucoties uz šūnu:
| 1 | Diapazons ("a1"). Visa kolonna. Kolonnas platums = 20 |
Iestatiet šūnas augstumu
Vai arī pielāgojiet rindu augstumus, atsaucoties uz šūnu:
| 1 | Diapazons ("a1"). EntireRow.RowHeight = 10 |
Iegūstiet kolonnas platumu
Lai iegūtu kolonnas kolonnas platumu:
| 12 | blāvs iColumnWidth tik ilgiiColumnWidth = kolonnas ("a"). ColumnWidth |
Piezīme. Tas atgriezīs vērtību Null, ja visām diapazona kolonnām nav vienāda platuma.
Iegūstiet rindas augstumu
Līdzīgi jūs varat iegūt rindas augstumu:
| 12 | blāvs iRowHeight tik ilgiiRowHeight = rindas ("1"). RowHeight |
