Contoh Rumus R1C1 yang Menggunakan Acuan Sel Campuran untuk Mengisi Sel Kosong dengan Idem
Contoh worksheet di bawah ini berisi sel-sel kosong yang harus diisi nilai sama dengan yang disebutkan di atas atau idem.
Dengan menggunakan properti SpecialCells, rumus yang sama akan dimasukkan ke dalam setiap sel kosong di kolom A yang terhubung dengan daftar.
Berikut langkah-langkah penyusunan kode macro IsiSelKosongIdem yang dapat Anda ikuti:
1. Buka VBE dengan Alt+F11.
2. Buka menu Insert > Module
3. Pada Module Ketik judul macro:
Sub IsiSelKosongIdem()
4. Matikan ScreenUpdating agar membantu proses menjadi lebih cepat:
Application.ScreenUpdating = False
5. Angka 1 mengacu kepada kolom A artinya jika kolomnya G maka tulis sesuai urutannya yaitu menjadi With Columns(7):
.SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C"
6. Rumus yang dihasilkan nantinya diubah menjadi suatu nilai yang tetap maka tuliskan:
8. Akhiri statement With:
End With
7. Hidupkan kembali ScreenUpdating:
Application.ScreenUpdating = True
Kode lengkapnya sebagai berikut:
With Columns(1)
.SpecialCells(xlCellTypeBlanks).Formula = "=R[-1]C"
.Value = .Value
End With
Application.ScreenUpdating = True
End Sub
Itulah sedikit pembahasan susunan kode macro untuk menghasilkan rumus R1C1 dengan menggunakan acuan sel campuran.
Selamat mempraktikkan dan semoga bermanfaat.