Cum să setați lățimea coloanei unei foi de calcul Excel cu VBA?

Actualizat: august 2021; Funcționează pe Excel 365, 2019, 2016.

În tutorialul de automatizare Excel de astăzi, vom învăța cum să modificați rapid lățimea unei coloane de foi de lucru, după cum este necesar, dar prin programare folosind VBA (Visual Basic for Applications).

Cerințe preliminare

Pentru a scrie codul VBA, va trebui, în primul rând, să vă asigurați că fila pentru dezvoltatori este activată. Dacă nu sunteți sigur de procedură, asigurați-vă că consultați procedura noastră detaliată .

• Pe computerul Windows, deschideți Microsoft Excel .
• Pe Panglica principală apăsați Developer .
• Apăsați comanda Visual Basic . Aceasta va deschide Editorul VBA .
• În exploratorul de proiecte din partea stângă, evidențiați o anumită foaie în care veți introduce codul. Alternativ, puteți introduce un nou modul sau puteți adăuga codul nostru la un modul VBA existent.

Setarea unei lățimi a coloanei

În acest exemplu, vom selecta o coloană din foaia de lucru activă și o vom modifica în consecință.

• Folosind Editorul VBA, copiați următorul cod în foaia de lucru sau modulul dvs.

Sub Set_Column_Width()

Dim MySheet As Worksheet
Set MySheet = ActiveSheet

' Select one or multiple columns, set your column width as needed

With MySheet.Columns("B")

    .ColumnWidth = 50
End With

End Sub

• Rulați codul apăsând pe F5 sau alegeți Run >> Run Sub or Form.
• Salvați-vă munca apăsând pe Fișier >> Salvare sau pe pictograma Disc.

Modificați lățimea unui interval de coloane multiple

În acest exemplu, alegem o serie de coloane, apoi schimbăm lățimea.

Puteți aplica codul în același mod ca în secțiunea anterioară.

Sub Set_Column_Range_Width()

Dim MySheet As Worksheet

Set MySheet = ActiveSheet

' Set your column width as needed
With MySheet.Range("A:F")

    .ColumnWidth = .ColumnWidth * 1.5
End With

End Sub

Pasii urmatori

Începeți cu VBA? Asigurați-vă că vă uitați la noțiunile de bază ale VBA pentru ghidul Excel .