Cara Mencari Pangkal dan Ujung Barisan Sel Excel Jika Titik Awal dan Akhirnya Tidak Diketahui dengan Macro VBA
Terkadang suatu data mungkin dapat berada pada letak yang tidak terduga dalam suatu worksheet meskipun pada umumnya data diawali pada sel A1 di suatu worksheet, baris pertama lebih dikenal sebagai judul dari suatu daftar, dan kolom A merupakan kolom paling kiri pada worksheet.
Untuk dapat menemukan barisan sel data dari manapun pangkalnya hingga dapat menjangkau ujung akhir dari barisan sel tersebut, maka Anda memerlukan macro yang mampu menjaring data yang ada di worksheet.
Contoh kode macro di bawah ini akan mempertunjukkan bagaimana cara menyorot suatu barisan sel data yang ada di dalam sebuah worksheet yang mana Anda tidak mengetahui dimana letak permulaan atau letak terakhir barisan sel tersebut dengan hasil akhir agar alamat barisan sel tersebut diinformasikan ke dalam sebuah kotak pesan seperti yang terlihat pada gambar di atas.
Adapun data barisan sel tidak ikut memasukkan sel-sel kosong meskipun telah berformat.
Contoh macro ini mencari baris pertama dan baris terakhir serta kolom yang mempunyai data yang betul-betul ada dengan menggunakan metode Find dari objek Range.
Berikut ini contoh kode macro JaringBarisanSel yang dapat Anda buat dalam Module VBE:
Dim BarisPangkal As Long, KolomPangkal As Long, BarisUjung As Long, KolomUjung As Long
Dim BSTerpakai As Range
BarisPangkal = _
Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByRows).Row
KolomPangkal = _
Cells.Find(What:="*", SearchDirection:=xlNext, SearchOrder:=xlByColumns).Column
BarisUjung = _
Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row
KolomUjung = _
Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByColumns).Column
Set BSTerpakai = Range(Cells(BarisPangkal, KolomPangkal), Cells(BarisUjung, KolomUjung))
BSTerpakai.Select
MsgBox _
"Barisan sel data pada sheet ini adalah " & _
BSTerpakai.Address(0, 0) & ".", vbInformation, "Alamat barisan sel:"
End Sub
Demikian kode macro untuk menjaring pangkal dan ujung suatu barisan sel yang titik awal dan akhirnya tidak diketahui.
Selamat mempraktekkan dan semoga postingan ini bermanfaat.