Selection Select
Bergeser satu cell ke kanan
ActiveCell.Offset(0, 1).Select ’
Menuju ke cell paling bawah yang terahir di Isi
ActiveCell.End(xlDown).Select‘
Pindah ke cell yang di bawahnya satu baris
ActiveCell.Offset(1, 0).Select ’
mengisi cell A1 dengan konten “Hello”
Worksheets(“Sheet1”).Range(“A1”).Value = “Hello”
Mengisi cell yang aktif sesuai dengan kata yang di ketik di
textbox1ActiveCell.Value= TextBox1.Text ’
Mengisi cell tertentu via input box shg user diminta isi user box dulu kemudian otomatis cell tertentu akan terisi sesuai isian input box
Range (“a1”).value = Inputbox (“pertanyaan”)
Memanggil sheet sesuai dengan urutannya
sheet2.select
Memanggil sheet sesuai dengan nama sheet nya
sheet(“databased”).select
Menuju baris terakhir
BarisTerakhir = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Value
cari baris kosong pertama di database
iRow =ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
Menuju ke alamat cell spesial paling awal/atas dan ujung bawah/terakhir sheet
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Menuju ke alamat cell paling ujung bawah/terakhir
sheetActiveCell.SpecialCells(xlLastCell).Select
Menuju ke alamat cell paling atas, bawah, kiri, kanan
Selection.End(xlUp).Select ‘atas
Selection.End(xlDown).Select ‘bawah
Selection.End(xlToLeft).Select ‘kiri
Selection.End(xlToRight).Select ‘kanan
Dari tempat cell berada sekarang diblok sampai ke alamat cell paling atas, bawah, kiri, kanan
Range(Selection,Selection.End(xlUp)).Select
Range(Selection,Selection.End(xlDown)).Select
Range(Selection,Selection.End(xlToLeft)).Select
Range(Selection,Selection.End(xlToRight)).Select
menuju ke cell turun 5 baris dan kekiri 3 kolom, dari tempat cell berada sekarang
ActiveCell.Offset(5, -3).Select
menuju ke cell naik 3 baris dan kekanan 4 kolom, dari tempat cell berada sekarang
ActiveCell.Offset(-3, 4).Select
memilih range / blok tertentu dan melanjutkan atau menambah range / blok dari blok yang sudah ada
Range(“Database”).Select
Selection.Resize(Selection.Rows.Count+ 5, _
Selection.Columns.Count).Select
memilih range / blok tertentu kemudian melompat ke cell tertentu dan melanjutkan atau menambah range / blok yang sudah ada
Range(“Database”).Select
Selection.Offset(4, 3).Resize(Selection.Rows.Count+ 2, _
Selection.Columns.Count+ 1).Select
Bergeser satu cell ke kanan
ActiveCell.Offset(0, 1).Select ’
Menuju ke cell paling bawah yang terahir di Isi
ActiveCell.End(xlDown).Select‘
Pindah ke cell yang di bawahnya satu baris
ActiveCell.Offset(1, 0).Select ’
mengisi cell A1 dengan konten “Hello”
Worksheets(“Sheet1”).Range(“A1”).Value = “Hello”
Mengisi cell yang aktif sesuai dengan kata yang di ketik di
textbox1ActiveCell.Value= TextBox1.Text ’
Mengisi cell tertentu via input box shg user diminta isi user box dulu kemudian otomatis cell tertentu akan terisi sesuai isian input box
Range (“a1”).value = Inputbox (“pertanyaan”)
Memanggil sheet sesuai dengan urutannya
sheet2.select
Memanggil sheet sesuai dengan nama sheet nya
sheet(“databased”).select
Menuju baris terakhir
BarisTerakhir = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Value
cari baris kosong pertama di database
iRow =ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
Menuju ke alamat cell spesial paling awal/atas dan ujung bawah/terakhir sheet
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
Menuju ke alamat cell paling ujung bawah/terakhir
sheetActiveCell.SpecialCells(xlLastCell).Select
Menuju ke alamat cell paling atas, bawah, kiri, kanan
Selection.End(xlUp).Select ‘atas
Selection.End(xlDown).Select ‘bawah
Selection.End(xlToLeft).Select ‘kiri
Selection.End(xlToRight).Select ‘kanan
Dari tempat cell berada sekarang diblok sampai ke alamat cell paling atas, bawah, kiri, kanan
Range(Selection,Selection.End(xlUp)).Select
Range(Selection,Selection.End(xlDown)).Select
Range(Selection,Selection.End(xlToLeft)).Select
Range(Selection,Selection.End(xlToRight)).Select
menuju ke cell turun 5 baris dan kekiri 3 kolom, dari tempat cell berada sekarang
ActiveCell.Offset(5, -3).Select
menuju ke cell naik 3 baris dan kekanan 4 kolom, dari tempat cell berada sekarang
ActiveCell.Offset(-3, 4).Select
memilih range / blok tertentu dan melanjutkan atau menambah range / blok dari blok yang sudah ada
Range(“Database”).Select
Selection.Resize(Selection.Rows.Count+ 5, _
Selection.Columns.Count).Select
memilih range / blok tertentu kemudian melompat ke cell tertentu dan melanjutkan atau menambah range / blok yang sudah ada
Range(“Database”).Select
Selection.Offset(4, 3).Resize(Selection.Rows.Count+ 2, _
Selection.Columns.Count+ 1).Select
No comments:
Post a Comment