Diskusi tentang Excel

Kumpulan Kode VBA Excel Dasar Yang Wajib Dipelajari

VBA Excel Dasar
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.



Selecting

'==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:
Range(Selection, Selection.End(xlDown)).Select
'==Kode VBA Pilih dari sel saat ini untuk kolom terakhir dari daftar:
Range(Selection, Selection.End(xlToRight)).Select
'==Kode VBA Pilih sel terakhir dari worksheet:
Selection.SpecialCells(xlLastCell).Select

Pasting

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

Columns and Rows

'==Kode VBA Menyembuntikan Kolom:
Selection.EntireColumn.Hidden = True
'==Kode VBA Menyisipkan Kolom:
Columns("N:N").Insert
'==Kode VBA Menghapus Kolom:
Columns("B:E").EntireColumn.Delete
'==Kode VBA Menyisipkan baris baru di cell saat ini:
Selection.EntireRow.Insert
'==Kode VBA menghapus baris baru di cell saat ini:
Selection.EntireRow.Delete
'==Kode VBA Mengatur lebar kolom:
Selection.EntireColumn.ColumnWidth = 10
'==Kode VBA Mengatur tinggi baris
Selection.RowHeight = 26.25
'==Kode VBA Mengatur tinggi baris dengan ukuran isi:
Selection.Rows.AutoFit

Cell Formatting

'==Kode VBA Wrap Teks
Selection.WrapText = False
'==Kode VBA Mengahpus warna
Selection.Interior.ColorIndex = xlNone
'==Kode VBA mengatur ukuran huruf
Selection.Font.Size = 8
'==Kode VBA mengatur format tanggal dan waktu
Selection.NumberFormat = "mm-dd-yyyy hh:mm AM/PM"
'==Kode VBA mengatur angka desimal/pecahan
Selection.NumberFormat = "#,##0"
'==Kode VBA perataan tengah
Selection.HorizontalAlignment = xlLeft
'==Kode VBA rata bawah
Selection.VerticalAlignment = xlBottom
'==Indented text:
Selection.IndentLevel = 3
'==Kode VBA Hapus isi tapi tidak format:
Selection.ClearContents
'==Kode VBA Hapus isi dan format:
Selection.Clear


Display

'==Kode VBA Menyembunyikan aktivitas sementara makro berjalan:
Application.ScreenUpdating = False
'==Kode VBA Matikan lansiran otomatis:
Application.DisplayAlerts = False
'==Kode VBA untuk Freeze  panes:
ActiveWindow.FreezePanes = True
'==Kode VBA Tampilkan berjalan makro berapa lama:
Dim strTime1 as String, strTime2 as String
strTime1 = Format(Now(), "mm-dd-yyyy hh:MM:ss")
[put other macro code here]
strTime2 = Format(Now(), "mm-dd-yyyy hh:MM:ss")
MsgBox "Elapsed Time = " & DateDiff("n", strTime1, strTime2)

Range Names

'==Kode VBA menamai range
ActiveWorkbook.Names.Add Name:="Groups", RefersTo:=Selection
'==Kode VBA menuju ke alamat range
Range("Groups").Select
'==kode VBA menghapus nama range workbook aktif
Dim n as Object
For Each n In ActiveWorkbook.Names
n.Delete
Next

Path/File Name

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

ActiveSheet.PageSetup.CenterFooter = ActiveWorkbook.FullName

Pivot Tables

'===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
pt.PivotCache.MissingItemsLimit = xlMissingItemsNone
Next pt
Next ws

Worksheets

'==Kode VBA Menambahkan tanggal untuk judul setiap worksheet:
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
sht.Select
Range("A1").Value = Range("A1").Value & " through " & strDate
Next sht

Semoga bermanfaat. dan untuk melihat contoh penggunaan kode VBA lebih lengkap silakan lihat contoh Pembuatan Input Data dengan VBA

UPDATE : Koleksi Kode VBA untuk Belajar Macro Dasar
12/12/2015

Coding untuk Copy Paste Range

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

Kode Menampilkan Posisi Cell yang Aktif

Sub AlamatCell( )
baris = ActiveCell.Row
kolom = ActiveCell.Column
Msgbox baris & “,” & kolom
End Sub

Kode VBA untuk format tebal huruf dan pewarnaan

Sub MerubahFont( )
Selection.Font.Bold = True ' untuk menebalkan huruf
Selection.Font.ColorIndex = 3 ' untuk mewarna merah
End Sub

Coding VBA merubah Properties Listbox (Jumlah kolom, Rowsource, Jumlah kolom dan ukuran kolom.

Private Sub UserForm_Initialize()
    With UserForm1.ListBox1
        .RowSource = "ListData"
        .ColumnCount = 5
        .ColumnWidths = "37,95,60,60,50"
    End With
End Sub

Coding Menuju Sheet tertentu

Sheets(1).Select

atau bisa juga gunakan
Sheets1.Select

Contoh Lain : Sheets("Sheet1").Select

Coding VBA menyembunyikan Sheet1

Sheet1.Visible = xlSheetVeryHidden

Coding VBA menampilkan Input Box


InputBox(“Silakan Masukan Nama Anda”)

Contoh Coding Menyisipkan atau menambah baris diatas range tertentu

Range(“A1”).Select ' Pilih range
Selection.EntireRow.Insert ' sisipkan baris diatas range A1

Coding VBA menyimpan nama file


ActiveWorkbook.SaveAs Filename:=”D:\LatihanVBA.xls”

Contoh Coding Format Tanggal pada Textbox

Private Sub TextBox1_Change()
TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")
End Sub

 Coding Copy Listbox1 ke Listbox 2

    Dim i As Long
    Dim j As Long

    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
        End If
    Next i

Coding VBA menampilkan Listbox ke Textbox

Contohnya kita mempunya data 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
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
Oke, segitu ajah dulu koleksi coding VBA lengkap dan akan terus dilengkapi contoh-contoh coding dasar VBA. Tunggu ajah ya update nya...

Related

Macro Excel VBA 7042082686699994129

Post a Comment

  1. This comment has been removed by the author.

    ReplyDelete
  2. Sangat membantu sekali terimaksih semoga ilmunya bermanfaat selalu dan semoga semakin bertambah maju ilmunya. tetap menyebarkan ilmunya gan

    ReplyDelete
    Replies
    1. Sama-sama, selamat belajar VBA ya, semoga bermanfaat ajah

      Delete
  3. Mau Tanya nih mas
    Jika di dalam 1 sheet diletakkan beberapa textbox active x
    Apabila text box tsb selesai diisi
    Bagaimana caranya agar otomatis pindah ke text box selanjutnya?

    Terimakasih

    ReplyDelete
  4. Trims, untuk panduan dan contohnya. APa buat buku? Goodluck. Terus berkarya.

    ReplyDelete

Tulisan ini Bermanfaat..? Silakan berkomentar sesuai topik artikelnya, tidak dianjurkan menggunakan kata-kata yang dapat menimbulkan hal negatif. Mohon maaf apabila tidak memiliki etika akan Admin HAPUS tanpa pemberitahuan kembali. Terimakasih... salam Exceler

emo-but-icon

item