Përditësuar: gusht 2021; Punon në Excel 365, 2019, 2016.
Në tutorialin e sotëm të automatizimit të Excel do të mësojmë se si të ndryshojmë shpejt gjerësinë e një kolone të fletës së punës sipas nevojës – por në mënyrë programore duke përdorur VBA (Visual Basic për Aplikacione).
Parakushtet
Për të shkruar kodin VBA, para së gjithash duhet të siguroheni që skeda juaj e zhvilluesit të jetë e aktivizuar. Nëse nuk jeni të sigurt për procedurën, sigurohuni që të shikoni procedurën tonë të detajuar .
- Në kompjuterin tuaj Windows, hapni Microsoft Excel .
- Në shiritin kryesor goditi Zhvilluesi .
- Shtypni komandën Visual Basic . Kjo do të hapë Redaktuesin VBA .
- Në eksploruesin e projektit në anën e majtë, theksoni një fletë specifike në të cilën do të futni kodin tuaj. Përndryshe, mund të futni një modul të ri ose të shtoni kodin tonë në një modul ekzistues VBA.

Vendosja e një gjerësie kolone
Në këtë shembull, ne do të zgjedhim një kolonë në fletën aktive të punës dhe do ta modifikojmë në përputhje me rrethanat.
- Duke përdorur redaktuesin VBA, kopjoni kodin e mëposhtëm në fletën e punës ose modulin tuaj.
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
- Ekzekutoni kodin tuaj duke shtypur F5 ose zgjidhni Run >> Run Sub ose Form.
- Ruani punën tuaj duke shtypur File >> Save ose ikonën Disk.
Ndryshoni gjerësinë e një diapazoni të shumëfishtë kolonash
Në këtë shembull ne zgjedhim një varg kolonash, më pas ndryshojmë gjerësinë.
Ju mund ta aplikoni kodin në të njëjtën mënyrë siç përshkruhet në seksionin e mëparshëm.
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
Hapat e ardhshëm
Filloni me VBA? Sigurohuni që të shikoni bazat e VBA për udhëzuesin Excel .