Kaip nustatyti „Excel“ skaičiuoklės stulpelio plotį naudojant VBA?

Atnaujinta: 2021 m. rugpjūčio mėn.; Veikia Excel 365, 2019, 2016 m.

Šiandienos „Excel“ automatizavimo pamokoje sužinosime, kaip greitai pakeisti darbalapio stulpelio plotį pagal poreikį, bet programiškai naudojant VBA („Visual Basic for Applications“).

Būtinos sąlygos

Norėdami parašyti VBA kodą, pirmiausia turite įsitikinti, kad įgalintas kūrėjo skirtukas. Jei nesate tikri dėl procedūros, būtinai peržiūrėkite mūsų išsamią procedūrą .

• „Windows“ kompiuteryje atidarykite „Microsoft Excel“ .
• Pagrindinėje juostoje hitas Kūrėjas .
• Paspauskite „ Visual Basic “ komandą. Tai atidarys VBA redaktorių .
• Kairėje projektų naršyklėje pažymėkite konkretų lapą, į kurį įterpsite savo kodą. Arba galite įterpti naują modulį arba pridėti mūsų kodą prie esamo VBA modulio.

Vieno stulpelio pločio nustatymas

Šiame pavyzdyje pasirinksime vieną stulpelį aktyviame darbalapyje ir atitinkamai jį pakeisime.

• Naudodami VBA redaktorių nukopijuokite šį kodą į darbalapį arba modulį.

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

• Vykdykite kodą paspausdami F5 arba pasirinkite Vykdyti >> Vykdyti sub arba formą.
• Išsaugokite savo darbą spustelėdami Failas >> Išsaugoti arba disko piktogramą.

Pakeiskite kelių stulpelių diapazono plotį

Šiame pavyzdyje pasirenkame stulpelių diapazoną, tada keičiame plotį.

Galite taikyti kodą taip pat, kaip aprašyta ankstesniame skyriuje.

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

Tolesni žingsniai

Pradedate nuo VBA? Būtinai peržiūrėkite „Excel“ vadovo VBA pagrindus .