Bagaimana cara menyesuaikan baris/kolom secara otomatis di vba?

Poin-poin penting

• Di VBA, Anda bisa menggunakan metode AutoFit untuk menyesuaikan baris, kolom, dan bahkan seluruh lembar kerja secara otomatis.
• Anda perlu menentukan rentangnya , lalu Anda dapat menggunakan metode Paskan Otomatis.

Paskan kolom secara otomatis

Katakanlah Anda ingin menyesuaikan kolom A secara otomatis, kodenya akan seperti di bawah ini:

 Range("A1").EntireColumn.AutoFit

Pada baris kode di atas, Anda menggunakan properti EntireColumn untuk merujuk ke seluruh kolom sel A1.

Karena Anda berada di spreadsheet, Anda juga dapat menggunakan properti kolom dan menulis kode seperti di bawah ini.

 Columns(1).AutoFit

Secara otomatis menyesuaikan garis

Demikian pula, Anda dapat menulis kode untuk menyesuaikan garis secara otomatis. Katakanlah Anda ingin menyesuaikan baris 5 secara otomatis, kodenya adalah:

 Range("A5").EntireRow.AutoFit

Dan jika Anda ingin menggunakan properti baris, Anda dapat menggunakan kode berikut.

 Rows(5).AutoFit

AutoFit UsedRange (baris dan kolom)

Sekarang katakanlah Anda hanya ingin melakukan autofit pada kolom dan baris yang berisi data. Di VBA ada properti bernama rentang bekas yang bisa Anda gunakan. Jadi kodenya adalah.

 ActiveSheet.UsedRange.EntireColumn.AutoFit ActiveSheet.UsedRange.EntireRow.AutoFit

Dan jika Anda ingin menggunakan spreadsheet tertentu, kodenya adalah.

 Worksheets("Sheet1").UsedRange.EntireColumn.AutoFit Worksheets("Sheet1").UsedRange.EntireRow.AutoFit

Paskan seluruh lembar kerja secara otomatis

Dan jika Anda ingin merujuk ke semua kolom dan baris di lembar kerja, Anda dapat menggunakan properti “CELLS”. Ini kodenya.

 Worksheets("Sheet1").Cells.EntireColumn.AutoFit Worksheets("Sheet1").Cells.EntireRow.AutoFit

Atau Anda juga bisa menggunakan pernyataan WITH VBA untuk menulis kode seperti di bawah ini.

 With Worksheets("Sheet1").Cells .EntireColumn.AutoFit .EntireRow.AutoFit End With