Kuidas määrata Exceli arvutustabeli veeru laiust VBA abil?

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 .