Dolanan Excel - Halo sahabat Dolanan Excel, Bagaimana kabarmu hari ini ? Semoga Sehat dan Menyenangkan ya serta diberi Rizki yang banyak.
Oke, kali ini kita akan belajar lagi seputar excel tepatnya belajar di bagian VBA Excel Active Cell Offset dan bagaimana cara penerapannya.
Active Cell Offset Posisi Turun 1 Baris
Sub offset_baris1()
'dari activeCell posisi turun 1 baris
ActiveCell.Offset(1, 0).Select
End Sub
Active Cell Offset Posisi Ke Kanan 1 Kolom
Sub offset_kolom2()
'dari activeCell posisi ke kanan 1 kolom
ActiveCell.Offset(0, 1).Select
End Sub
Active Cell Offset Posisi Ke Kiri 1 Kolom
Sub offset_kolom2()
'dari activeCell posisi ke kiri 1 kolom
ActiveCell.Offset(0, -1).Select
End Sub
Active Cell Offset Posisi Naik 1 Baris
Sub offset_baris3()
'dari activeCell posisi naik 1 baris
ActiveCell.Offset(-1, 0).Select
End Sub
Penjelasan
Perhatikan Kode Macro ini ActiveCell.Offset(0, 0).Select
ActiveCell = Cell yang aktif/cell yang sedang terpilih/cell ter selectOffset = Lebih ke (kanan, kiri, atas, bawah)
(0, 0) = Angka 0 pertama diperuntukan Offset Ke atas atau Ke bawah
(0, 0) = Angka 0 kedua diperuntukan Offset ke kanan atau ke kiri
Penerapan
- Buka microsoft excel
- Simpan dengan nama ActiveCell Offset dengan type Excel Binary Workbook (.xlsb)
- Buat 4 buah tombol
- Masukan Kode Macro dibawah ini
- Kembali ke WorkBook
- Klik 4 tombol yang sudah Anda buat tadi secara bergantian
- Simpan dan Selesai
Private Sub CommandButton1_Click()
'dari activeCell posisi naik 1 baris
ActiveCell.Offset(-1, 0).Select
End Sub
Private Sub CommandButton2_Click()
'dari activeCell posisi turun 1 baris
ActiveCell.Offset(1, 0).Select
End Sub
Private Sub CommandButton3_Click()
'dari activeCell posisi ke kanan 1 kolom
ActiveCell.Offset(0, 1).Select
End Sub
Private Sub CommandButton4_Click()
'dari activeCell posisi ke kiri 1 kolom
ActiveCell.Offset(0, -1).Select
End Sub
Apabila Anda melakukan langkah-langkah diatas dengan benar maka, sistem akan berjalan dengan baik.
Terimakasih sudah berkunjung :)
Bantu kami meningkatkan kualitas blog ini dengan mengisi survei 1 menit.
©2017| dolanan excel
Post a Comment for "VBA EXCEL ACTIVE CELL OFFSET"