Värskendatud: august 2021; Töötab versioonides Excel 365, 2019, 2016.
Tänases Exceli automatiseerimise õpetuses õpime, kuidas kiiresti muuta töölehe veeru laiust vastavalt vajadusele – kuid programmiliselt VBA (Visual Basic for Applications) abil.
Eeldused
VBA-koodi kirjutamiseks peate ennekõike veenduma, et arendaja vahekaart on lubatud. Kui te pole protseduuris kindel, tutvuge kindlasti meie üksikasjaliku protseduuriga .
- Avage oma Windowsi arvutis Microsoft Excel .
- Peamisel lindil hitt Arendaja .
- Vajutage Visual Basicu käsku. See avab VBA redaktori .
- Tõstke vasakpoolses projektiuurijas esile konkreetne leht, kuhu sisestate oma koodi. Teise võimalusena saate sisestada uue mooduli või lisada meie koodi olemasolevale VBA moodulile.

Ühe veeru laiuse määramine
Selles näites valime aktiivsel töölehel ühe veeru ja muudame seda vastavalt.
- Kopeerige VBA redaktori abil järgmine kood oma töölehel või moodulisse.
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
- Käivitage oma kood, vajutades klahvi F5 või valige Käivita >> Käivita alam või vorm.
- Salvestage oma töö, klõpsates nuppu Fail >> Salvesta või ikooni Ketta.
Mitme veeru vahemiku laiuse muutmine
Selles näites valime veergude vahemiku ja muudame seejärel laiust.
Saate koodi rakendada samal viisil, nagu on kirjeldatud eelmises jaotises.
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
Järgmised sammud
Kas alustate VBA-ga? Vaadake Exceli juhendi jaoks kindlasti VBA põhitõdesid .