Cara Mengatur Barisan Sel yang Berjauhan di Excel dengan Macro VBA
VBA menawarkan beberapa pilihan terbaik untuk menangani barisan sel yang saling berjauhan di suatu Sheet.
Adapun barisan sel tempatnya berjauhan dipisahkan oleh sel-sel kosong.
Cara Menyorot Barisan Sel dan Beberapa Sel Lain melalui Properti Range
Anda bisa menyorot berbagai sel menjadi satu kesatuan seperti ditunjukkan pada garis kode berikut, Anda bisa menggunakan jendela Immediate untuk mengeksekusinya, perhatikan susunannya terdiri dari alamat sel atau barisan sel yang dipisahkan dengan koma dan spasi dan berada di dalam dua tanda kutip:
Range("E8:F12, B7, G2").Select
Cara Menyorot Barisan Sel Mengunakan Properti Offset
Properti Offset berguna untuk menambahkan atau mengurangi urutan baris dan kolom dari acuan relatif untuk mengacu pada barisan sel baru.
Sebagai contoh sel B7 adalah sel yang aktif, garis kode ini dapat digunakan jika Anda ingin menyorot barisan sel yang berdekatan dengan sel yang aktif tersebut dengan cara memperpanjang barisan sel misalnya 4 baris ke atas dan 2 kolom ke kiri:
Range(activecell, activecell.Offset(-4, 2)).Select
Angka positif mengarahkan baris ke bawah dan angka negatif ke atas, sedangkan angka positif mengarahkan kolom ke kanan dan angka negatif ke kiri.
Cara Menyorot Barisan Sel Menggunakan Properti Resize
Properti Resize digunakan untuk mengubah ukuran luas barisan sel, dimulai dari sel acuan.
Contohnya barisan sel yang aktif adalah sel B3 yang kemudian diperluas sorotannya ukurannya menjadi 5 baris dan 2 kolom sehingga menjadi B3:C7.
Range("B3").Resize(5, 2).Select
Cara Mengidentifikasi Barisan Sel yang Berisi Data
Dalam beberapa kasus Anda ingin mengenali barisan sel yang berisi data atau rumus dan bukan berupa data kosong yang berformat.
Dalam gambar sel H4 dan I7 adalah sel yang terpisah dari barisan data namun memiliki format warna sebagai contoh saja.
Dalam contoh kode macro berikut dipertunjukkan bagaiman cara menyorot suatu barisan sel data dari sheet yang aktif, mulai dari sel A1, kemudian menampilkan pesan informasi alamat barisan sel yang ada di sheet tersebut.
Adapun barisan data yang tersorot tidak termasuk sel-sel yang berformat tapi tidak berisi data.
Untuk mendapatkan barisan data, contoh berikut menampilkan baris terakhir dan kolom terakhir yang berisi data yang sebenarnya dengan menggunakan metode Find dari objek Range:
Dim BarisAkhir As Long, KolomAkhir As Long
BarisAkhir = Cells.Find(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
KolomAkhir = Cells.Find(What:="*", SearchDirection:=xlPrevious, _
SearchOrder:=xlByColumns).Column
Range("A1").Resize(BarisAkhir, KolomAkhir).Select
MsgBox "Alamat barisan sel data " & Selection.Address(0, 0) & ".", _
vbInformation, "Alamat barisan sel berisi data:"
End Sub
Cara Mengidentifikasi Barisan Sel yang Terpakai Data atau Format
Properti UsedRange menunjukkan sel-sel pada suatu worksheet yang sedang atau yang sudah digunakan termasuk sel yang berformat yang tidak berisi data seperti yang terlihat pada gambar:
Contoh garis kode berikut menyorot barisan sel dengan menggunakan properti UsedRange pada objek Worksheet kemudian menggunakan metode Select dari objek Range dan nantinya akan menampilkan kotak pesan menginformasikan alamat barisan sel yang terpilih:
ActiveSheet.UsedRange.Select
MsgBox "Alamat barisan sel terpakai adalah " & _
ActiveSheet.UsedRange.Address(0, 0) & ".", 64, "Alamat barisan sel terpakai:"
End Sub
Itulah pembahasan tentang macam-macam properti macro untuk mengatur barisan sel yang berjauhan di Excel.
Selamat mencoba dan semoga bermanfaat.