Selamat datang di blog gurukomline.com, pada seri belajar kali saya akan berbagi ilmu mengenai Macro dan VBA Excel. Pada Bagian pertama ini, akan membahas tentang Istilah Dasar Dalam VBA yang harus di ketahui, agar nantinya kita bisa belajar Macro dan VBA Excel dengan lebih mudah.
Mengenal Istilah Dasar dalam VBA
ActiveWorkbook : File yang sedang Terbuka
Active Worksheet : Sheet yang Tampil
Worksheet : Sheet
Sheet("sheet1") : Nama Sheet1
Worksheet("sheet1") : Nama Sheet1
Range : Alamat Cell
Range("A5") : sama dengan Cell A5
Range("A5:A20") : Cell A5 sampai A20
Range("A5") : Baris no 1,Kolom no 5
Range("A5") : disingkat Cell(1,5)
Selection : Cell Pilihan ( blok atau kursor )
Select : Pilihan yang dituju
Range("A5"). Select : Menuju ke Cell A5
Sheet1.Select : Menuju ke Sheet1
Sheet(1).Select : Sheet berdasarkan urutan sheet
Sheet("data") : Sheet berdasarkan Nama sheet
Value = : Isi
Value = " " : Isi Cell Kosong
Worksheet("sheet1").Range("A5:A20").Value = ""
Sub Modul1 () : Memulai suatu Prosedur
End Sub : Mengakhiri suatu Prosedur
Sheet1.Range("A1:C1").Copy Destination:=Sheet2.Range("A1") : Sheet1copy dan paste di sheet 2
Protect : Mengunci agar tidak dapat di edit
ActiveSheet.Protect : Mengunci Sheet Active
ActiveSheet.unProtect : membuka kunci Sheet Active
Sheet1.Visible = 1 : Sembuyikan Sheet1
Sheet1.Visible = 2 : Jangan Sembuyikan Sheet1
Sheet1.Visible = True : Sembuyikan Sheet1
Sheet1.Visible = False : Jangan Sembuyikan Sheet1
Private Sub UserForm_Initialize() : Perintah otomatis saat UserForm muncul
Show : Tampil atau aktif
UserForm1. Show : UserForm1. Tampil
Unload me : UserForm ditutup
Hide : Disembunyikan
Hide me : UserForm yand aktif disembunyikan
ColumnWidth = 12 : ukuran Tinggi Kolom
RowHeight = 15 : ukuran Lebar Baris
ActiveCell.EntireColumn.ColumnWidth = 12
ActiveCell.EntireRow.RowHeight = 15
ListBox1.List(ListBox1.ListIndex, 1) : Menampilkan data baris sesuai no kolom pd listbox1
TextBox1.Value = ListBox1.List(ListBox1.ListIndex, 1)
TextBox2.Value = ListBox1.List(ListBox1.ListIndex, 2)
RowSource : Nama range yang ditampilkan pd listbox
RowSource = Worksheets(1).Range("A1:A10").Address
PrintOut : Perintah Cetak
from:=1, : Dari Halaman
To:=1, : Sampai Halaman
Copies:=1 : Jumlah Lembar
ActiveSheet. PrintOut from:=1, To:=1, Copies:=1
PrintOut Preview : Menampilkan halaman Cetak
ActiveSheet.PrintOut Preview:=True, From:=1, To:=2, Copies:=2
Row.Hidden : Sembunyikan baris jika = true
Rows("5"). : Baris Ke -5
Rows("5").EntireRow.Hidden = True
Rows("7").EntireRow.Hidden = False
EntireRow.Insert : Menambah baris
EntireRow.Delete : Menghapus baris
ActiveCell.EntireRow.Insert
ActiveCell.EntireRow.delete
Columns(8).Hidden : Sembunyikan kolom 8
Columns(8).Hidden = True : Sembunyikan kolom jika = true
ActiveSheet.Columns(8).Hidden = True
ActiveSheet.Columns(9).Hidden = False
Insert Shift:=xlRight :Menambah Kolom
Delete Shift:=xlToLeft :Menghapus Kolom
ActiveSheet.Columns(6).Insert Shift:=xlRight
Columns("F:F").Select
Selection.Delete Shift:=xlToLeft
True : Kondisi benar
False : Kondisi salah
Application.Visible = True : Sembuyikan lembar Kerja = True
Application.Visible = False: Jangan sembunyikan lembar Kerja = False
Private Sub : Perintah otomatis saat
Private Sub Workbook_Open() : Perintah otomatis saat Workbook di buka
Private Sub Workbook_Open()
Application.Visible = False : Lembar Kerja kondisi Tampil
UserForm1.Show : UserForm1 tampilkan
Application.Visible = True : Lembar Kerja tidak ditampilkan
End Sub : Mengakhiri Prosedur
Private Sub Worksheet_SelectionChange : Perintah otomatis pada sheet active
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("Sheet1").Range("A1") = "Belajar VBA"
End Sub
SelectionChange : : Kondisi otomatis saat cell seleksi
Range("A1") = "Belajar VBA" : Menulis Belajar VBA di cell A1
Font.FontStyle = "Italic" : Jenis Text
Font.Size = 14 : Ukuran Text
Sheets(“sheet1”).Range("A1").Font.FontStyle = "Italic"
Sheets(“sheet1”).Range("A1:A5").Font.Size = 14
Font.FontStyle = "Italic" : Jenis tulisan italic
Font.Size = 14 : ukuran tulisan 14
Borders.LineStyle : Border Cell
Range("a5:e5").Borders.LineStyle = xlContinuous
Borders.LineStyle = xlContinuous : border jenis diborder setiap satu cell
Font. ColorIndex = 3 : Warna Text
Interior.ColorIndex = 4 : Warna Cell
Sheets(“sheet1”).Range("A2").Font. ColorIndex = 3
Sheets(“sheet1”).Range("A2").Interior.ColorIndex = 4
Pengaturan Penulisan
Range("A1").NumberFormat = "General"
NumberFormat : Format Angka
Range("A1").NumberFormat = "0000000000"
Range("A1").NumberFormat = "dd/mm/yyyy"
Range("A1").NumberFormat = "[$-421]dd mmmm yyyy"
Currency Mata Uang
Range("A1").NumberFormat = "$#,##0.00"
Accounting
Range("A1").NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
Date atau Tanggal
Range("A1").NumberFormat = "yyyy-mm-dd;@"
Time atau menit
Range("A1").NumberFormat = "h:mm:ss AM/PM;@"
Percentase %
Range("A1").NumberFormat = "0.00%"
Fraction
Range("A1").NumberFormat = "# ?/?"
Scientific
Range("A1").NumberFormat = "0.00E+00"
Text atau Hurup
Range("A1").NumberFormat = "@"
Special
Range("A1").NumberFormat = "00000"
Custom
Range("A1").NumberFormat ="$#,##0.00_);[Red]($#,##0.00)"
Contoh Penulisan
Sub pengatuaranCell ()
Sheets("Sheet1"). Range("A1").NumberFormat = "00000"
End Sub
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
semoga tutorial ini dapat membantu rekan-rekan yang sedang belajar macro/vba excel.
Posting Komentar untuk "MAHIR MACRO DAN VBA EXCEL - MENGENAL ISTILAH DASAR DALAM VBA (Bagian I)"