Uppfært: ágúst 2021; Virkar á Excel 365, 2019, 2016.
Í Excel sjálfvirknikennslunni í dag munum við læra hvernig á að breyta fljótt breidd vinnublaðsdálks eftir þörfum - en forritunarlega með því að nota VBA (Visual Basic for Applications).
Forkröfur
Til að skrifa VBA kóða þarftu fyrst og fremst að tryggja að þróunarflipi þinn sé virkur. Ef þú ert ekki viss um aðferðina, vertu viss um að skoða ítarlega aðferðina okkar .
- Opnaðu Microsoft Excel í Windows tölvunni þinni .
- Á helstu borði smelltu Developer .
- Smelltu á Visual Basic Command. Þetta mun opna VBA ritstjórann .
- Í verkefnakönnuðinum vinstra megin skaltu auðkenna tiltekið blað sem þú setur kóðann þinn inn í. Að öðrum kosti geturðu sett inn nýja einingu eða bætt kóðanum okkar við núverandi VBA-einingu.

Stilling á breidd einnar dálks
Í þessu dæmi munum við velja einn dálk í virka vinnublaðinu og breyta því í samræmi við það.
- Notaðu VBA ritstjórann, afritaðu eftirfarandi kóða í vinnublaðið þitt eða eininguna.
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
- Keyrðu kóðann þinn með því að ýta á F5 eða veldu Run >> Run Sub eða Form.
- Vistaðu verkið þitt með því að ýta á File >> Save eða Disk táknið.
Breyta breidd margra dálkasviðs
Í þessu dæmi veljum við dálkasvið og breytum síðan breiddinni.
Þú getur notað kóðann á sama hátt og lýst er í fyrri hlutanum.
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
Næstu skref
Ertu að byrja með VBA? Vertu viss um að skoða VBA grunnatriði fyrir Excel handbók .