Saturday, July 14, 2018

Selection Cell

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

No comments:

Post a Comment

APLIKASI GUDANG VERSI EXCEL VBA

Aplikasi Gudang Sederhana silahkan dikembangkan kritik dan saran membangun selalu kami harapkan FROM ENTRI IURAN BULANA...