Bagaimana cara mengatur lebar kolom spreadsheet Excel dengan VBA?

Diperbarui: Agustus 2021; Bekerja di Excel 365, 2019, 2016.

Dalam tutorial otomatisasi Excel hari ini kita akan belajar cara cepat mengubah lebar kolom lembar kerja sesuai kebutuhan – tetapi secara terprogram menggunakan VBA (Visual Basic for Applications).

Prasyarat

Untuk menulis kode VBA, pertama-tama Anda harus memastikan bahwa tab pengembang Anda diaktifkan. Jika Anda tidak yakin tentang prosedurnya, pastikan untuk melihat prosedur terperinci kami .

• Di komputer Windows Anda, buka Microsoft Excel .
• Pada Pita utama, tekan Developer .
• Tekan Perintah Visual Basic . Ini akan membuka Editor VBA .
• Di penjelajah proyek sisi kiri, sorot lembar tertentu di mana Anda akan memasukkan kode Anda. Atau, Anda dapat memasukkan modul baru atau menambahkan kode kami ke modul VBA yang ada.

Mengatur lebar satu kolom

Dalam contoh ini, kita akan memilih satu kolom di Worksheet yang aktif dan memodifikasinya.

• Menggunakan Editor VBA, Salin kode berikut ke lembar 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 kode Anda dengan menekan F5 atau pilih Run >> Run Sub atau Form.
• Simpan pekerjaan Anda dengan menekan File >> Simpan atau ikon Disk.

Ubah lebar rentang beberapa kolom

Dalam contoh ini kami memilih rentang kolom , lalu mengubah lebarnya.

Anda dapat menerapkan kode dengan cara yang sama seperti yang dijelaskan di bagian 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 selanjutnya

Memulai dengan VBA? Pastikan untuk melihat ke dasar-dasar VBA untuk panduan Excel .