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...

30 Responses to "Kumpulan Kode VBA Excel Dasar Yang Wajib Dipelajari"

  1. Komentar ini telah dihapus oleh pengarang.

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

    BalasHapus
    Balasan
    1. Sama-sama, selamat belajar VBA ya, semoga bermanfaat ajah

      Hapus
  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

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

    BalasHapus
    Balasan
    1. Sama-sama, maaf baru bisa balas komentarnya. Saya tidak buat buku tapi rencana ke depan Insya Allah akan kerjasama dengan Percetakan. Makasih udah berkunjung

      Hapus
    2. Bukunya sudah diterbitkan belum Mas?
      Tolong kasih kabar ke telegram: @gunanto75 kalau sdh ya..

      Hapus
  5. mau tanya mas, saya masih nubi masalah vba, saya sedang belajar sambil praktik untuk membuat sebuah aplikasi berbasis database menggunakan userform excel, kalo pada textbox kan ada fasilitas wrap text, kalo pada combobox kira kira untuk menerapkan wrap text nya gimana ya? terimakasih sebelumnya atas bantuannya

    BalasHapus
  6. diupdate mas admin, sangat bermanfaat sekali artikel di blog ini. mantappp

    BalasHapus
    Balasan
    1. Ya, mungkin link saya tambahkan pada artikel berikutnya. makasih telah berkunjung dan selamat belajar VBA

      Hapus
  7. Gan mohon bantuannya.. bagaimana caranya untuk menemukan baris kosong pada database ya.. mksh..

    BalasHapus
  8. mas tolong dong kode menyisipkan comment ke cell yang dituju

    BalasHapus
  9. Bantu dong pak, untuk menulis sumif(a1:a100,d1,c1:c100) dengan vba code nya gimana ya, nuhun gan

    BalasHapus
  10. mas, kalau record tertentu seperti cell “status” yang ada pada kolom ke 9, seperti : proses, kirim, dan terima berbeda-beda warna bagaimana koding vba excelnya ya..??

    terimakasih sebelumnya.

    BalasHapus
  11. Terima kasih udah sharing ini yang di cari

    BalasHapus
  12. Mohon Bantuannya kang,

    kalo mencari data dala 1 baris 4 kolom (yang akan di ambil hanya salah satU)
    kira-kira bagaimana codingnya jika menggunakan VBA

    BalasHapus
  13. Sangat membantu sekali semoga tetap bertambah ilmunya

    BalasHapus
  14. informasi yang sangat membantu
    terimakasih banyak
    saya juga ingin menanyakan bagaimana cara menggabungkan 2 perintah dalam 1 button
    misal jika saya klik button 1, maka akan menampilakan sheet1 dan menyembunyikan sheet 2 dan sheet 3
    mohon arahannya
    terimakasih sebelumnya

    BalasHapus
  15. mantap
    sangat bermanfaat.
    semoga sehat selalu dan terus bertambah ilmu.

    BalasHapus
  16. Nah ini wajib di bookmark siapa tahu di lain waktu kelupaan.

    BalasHapus
  17. Permisi master,, mohon pencerahannya 🙏🙏
    Gimana caranya agar saat input data,, datanya menimpa data yg ada dan otomatis menjumlah (data sebelumnya dgn data baru).
    Tujuannya biar simpel,, datanya tdk memanjang,,
    Thankz before 🙏🙏
    Gini misal saya mau menypan data di sheet1 range B2:G20,, datanya diinput dari sheet2 range B2:G20,, data yg diinput itu masuk ke sheet1 range B2:G20,, dan stiap data baru menimpa data sebelumnya dgn otomatis menjumlah,,
    Misal di seluruh cell sheet1 range b2:g20 telah terisi dgn data angka 1,, nah ketika diinputkan data dari sheet2 Range b2:g20 (dengan isi data semua cell nya 2),, maka pas diinputkan, data yg ada di semua cell Sheet1 range b2:g20 berubah jadi 3.

    BalasHapus
  18. sangat bagus, pemula minta ijin menyimak
    trimakasih

    BalasHapus
  19. Caranya supaya tidak bisa klik tombol input ketika ada beberapa texbox yg masih kosong(belum diisi) bagaimana kodenya?

    BalasHapus
  20. Mas, gimana caranya kok baru 2x entry data pd vba excel, system hank n katanya kekrangan memory, mohon bantuannya, trims

    BalasHapus

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