Cara Mengatur Barisan Sel yang Berdekatan di Excel dengan Macro VBA
Alangkah mudahnya mengidentifikasi suatu urutan baris terakhir, urutan kolom terakhir, dan alamat dari suatu barisan sel sederhana yang mana semua sel-sel di dalamnya dipenuhi dengan data atau rumus tanpa ada satu sel pun yang kosong.
Tip berikut ini akan menjelaskan cara menggunakan properti Cells dan CurrentRegion dalam VBA untuk mengatur barisan sel yang padat berdekatan tersebut.
Cara Menggunakan Properti Cells
Cara Menampilkan Urutan Baris Terakhir dan Urutan Kolom Terakhir Suatu Barisan Sel
Sesuai dengan gambar di atas, variabel kode macro berikut ini menghasilkan urutan 10 sebagai variabel BarisAkhir dan urutan 3 (kolom C atau kolom ketiga Sheet) untuk variabel KolomAkhir:
Dim BarisAkhir As Long, KolomAkhir As Long
BarisAkhir = Cells(Rows.Count, 1).End(xlUp).Row
KolomAkhir = Cells(2, Columns.Count).End(xlToLeft).Column
MsgBox _
"Urutan baris yang terakhir: " & BarisAkhir & vbCrLf & _
"Urutan kolom yang terakhir: " & KolomAkhir
End Sub
Anda dapat melihat contoh di atas dan pernyataan VBA lainnya bahwa properti Cells dapat memilih atau mengacu pada suatu barisan sel.
Adapun susunan sintaks Cells adalah:
Cells(UrutanBaris, UrutanKolom)
Maka, pernyataan Cells(8, 2) mengacu pada sel B8 karena sama dengan urutan baris 8 dari kolom 2.
Untuk properti Cells, komponen baris harus berupa suatu angka, namun kolom bisa berupa suatu huruf yang wajib dituliskan di dalam tanda kutip, contohnya Cells(8, "B")
Sebagai latihan Anda bisa membuat pernyataan seperti ini di jendela Immediate VBE untuk mencetak tebal sel B8:
Cells(8, "B").Font.Bold = True
Cara Menampilkan Alamat Barisan Sel
Anda juga bisa menggabungkan dua properti Cells ke dalam statement Range untuk mengacu pada suatu barisan sel yang lebih luas dari satu sel.
Dengan menggunakan contoh variabel BarisAkhir dan KolomAkhir, contoh macro berikut akan menampilkan pesan berupa alamat barisan sel dari contoh sheet pada gambar:
Dim BarisAkhir As Long, KolomAkhir As Long
Dim BarisanSel As Range
BarisAkhir = Cells(Rows.Count, 1).End(xlUp).Row
KolomAkhir = Cells(2, Columns.Count).End(xlToLeft).Column
Set BarisanSel = Range(Cells(1, 1), Cells(BarisAkhir, KolomAkhir))
BarisanSel.Select
MsgBox _
BarisanSel.Address(0, 0)
End Sub
Pada macro di atas Untuk menyorot barisan sel digunakan pernyataan BarisanSel.Select, adapun contoh lain Anda bisa menggunakan properti Cells untuk menyorot barisan sel tertentu misalnya barisan sel B2:B10:
Range(cells(2, 2), cells(10, 2)).select
Cara Menggunakan Properti CurrentRegion
Dalam VBA terdapat properti CurrentRegion yang mengacu pada suatu barisan sel data padat dan terlokalisir yang mungkin sudah ada diantara barisan sel yang lainnya pada worksheet yang mana telah berisi data campuran dan sel kosong.
Sebagai contoh suatu sheet berisi barisan sel berupa data seperti pada gambar di atas, dengan sel yang aktif pada area terlokalisir (CurrentRegion) misalnya di sel D4.
Garis kode berikut ini menjalankan perintah untuk menyorot sel terlokalisir tersebut seperti pada gambar di bawah ini:
ActiveCell.CurrentRegion.Select
Demikian penjelasan mengenai bagaimana cara mengatur barisan sel yang padat atau berdekatan menggunakan macro.
Selamat mempraktekkan dan semoga postingan ini bermanfaat.