Bagaimana untuk menetapkan lebar lajur hamparan Excel dengan VBA?

Kemas kini: Ogos 2021; Berfungsi pada Excel 365, 2019, 2016.

Dalam tutorial automasi Excel hari ini, kita akan belajar cara menukar lebar lajur lembaran kerja dengan cepat mengikut keperluan – tetapi secara pemrograman menggunakan VBA (Visual Basic for Applications).

Prasyarat

Untuk menulis kod VBA, anda perlu memastikan tab pembangun anda didayakan terlebih dahulu. Jika anda tidak pasti tentang prosedur, pastikan anda melihat prosedur terperinci kami .

• Dalam komputer Windows anda, buka Microsoft Excel .
• Pada Reben utama tekan Pembangun .
• Tekan Perintah Visual Basic . Ini akan membuka Editor VBA .
• Dalam penjelajah projek sebelah kiri, serlahkan helaian tertentu di mana anda akan memasukkan kod anda. Sebagai alternatif, anda boleh memasukkan modul baharu atau menambah kod kami pada modul VBA sedia ada.

Menetapkan satu lebar lajur

Dalam contoh ini, kami akan memilih satu lajur dalam Lembaran Kerja aktif dan mengubah suainya dengan sewajarnya.

• Menggunakan Editor VBA, Salin kod berikut ke lembaran kerja atau modul anda.

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

• Jalankan kod anda dengan menekan pada F5 atau pilih Run >> Run Sub or Form.
• Simpan kerja anda dengan menekan Fail >> Simpan atau ikon Cakera.

Tukar lebar julat berbilang lajur

Dalam contoh ini kita memilih julat lajur , kemudian menukar lebarnya.

Anda boleh menggunakan kod dengan cara yang sama seperti yang diterangkan dalam bahagian sebelumnya.

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

Langkah seterusnya

Bermula dengan VBA? Pastikan anda melihat asas VBA untuk panduan Excel .