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 .

Palikti komentarą

Kaip išspręsti „Outlook negali siųsti el. laiškų, bet gali juos gauti“ klaidą

Ištaisykite „Outlook“, kai galite gauti el. laiškus, bet negalite jų siųsti. Patikrinkite išsiuntimo dėžutę, atjungties režimą, prisijungimą, SMTP nustatymus, profilius ir „Microsoft 365“ pakeitimus.

Paprastas dvisavaitinis atlyginimų apskaitos „Excel“ šablonas mažoms komandoms: praktinis diegimo vadovas

Sukurkite paprastą dvisavaitinį atlyginimų apskaitos šabloną „Excel“ mažai komandai, įtraukdami darbo valandas, atlyginimus, išskaičiavimus, peržiūros žymes, suvestines ir dokumentų saugojimo gaires.

Paprastas naujų darbuotojų įtraukimo mokymų pristatymo šablonas: 12 skaidrių praktinis planas

Sukurkite paprastą naujų darbuotojų įtraukimo pristatymą naudodami praktinę 12 skaidrių struktūrą, apimančią pareigų lūkesčius, įrankius, saugumą, politiką, saugą ir pirmosios savaitės veiksmus.

Kaip eksportuoti „Salesforce“ kontaktus į švarų „Excel“ formatą nesugadinant ID ar telefono numerių

Švariai eksportuokite „Salesforce“ kontaktus į „Excel“: sukurkite tinkamą ataskaitą, eksportuokite kaip „Details Only CSV“, importuokite naudodami „Power Query“, išsaugokite ID ir pradinus nulius, saugiai pašalinkite dublikatus ir patikrinkite rezultatą.

Spausdinamas savaitinis valymo tvarkaraščio šablonas „Airbnb“ šeimininkams (Word ir PDF)

Naudokite šį spausdinamą savaitinį valymo tvarkaraštį „Airbnb“ šeimininkams, kad organizuotumėte apsikeitimo valymą, giliajį valymą, atsargų papildymą, saugos patikras ir spausdinimą iš Word į PDF.

Nemokamas mėnesinių sąskaitų kalendoriaus organizatoriaus šablonas „Excel“: praktinis 2026 m. nustatymas

Organizuokite mėnesines sąskaitas „Excel“ naudodami nemokamą sąskaitų kalendoriaus išdėstymą, mokėjimo terminų stebėjimą, būsenos formules, automatinio mokėjimo laukus ir praktinius pinigų srautų patarimus.

Excel formulės neapskaičiuoja automatiškai? Ištaisykite tai per 3 paprastus veiksmus

Ištaisykite Excel formules, kurios neapskaičiuoja automatiškai, atlikdami tris veiksmus: įjunkite automatinį skaičiavimą, perskaičiuokite ir sutvarkykite formulių langelius.

Nepriklausomo rangovo išlaidų sekimo šablonas JAV laisvai samdomiems darbuotojams: ką sekti 2026 m.

Sukurkite praktišką išlaidų sekimo įrankį JAV laisvai samdomiems darbuotojams su Schedule C kategorijomis, kvitų laukais, nuvažiuotų mylių sekimu ir 2026 m. IRS taisyklių pakeitimais.

Geriausios nemokamos sąskaitų faktūrų programėlės mažoms JAV paslaugų įmonėms (2026 m.)

Palyginkite geriausias nemokamas sąskaitų faktūrų programėles JAV paslaugų įmonėms 2026 m., įskaitant „Zoho Invoice“, „Wave“, „Square“, „PayPal“ ir „Invoice Ninja“.

Nemokamas nuosavybės nuomos išlaidų ir pajamų stebėtojo „Excel“ šablonas: pradedančiųjų vadovas

Naudokite nemokamą „Excel“ nuomos nuosavybės stebėtoją pajamoms, išlaidoms, nuosavybei ir mėnesiniam pinigų srautui organizuoti. Sužinokite, ką fiksuoti, kaip tai nustatyti ir kokių klaidų vengti.