Latihan 15 Kode Makro VBA Excel Untuk Pemula disertai File Contoh

Langsung saja Sobat ESI, Check it out:

Cara Mengakses Range Excel dan Menampilkan Nilainya dengan Message Box

Contoh 1

Pada saat mengotomatisasi sebagian besar Tugas Excel, kita perlu membaca data dari berbagai spread sheet Excel dan melakukan beberapa perhitungan. Contoh ini akan menunjukkan cara untuk membaca data dari berbagai worksheet.

Sub Contoh1()

    'menampilkan nilai pada sel A5 pada message Box

    MsgBox Range("A5")

    'Anda juga dapat menggunakan Cell Object untuk mengacu pada A5 seperti berikut:

     MsgBox Cells(5, 1) '5 adalah nomor baris  dan 1 adalah nomor kolom

End Sub

Cell object juga dapat digunakan untuk mengeser dari acuan pertama kita :

geser 1 baris dibawah A5 (sel A6) maka kode makronya: MsgBox Range(“A5”).cells(2,1)

geser 1 kolom dikanan A5 (sel B5) maka kode makronya: MsgBox Range(“A5”).cells(1,2)

untuk menampilkan range pada sheet lain, anda perlu menambahkan parent object :

menampilkan sel A5 pada sheet2 kode makronya: MsgBox Sheets(“Sheet2”).Range(“A5”).

Cara Masukkan data ke dalam Cell

Contoh 2

Setelah melakukan beberapa perhitungan menggunakan VBA, kita biasanya menulis/mengentri hasil ke dalam range worksheet. Contoh ini akan menunjukkan cara untuk menulis data dari VBA di berbagai Range atau sel.

Sub Contoh2()

    'Memasukan data text pada range B5

    Range("B5") = "Halo Gaan!"

    'Memasukan data numerik pada range B6 (tidak perlu tanda petik dua)

    Range("B6") = 54624

    End Sub

Cell object dan memasukan data pada sheet lain juga dapat digunakan seperti pada contoh 1

Cara Mengubah Warna Background (Latar Belakang) dari Range Tertentu

Contoh berikut akan membantu Anda dalam format sel atau range dengan mengubah warna latar belakang. Kita dapat menggunakan properti ColorIndex dari Range Interior Object untuk mengubah warna background range atau sel.

Sub Contoh3()

    'Merubah warna latar belakang dengan properti Interior.ColorIndex 

    Range("B1:B4").Interior.ColorIndex = 5 ' 5=Biru

End Sub

Untuk indeks lengkap 56 warna dapat dilihat pada file contoh.

Cara Mengubah Warna Dan Ukuran Font pada Range Tertentu

Anda mungkin kadang-kadang perlu mengubah warna font dari range atau sel. Metode berikut ini akan menggunakan properti font ColorIndex untuk mengubah warna font.

Sub Contoh4()

    ' Merubah warna Font dengan properti Font.ColorIndex

    Range("B5:B6").Font.ColorIndex = 3 ' 3=Red

End Sub

Ketentuan warna nomor indek sama dengan pada contoh 3

Cara Mengubah Teks Menjadi Upper Case, Lower Case dan Proper

Contoh ini akan membantu Anda untuk mengubah teks menjadi Upper Case (Huruf Kapital Semua), Lower Case (Huruf Kecil Semua) dan Proper (Huruf Pertama Kapital). Kita dapat menggunakan fungsi UCase, LCase dan StrConv(string conversion) .

Sub Contoh5()

    'Menggunakan fungsi Ucase

    Range("B7").Value = UCase(Range("B7").Value)

     'Menggunakan fungsi Lcase

    Range("B8").Value = LCase(Range("B8").Value)

     'Menggunakan fungsi string conversion tipe propercase

   Range("B9").Value = StrConv(Range("B9").Value,VbProperCase)

End Sub

Untuk Upper case dan Lower Case juga dapat menggunakan fungsi StrConv

Upper case: Range("B7").Value = StrConv(Range("B7").Value,VbUpperCase)

Lower case: Range("B8").Value = StrConv(Range("B8").Value,VbLowerCase)

Cara menyalin (Copy-Paste) Data Antar Range

Contoh ini akan membantu Anda untuk menyalin data dari satu range tertentu menunju range yang lain dalam worksheet menggunakan VBA.

Sub Contoh6()

    ‘Gunakan metode Copy 

    Range("B7:B19").Copy Destination:=Range("F1")

End Sub

Cara memilih Dan Mengaktifkan Worksheet

Contoh 7_1

Contoh ini akan membantu Anda untuk memilih worksheet tertentu.

Sub Contoh7_1()

    'Menggunakan Select Method untuk memilih sheet

    Sheet2.Select

    End Sub

Contoh 7_2

Untuk mengaktifkan worksheet tertentu kita dapat menggunakan metode activate.

Sub Contoh7_2()

    ‘Menggunakan Activate Method untuk mengaktifkan sheet

    Sheet1.Activate

End Sub

Cara Mendapatkan Nama Sheet Dan Workbook yang Aktif

Contoh 8

Sub Contoh8()

    'Menggunakan properti ActiveSheet.Name untuk mendapatkan nama sheet yang aktif

    MsgBox ActiveSheet.Name

    ' Menggunakan properti ActiveWorkbook.Name untuk mendapatkan nama Workbook yang aktif

    MsgBox ActiveWorkbook.Name

End Sub

  Cara Menambah, Me-Rename dan MenghapusWorksheet

Kita dapat menggunakan properti ActiveSheet.Name untuk mengubah nama Sheet. Kemudian menggunakan metode Sheet.Add untuk menambahkan Sheet baru serta Gunakan metode Delete untuk menghapus sheet.

Contoh 9_1

Sub Contoh9_1()

    'Menggunakan metode Add untuk menambah sheet baru

    Sheets.Add

    'menggunakan properti ActiveSheet.Name untuk merubah nama sheet

    ActiveSheet.Name = "Data"

End Sub

Contoh 9_2

Sub Contoh9_2()

'Menggunakan properti Application.DisplayAlerts untuk mematikan dialog peringatan

 Application.DisplayAlerts = False    

   'Menggunakan metode Delete untuk menghapus sheet

    Sheets("Data").Delete

End Sub

  

Cara Membuat Workbook Baru, Menambah data, Menutup dan Menyimpannya

Contoh 10

'Cara Menambah New Workbook,Memasukan Data serta Save dan tutup Workbook

Sub Contoh10()

    'menggunakan metode Add untuk membuat workbook baru

    Workbooks.Add

    'Anda bisa mengacu pada parent dan child object untuk mengakses range pada workbook baru

    ActiveWorkbook.Sheets("Sheet1").Range("A1") = "Contoh Data"

    ActiveWorkbook.Sheets("Sheet1").Range("A2") = 12345

   'Ini akan menyimpan folder default(sama dengan file ini), untuk folder lain "D:\xxx\xxx.xlsx"

    ActiveWorkbook.SaveAs "Contoh.xlsx"

    ActiveWorkbook.Close

End Sub

Dapat juga menggunakan tanda kurung:

ActiveWorkbook.SaveAs (“Contoh.xlsx”)

Untuk menyimpan dengan nama file disertai tanggal hari ini gunakan:

ActiveWorkbook.SaveAs Format(Now,”dd-mm-yyyy”)&”Contoh.xlsx”

Cara Menyembunyikan Dan Memunculkan Kembali Baris Dan Kolom

Kita dapat menggunakan properti Hidden dari baris atau kolom dari worksheet untuk menyembunyikan atau memunculkan baris atau kolom.

Contoh 11_1

Sub Contoh11_1()

    'Menyembunyikan baris

    Rows("39:40").Hidden = True 

End Sub

Contoh 11_2

Sub Contoh11_2()

    'Memunculkan Baris

    Rows("39:40").Hidden = False 

    End Sub

Contoh 11_3

Sub Contoh11_3()

  'Menyembunyikan Kolom

    Columns("F:G").Hidden = True 

    End Sub

Contoh 11_4

Sub Contoh11_4()

        ‘Memunculkan kolom

    Columns("F:G").Hidden = False 

End Sub

Untuk contoh 1 sampai 11_4 download file contohnya disini.tekan ALT+F11 untuk menampilkan kode makro

Cara Insert Dan Delete Baris Dan Kolom

Contoh ini akan menunjukkan cara untuk insert atau delete baris dan kolom menggunakan VBA.

Contoh 12_1

Sub Contoh12_1()

    'Menggunakan properti insert untuk baris

    Rows(6).Insert 

End Sub

Contoh 12_2

Sub Contoh12_2()

    'Menggunakan properti delete untuk baris

    Rows(6).Delete 

    End Sub

Contoh 12_3

Sub Contoh12_3()

    'Menggunakan properti insert untuk kolom

    Columns("J").Insert 

End Sub

Contoh 12_4

Sub Contoh12_4()

    'Menggunakan properti delete untuk kolom

    Columns("J").Delete 

End Sub

Cara Mengatur Tinggi Baris dan Lebar Kolom

Kita bisa mengatur tinggi baris atau lebar kolom menggunakan VBA. Contoh berikut akan menunjukkan cara untuk melakukannya dengan menggunakan VBA.

Sub Contoh13()

     Rows(18).RowHeight = 33

    Columns(13).ColumnWidth = 35

End Sub

Cara Menggabungkan sel dan Memisahkan Kembali

Contoh 14_1

Sub Contoh14_1()

    'Menggunakan properti merge untuk range

    Range("B20:B25").Merge

End Sub

Contoh 14_2

Sub Contoh14_2()

    ' Menggunakan properti unmerge untuk range

    Range("B20:B25").UnMerge

End Sub

Cara Bandingkan Dua Nilai - Sebuah Contoh Sederhana Pada Jika Kondisi

Sebuah Contoh sederhana menggunakan If Condition

Contoh 15

Sub Contoh15()

'Membandingkan nilai pada sel B27 and C27 menggunakan if

If Range("B27").Value = Range("C27") Then

    MsgBox "Sama"

Else

    MsgBox "Tidak Sama"

End If

Cara Menampilkan angka 1- 1000

Statement lain yang berguna di VBA adalah menggunakan teknik loop pada baris, kolom atau sejumlah iterasi.

Contoh 16

Sub Contoh16()

'Menampilkan angka 1-1000 pada kolom I

For i = 1 To 1000

    Cells(i, 9) = i 

Next i

End Sub

Untuk contoh 1 sampai 16 download file contohnya di sini.tekan ALT+F11 untuk menampilkan kode makro