Kumpulan Kode VBA

Kumpulan Kumpulan Kode VBA Excel Dasar Yang Yang Wajib Wajib Dipelajari Dipelajari | 300 Rumu...

http://www http://www.exc .excel-id. el-id.com/2 com/2015/09 015/09/kump /kumpulan-k ulan-kode-vb ode-vba-ex a-excel-d cel-dasarasar-yan.. yan....

http://www.excel-id.com/201 http://www.excel-id.com/2015/09/kumpu 5/09/kumpulan-kode-vba lan-kode-vba-excel-dasar-yang -excel-dasar-yang.html .html

VBA merupakan Visual Basic of Application dimana VBA ini sangat membantu sekali dalam mengolah data Excel. Jika Anda mahir Excel maka akan sangat hebat apabila dikolaborasikan dengan kode-kode VBA. Jika Anda baru belajar tentang kode-kode VBA berikut contoh dasar kode VBA excel bagi pemula.

'==Kode VBA Memilih 2 baris ke bawah dan 2 kolom ke kanan:

 ActiveCell.Offset(3, 2).Select 

'==Kode VBA Pilih dari sel aktif ke baris terakhir dari daftar: '==Kode VBA Pilih dari sel saat ini untuk kolom terakhir dari Range(Selection, Selection.End(xlDown)).Select 

daftar: '==Kode Range(Selection, Sel ection.End(xlToRight)).Select  ection.End(xlToRight)).Select 

VBA Pilih sel terakhir dari worksheet:

Selection.SpecialCells(xlLastCell).Select 

'==Kode VBA Nilai rumus Paste, bukan rumus: '==Kode VBA Paste ke dalam sel dan memindahkan memindahkan isi aslinya ke sel berikutnya: Range("A3").Copy  Range("D26").PasteSpecial Paste:=xlValues

Selection.Insert Shi ft:=xlToRight  ft:=xlToRight 

'==Kode VBA Menyembuntikan Kolom: '==Kode VBA Menyisipkan Kolom: '==Kode VBA Menghapus Kolom:

Selection.EntireColumn.Hidden = True

'==Kode VBA Menyisipkan baris baru

Columns("N:N").Insert  Columns("B:E").EntireColumn.Delete

di cell saat ini: '==Kode Selection.EntireRow.Insert 

VBA

menghapus baris baru di cell saat ini: '==Kode VBA Mengatur lebar kolom: '==Kode VBA Mengatur tinggi baris

Selection.EntireRow.Delete

'==Kode VBA Mengatur tinggi baris

Selection.EntireColumn.ColumnWidth = 10  Selection.RowHeight = 26.25 

dengan ukuran isi:

Selection.Rows.AutoFit 

'==Kode VBA Wrap Teks '==Kode VBA Mengahpus warna '==Kode VBA mengatur ukuran huruf 

Selection.WrapText = False

'==Kode VBA mengatur format tanggal dan

Selection.Interior.ColorIndex = xlNone Selection.Font.Size = 8 

waktu '==Kode VBA mengatur angka desimal/pecahan

1 f3

6/25/17 3 01 PM

Kumpulan Kode VBA Excel Dasar Yang Wajib Dipelajari | 300 Rumu...

http://www.excel-id.com/2015/09/kumpulan-kode-vba-excel-dasar-yan...

Selection.Font.Size = 8 

'==Kode VBA mengatur angka desimal/pecahan '==Kode VBA perataan tengah Selection.NumberFormat = "mm-dd-yyyy hh:mm AM/PM" 

'==Kode

Selection.NumberFormat = "#,##0"  Selection.HorizontalAlignment = xlLeft 

VBA rata bawah

'==Indented text: '==Kode VBA Hapus isi tapi tidak format:

Selection.VerticalAlignment = xlBottom

'==Kode VBA Hapus isi dan format:

Selection.IndentLevel = 3 Selection.ClearContents

Selection.Clear 

'==Kode VBA Menyembunyikan aktivitas sementara makro berjalan: '==Kode VBA Matikan lansiran otomatis: '==Kode VBA untuk Freeze panes:

 Application.ScreenUpdating = False

'==Kode VBA Tampilkan berjalan

 Application.DisplayAlerts = False  ActiveWindow.FreezePanes = True

Dim strTime1 as String, strTime2 as String 

makro berapa lama:

'==Kode VBA menamai range

strTime1 = Format(Now(), "mm-dd-yyyy hh:MM:ss")

'==Kode VBA

[put other macro code here] 

 ActiveWorkbook.Names.Add Name:="Groups", RefersTo:=Selection

menuju ke alamat range

strTime2 = Format(Now(), "mm-dd-yyyy hh:MM:ss")

'==kode VBA

MsgBox "Elapsed Time = " & DateDiff("n", strTime1, strTime2)

menghapus nama range workbook aktif  Range("Groups").Select  Dim n as Object  For Each n In ActiveWorkbook.Names

'==Kode VBA

n.Delete

menyisimpan

Next 

nama lokasi file '==kode VBA untuk Insert path/file kedalam footer   ActiveCell.Value = ActiveWorkbook.FullName

 ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.FullName

'===Kode VBA Menghapus item yang tidak terpakai di tabel pivot ketika data telah berubah:

Dim pt As PivotTable, ws As Worksheet  For Each ws In ActiveWorkbook.Worksheets For Each pt In ws.PivotTables

'==Kode VBA Menambahkan tanggal untuk judul setiap worksheet:

 pt.PivotCache.MissingItemsLimit = xlMissingItemsNone

Semoga bermanfaat. dan

Next pt 

Dim sht As Worksheet 

Next ws

For Each sht In ActiveWorkbook.Worksheets sht.Select 

untuk melihat contoh penggunaan kode VBA lebih lengkap silakan lihat

Range("A1").Value = Range("A1").Value & " through " & strDate

contoh Pembuatan Input

Next sht 

Data dengan VBA UPDATE : Koleksi Kode

VBA untuk Belajar Macro Dasar  12/12/2015

Sub CopyRange( ) Range (“A1:B10”).Copy Destination:=Range(“D1:E10”) End Sub

Sub AlamatCell( ) baris = ActiveCell.Row 

2 f3

kolom = ActiveCell.Column

Sub MerubahFont( )

6/25/17 3 01 PM

Kumpulan Kode VBA Excel Dasar Yang Wajib Dipelajari | 300 Rumu...

http://www.excel-id.com/2015/09/kumpulan-kode-vba-excel-dasar-yan...

End Sub baris = ActiveCell.Row  kolom = ActiveCell.Column

Sub MerubahFont( )

Msgbox baris & “,” & kolom

Selection.Font.Bold = True ’ untuk menebalkan huruf 

End Sub

Selection.Font.ColorIndex = 3 ’ untuk mewarna merah End Sub

Private Sub UserForm_Initialize() With UserForm1.ListBox1 .RowSource = "ListData" 

atau bisa juga gunakan

Sheets(1).Select 

.ColumnCount = 5  Sheets1.Select  .ColumnWidths = "37,95,60,60,50" 

Contoh Lain : Sheets("Sheet1").Select 

End With End Sub

Sheet1.Visible = xlSheetVeryHidden

InputBox(“Silakan Masukan Nama Anda”)

Range(“A1”).Select ’ Pilih range Selection.EntireRow.Insert ’ sisipkan baris diatas range A1  ActiveWorkbook.SaveAs Filename:=”D:\LatihanVBA.xls” 

Private Sub TextBox1_Change() TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy") Dim i As Long 

End Sub

Dim j As Long 

Contohnya kita mempunya data ListBox2.ColumnCount = ListBox1.ColumnCount  For i = 0 To ListBox1.ListCount - 1 If ListBox1.Selected(i) Then With ListBox2   

.AddItem For j = 0 To .ColumnCount - 1 .List(.ListCount - 1, j) = ListBox1.List(i, j) Next j  End With

pada listbox dengan 5 kolom dan masing-masing data akan ditampilkan pada textbox maka kita harus mempunya textbox sebanyak 5 kolom juga dan berikut coding VBA nya Oke, segitu ajah dulu koleksi coding VBA lengkap dan akan terus dilengkapi contoh-contoh coding dasar VBA. Tunggu ajah ya update nya...

End If  Next i 

Private Sub ListBox1_AfterUpdate() Me.TextBox1.Value = Me.ListBox1.Column(0) Me.TextBox2.Value = Me.ListBox1.Column(1) Me.TextBox3.Value = Me.ListBox1.Column(2) Me.TextBox4.Value = Me.ListBox1.Column(3) Me.TextBox5.Value = Me.ListBox1.Column(4) End Sub

3 f3

6/25/17 3 01 PM