Kā iestatīt Excel izklājlapas kolonnas platumu, izmantojot VBA?

Atjaunināts: 2021. gada augusts; Darbojas programmā Excel 365, 2019, 2016.

Šodienas Excel automatizācijas pamācībā mēs uzzināsim, kā pēc vajadzības ātri mainīt darblapas kolonnas platumu, taču programmatiski, izmantojot VBA (Visual Basic for Applications).

Priekšnoteikumi

Lai rakstītu VBA kodu, vispirms ir jāpārliecinās, vai ir iespējota cilne Izstrādātājs. Ja neesat pārliecināts par procedūru, noteikti izpētiet mūsu detalizēto procedūru .

• Savā Windows datorā atveriet Microsoft Excel .
• Galvenajā lentē hit Izstrādātājs .
• Nospiediet Visual Basic komandu. Tiks atvērts VBA redaktors .
• Kreisās puses projektu pārlūkā iezīmējiet konkrētu lapu, kurā ievietosit savu kodu. Varat arī ievietot jaunu moduli vai pievienot mūsu kodu esošajam VBA modulim.

Vienas kolonnas platuma iestatīšana

Šajā piemērā mēs atlasīsim vienu kolonnu aktīvajā darblapā un attiecīgi mainīsim to.

• Izmantojot VBA redaktoru, kopējiet tālāk norādīto kodu savā darblapā vai 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

• Palaidiet savu kodu, nospiežot taustiņu F5 vai izvēlieties Palaist >> Palaist apakšā vai veidlapu.
• Saglabājiet savu darbu, noklikšķinot uz Fails >> Saglabāt vai diska ikonas.

Mainiet vairāku kolonnu diapazona platumu

Šajā piemērā mēs izvēlamies kolonnu diapazonu un pēc tam mainām platumu.

Varat lietot kodu tādā pašā veidā, kā aprakstīts iepriekšējā sadaļā.

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ākamie soļi

Vai sākat ar VBA? Noteikti izpētiet VBA pamatus Excel ceļvedim .