Vba: cara memilih rentang di sel aktif

Anda dapat menggunakan metode berikut di VBA untuk memilih rentang sel di Excel dari sel yang sedang aktif:

Metode 1: Pilih rentang bawah dari sel aktif

 SubSelectActiveDown ()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

Makro ini akan memilih rentang dari sel aktif hingga sel terakhir yang digunakan dalam kolom.

Metode 2: Pilih Rentang Naik dari Sel Aktif

 SubSelectActiveUp ()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

Makro ini akan memilih rentang dari sel aktif hingga sel pertama yang digunakan dalam kolom.

Metode 3: Pilih rentang di sebelah kanan sel aktif

 SubSelectActiveRight ()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

Makro ini akan memilih rentang dari sel aktif hingga sel terakhir yang digunakan di sebelah kanan pada baris yang sama.

Metode 4: Pilih rentang di sebelah kiri sel aktif

 SubSelectActiveLeft ()
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

Makro ini akan memilih rentang dari sel aktif hingga sel terakhir yang digunakan di sebelah kiri pada baris yang sama.

Contoh berikut memperlihatkan cara menggunakan setiap metode dengan lembar berikut di Excel:

Contoh 1: Pilih rentang bawah dari sel aktif

Asumsikan sel C3 sedang dipilih.

Kita bisa membuat makro berikut untuk memilih rentang dari sel aktif hingga sel terakhir digunakan di kolom:

 SubSelectActiveDown ()
Range(ActiveCell, ActiveCell.End(xlDown)).Select
End Sub

Saat kami menjalankan makro ini, rentang berikut dipilih secara otomatis:

Perhatikan bahwa rentang dari sel C3 hingga sel terakhir yang digunakan dalam kolom kini dipilih.

Contoh 2: Pilih rentang dari sel aktif

Asumsikan sel C3 sedang dipilih.

Kita bisa membuat makro berikut untuk memilih rentang dari sel aktif hingga sel pertama yang digunakan di kolom:

 SubSelectActiveUp ()
Range(ActiveCell, ActiveCell.End(xlUp)).Select
End Sub

Saat kami menjalankan makro ini, rentang berikut dipilih secara otomatis:

Perhatikan bahwa rentang dari sel C3 hingga sel pertama yang digunakan dalam kolom kini dipilih.

Contoh 3: Pilih rentang di sebelah kanan sel aktif

Asumsikan sel B2 sedang dipilih.

Kita dapat membuat makro berikut untuk memilih rentang dari sel aktif hingga sel terakhir yang digunakan di sebelah kanan pada baris yang sama:

 SubSelectActiveRight ()
Range(ActiveCell, ActiveCell.End(xlToRight)).Select
End Sub

Saat kami menjalankan makro ini, rentang berikut dipilih secara otomatis:

Perhatikan bahwa rentang dari sel B2 hingga sel yang terakhir digunakan di sebelah kanan pada baris yang sama kini dipilih.

Contoh 4: Pilih rentang di sebelah kiri sel aktif

Asumsikan sel D6 sedang dipilih.

Kita dapat membuat makro berikut untuk memilih rentang dari sel aktif hingga sel terakhir yang digunakan di sebelah kiri pada baris yang sama:

 SubSelectActiveLeft ()
Range(ActiveCell, ActiveCell.End(xlToLeft)).Select
End Sub

Saat kami menjalankan makro ini, rentang berikut dipilih secara otomatis:

Perhatikan bahwa rentang dari sel D6 hingga sel yang terakhir digunakan di sebelah kiri pada baris yang sama kini dipilih.

Sumber daya tambahan

Tutorial berikut menjelaskan cara melakukan tugas umum lainnya di VBA:

VBA: Cara menemukan baris yang terakhir digunakan
VBA: Cara menemukan kolom yang terakhir digunakan
VBA: cara menyisipkan banyak baris