Come modificare la larghezza della colonna in vba (con esempi)
È possibile utilizzare i seguenti metodi per modificare la larghezza delle colonne in Excel utilizzando VBA:
Metodo 1: modificare la larghezza di una colonna
SubChangeColumnWidth ()
Columns(" B ").ColumnWidth = 20
End Sub
Questa particolare macro modifica la larghezza della colonna B in 20 .
Nota : la larghezza predefinita della colonna in Excel è 8,29 .
Metodo 2: modificare la larghezza di più colonne
SubChangeColumnWidth ()
Columns(" B:D ").ColumnWidth = 20
End Sub
Questa particolare macro modifica la larghezza di tutte le colonne nell’intervallo da B a D a 20 .
Metodo 3: regola automaticamente la larghezza di più colonne
SubChangeColumnWidth ()
Columns(" B:D ").AutoFit
End Sub
Questa particolare macro regola automaticamente la larghezza di ciascuna colonna nell’intervallo da B a D in modo che sia larga quanto necessario per visualizzare la cella più lunga in ciascuna colonna.
Gli esempi seguenti mostrano come utilizzare nella pratica ciascuno di questi metodi con il seguente set di dati in Excel:
Esempio 1: modificare la larghezza di una colonna
Possiamo creare la seguente macro per modificare la larghezza della colonna B in 20:
SubChangeColumnWidth ()
Columns(" B ").ColumnWidth = 20
End Sub
Quando eseguiamo questa macro, riceviamo il seguente output:
Tieni presente che solo la larghezza della colonna B (la colonna “Punti”) è cambiata in 20 mentre la larghezza di tutte le altre colonne è rimasta la stessa.
Esempio 2: modificare la larghezza di più colonne
Possiamo creare la seguente macro per modificare la larghezza delle colonne da B a D a 20:
SubChangeColumnWidth ()
Columns(" B:D ").ColumnWidth = 20
End Sub
Quando eseguiamo questa macro, riceviamo il seguente output:
Tieni presente che la larghezza di ciascuna colonna da B a D è cambiata in 20 mentre la larghezza della colonna A è rimasta la stessa.
Esempio 3: regolazione automatica della larghezza di più colonne
Possiamo creare la seguente macro per regolare automaticamente la larghezza di ciascuna colonna da A a D in modo che sia larga quanto necessario per visualizzare la cella più lunga in ciascuna colonna.
SubChangeColumnWidth ()
Columns(" A:D ").AutoFit
End Sub
Quando eseguiamo questa macro, riceviamo il seguente output:
Tieni presente che la larghezza di ciascuna colonna è stata regolata automaticamente per essere larga quanto necessario per visualizzare la cella più lunga in ciascuna colonna.
Risorse addizionali
I seguenti tutorial spiegano come eseguire altre attività comuni in VBA:
VBA: come contare il numero di colonne utilizzate
VBA: come trovare l’ultima colonna utilizzata
VBA: come eliminare colonne