Altezza riga - Larghezza colonna - Esempi di codice VBA

Questo tutorial dimostrerà come impostare l'altezza delle righe e le larghezze delle colonne utilizzando VBA.

Le altezze delle righe e le larghezze delle colonne di Excel possono essere modificate in VBA impostando le proprietà .RowHeight e .ColumnWidth.

Imposta la larghezza della colonna con VBA

Macro per impostare il larghezza della colonna delle colonne da A a E:

123 Larghezza_colonna secondaria()Colonne("A:E").ColumnWidth = 30Fine sottotitolo

Imposta l'altezza della riga con VBA

Macro per impostare il altezza della riga della riga 1:

123 Altezza riga secondaria()Righe("1:1"). AltezzaRiga = 30Fine sottotitolo

Adatta automaticamente larghezza colonna

Excel offre la possibilità di "adattare automaticamente" le larghezze delle colonne. Questa funzione regola la larghezza della colonna in modo che le colonne siano sufficientemente larghe da contenere tutto il testo trovato in quella colonna.

Per adattare automaticamente le larghezze delle colonne in VBA:

1 Colonne ("A: B"). Adatta automaticamente

Abbiamo scritto di più su questo in un altro articolo su come adattare automaticamente una colonna da VBA, incluso come adattare automaticamente tutte le colonne utilizzate.

Adatta automaticamente altezza riga

Puoi anche adattare automaticamente le altezze delle righe usando un metodo simile:

1 Righe("1:2"). Adattamento automatico

Imposta larghezza cella

Puoi anche regolare le larghezze delle colonne facendo riferimento a una cella:

1 Intervallo("a1").EntireColumn.ColumnWidth = 20

Imposta altezza cella

Oppure regola l'altezza delle righe facendo riferimento a una cella:

1 Intervallo("a1").EntireRow.RowHeight = 10

Ottieni larghezza colonna

Per ottenere la larghezza della colonna di una colonna:

12 dim iColumnWidth quanto a lungoiColumnWidth = columns("a").ColumnWidth

Nota: questo restituirà Null se tutte le colonne nell'intervallo non hanno la stessa larghezza.

Ottieni altezza riga

Allo stesso modo, puoi ottenere l'altezza della riga:

12 dim iRowHeight a lungoiRowHeight = rows("1").RowHeight
wave wave wave wave wave