Belajar VBA - Excel Object Model: Workbook, Worksheet, Range

#Pendahuluan

Setelah menguasai bahasa VBA (variabel, kondisi, loop, Sub/Function), sekarang kita kembali ke arsitektur yang dibahas di episode 2 dengan lebih dalam: Excel Object Model. Ini adalah "medan perang" tempat hampir semua macro Excel bekerja — memahami hierarki objeknya sama dengan memahami peta dari aplikasi yang kalian otomasi.

Mengapa ini penting? Karena semua macro yang akan kalian tulis — dari membersihkan data sampai membuat laporan — pada dasarnya adalah perjalanan menurun melalui hierarki: dari Application, turun ke Workbook, ke Worksheet, lalu menyentuh Range. Kalian yang menguasai peta ini akan menulis kode yang tepat sasaran, sementara yang tidak akan terjebak menyalin-menempel kode yang entah bekerja entah tidak.

#Hierarki Inti

100%

Setiap objek punya properti (data) dan method (aksi):

Application.Name — nama aplikasi ("Microsoft Excel").
Workbook.Save — menyimpan file.
Worksheet.Range — mengambil range.
Range.Clear — menghapus isi dan format sel.

#Application

Application adalah pintu masuk — Excel itu sendiri. Beberapa properti yang sering dipakai:

Praktik dengan Application

Debug.Print Application.Name
Debug.Print Application.Version
Debug.Print Application.CutCopyMode

Yang paling berpengaruh untuk performa adalah ScreenUpdating, Calculation, dan EnableEvents — tiga properti ini akan menjadi bahan utama episode 21 (performance tuning).

#Workbook

Workbook mewakili satu file Excel. Cara mengaksesnya:

Mengakses workbook

Set wb = ThisWorkbook                ' workbook tempat kode berada
Set wb = ActiveWorkbook              ' workbook yang sedang aktif
Set wb = Workbooks("laporan.xlsm")   ' by nama file
Set wb = Workbooks.Open("C:\data\laporan.xlsm")

ThisWorkbook adalah pilihan paling aman: ia selalu menunjuk file tempat macro berjalan, apa pun yang sedang aktif. ActiveWorkbook bisa berbeda jika pengguna berpindah jendela di tengah eksekusi.

Menyimpan dan menutup

ThisWorkbook.Save
ThisWorkbook.Close SaveChanges:=True

#Worksheet

Di dalam workbook ada lembar kerja:

Mengakses worksheet

Set ws = ThisWorkbook.Sheets("Data")       ' by nama
Set ws = ThisWorkbook.Sheets(1)            ' by indeks
Set ws = ThisWorkbook.ActiveSheet          ' lembar aktif

Perhatikan Sheets vs Worksheets: Worksheets hanya lembar kerja; Sheets mencakup juga lembar chart. Untuk data, hampir selalu gunakan Worksheets.

Operasi umum:

Menambah dan menghapus lembar

ThisWorkbook.Worksheets.Add After:=ThisWorkbook.Worksheets(1)
Set wsBaru = ThisWorkbook.Worksheets(1)
wsBaru.Name = "Ringkasan"

#Range: Inti Excel

Range adalah objek paling penting — di sinilah data sebenarnya berada. Ada dua cara utama mengaksesnya: Range("A1:C10") (notasi A1) dan Cells(r, c) (indeks baris-kolom).

Membaca dan menulis Range

Range("A1").Value = 42                 ' tulis satu sel
Dim v As Variant
v = Range("A1").Value                   ' baca satu sel
Range("A1:C10").Value = "isi"           ' isi blok
Range("A1:B2,D5:E6").Value = "multi"    ' area non-kontigu

#Cells(r, c): Indeks Numerik

Cells memakai nomor baris dan kolom — sempurna untuk loop:

Cells dalam loop

Dim i As Long
For i = 1 To 100
    Cells(i, 1).Value = i
Next i

Baris ini mengisi kolom A (kolom 1) dari baris 1 sampai 100. Dengan Cells, logika berulang bisa ditulis tanpa menyusun string alamat.

#Value vs Value2

Properti	Keterangan
`.Value`	Nilai sel; memformat tanggal/currency sesuai regional
`.Value2`	Nilai mentah (tanggal berupa angka serial) tanpa format

Untuk manipulasi data murni dan array (episode 10), .Value2 lebih cepat dan lebih dapat diprediksi.

#Menemukan Batas Data: UsedRange & CurrentRegion

Data di dunia nyata tidak selalu rapi mulai dari A1. Dua properti menyelamatkan kita:

#UsedRange

ws.UsedRange — seluruh area yang pernah diisi:

Menjelajah UsedRange

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Data")
 
Debug.Print ws.UsedRange.Rows.Count
Debug.Print ws.UsedRange.Columns.Count
Debug.Print ws.UsedRange.Address

Catatan: UsedRange bisa melebar karena sel yang diformat (walau kosong), jadi jangan jadikan satu-satunya sumber kebenaran.

#CurrentRegion

Range.CurrentRegion — seluruh blok data yang dikelilingi baris/kolom kosong, dihitung dari satu sel:

CurrentRegion

Dim blok As Range
Set blok = Range("A1").CurrentRegion
Debug.Print blok.Address

Jika A1 adalah sudut tabel yang dikelilingi sel kosong, CurrentRegion mengembalikan seluruh tabel — tanpa perlu menghitung baris.

#Kombinasi untuk Data Dinamis

Pola paling andal untuk menemukan batas data:

Baris terakhir yang berisi data

Dim ws As Worksheet
Dim lastRow As Long
 
Set ws = ThisWorkbook.Worksheets("Data")
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
Debug.Print lastRow

End(xlUp) dari baris paling bawah (ws.Rows.Count) ke atas meniru perintah Ctrl+Up — sampai ketemu sel berisi. Inilah idiom yang dipakai untuk membaca data dengan jumlah baris tak tentu.

#Memilih Properti yang Tepat

Situasi	Gunakan
Alamat spesifik yang diketahui	`Range("B5:D5")`
Loop numerik	`Cells(i, j)`
Area yang pernah dipakai	`UsedRange`
Blok tabel di sekitar sel	`CurrentRegion`
Baris terakhir data	`End(xlUp).Row`
Data mentah untuk array	`.Value2`

Tip

Biasakan menyimpan objek ke variabel (Set ws = ..., Set wb = ...) daripada menulis ulang ThisWorkbook.Sheets("Data") di setiap baris. Selain lebih pendek, kode lebih mudah dibaca dan lebih cepat karena tidak menelusuri hierarki berulang kali.

#Common Pitfalls

Kesalahan	Dampak
`ActiveWorkbook` ternyata bukan file target	Macro menulis ke file yang salah
`Sheets` vs `Worksheets` tertukar	Bisa kena lembar chart
Mengubah nama sheet lalu referensi lama	Error Subscript out of range
Bergantung `UsedRange` yang membengkak	Memproses area terlalu besar
Tidak memakai `Set` untuk objek	Error Object variable not set

#Penutup

Pada episode 8 ini, kalian telah menguasai peta Excel Object Model.

Inti yang harus dibawa pulang:

Hierarki: Application → Workbook → Worksheet → Range.
ThisWorkbook lebih aman daripada ActiveWorkbook.
Range("A1:C10") untuk alamat; Cells(r, c) untuk logika loop.
UsedRange dan CurrentRegion untuk menemukan batas data dinamis.
Pola End(xlUp).Row untuk baris terakhir; .Value2 untuk data mentah.

Di episode 9 selanjutnya kita akan bekerja dengan data sungguhan: sorting, filtering, menghapus duplikat, find/replace, dan pembersihan data menggunakan SpecialCells, lengkap dengan pola menghapus baris kosong dan menormalisasi format. Sampai jumpa di episode 9!