Contoh Kode VBA Pada Excel [PDF]

Citation preview

TextBox Hanya Dapat Diisi Dengan Angka Private Sub TextBox1_Change() On Error GoTo A TextBox1 = Format(TextBox1 * 1, "#,##0") Exit Sub A: TextBox1 = "" End Sub Sumber Informasi : http://www.rumahexcel.com/2012/12/textbox-hanya-dapat-diisi-denganangka.html#ixzz3IxxtQ4y9Beberapa



Contoh Kode VBA pada Excel



Auto Run Ada beberapa cara untuk membuat macros yang kita buat berjalan secara otomatis ketika pertama kali membuka workbook. Yang pertama adalah Auto Open Method, yang diletakkan di modules, kedua adalah Workbook Open Method, yang diletakkan di pada obyek Workbook (lihat penjelasan pada langkah 3). Dua Contoh kode berikut akan menampilkan pesan “hi” ketika Workbook pertama kali dibuka. Sub Auto_Open( ) Msgbox “hi” End Sub Private Sub Workbook_Open( ) Msgbox “hi” End Sub



Menghitung Rows, Columns dan Sheet Kode berikut digunakan untuk menghitung berapa jumlah rows (baris) atau columns(kolom) yang telah kita sorot dengan kursor. Sub Hitung( ) hitung_baris = Selection.Rows.Count hitung_kolom = Selection.Columns.Count MsgBox hitung_baris & " " & hitung_kolom End Sub Sub hitung_sheet( ) hitung_sheet = Application.Sheets.Count Msgbox hitung_sheet End Sub



Meng-kopi Range Contoh berikut akan meng-kopi range A1 sampai A3 ke D1 sampai D3 Sub Kopi_Range( ) Range (“A1:A3”).Copy Destination:=Range(“D1:D3”) End Sub



Waktu Sekarang Contoh berikut akan menampilkan waktu pada saat ini Sub sekarang( ) Range (“A1”)= Now End Sub



Mengetahui Posisi Sel yang Sedang Aktif Sub posisi( ) baris = ActiveCell.Row kolom = ActiveCell.Column Msgbox baris & “,” & kolom End Sub



Menghapus Baris yang Kosong Sub hapus_baris_kosong( ) Rng = Selection.Rows.Count ActiveCell.Offset(0, 0).Select For i = 1 To Rng If ActiveCell.Value = "" Then Selection.EntireRow.Delete Else ActiveCell.Offset(1, 0).Select End If Next I End Sub Menebalkan dan Mewarnai Huruf (Font) Contoh berikut akan menebalkan dan memberi warna merah pada huruf dimana sel sedang aktif. Sub tebal_merah( ) Selection.Font.Bold = True Selection.Font.ColorIndex = 3 End Sub



Mengirimkan Workbook melalui Email Sub email( ) ActiveWorkbook.SendMail recipients:= ”[email protected]” End Sub



Fungsi Excel Menggunakan fungsi bawaan Excel dalam VBE hampir sama dengan menggunakannya dalam Excel. Misal fungsi round untuk membulatkan sebuah angka, dalam spreadsheet akan terlihat seperti ini = round(1.2367, 2) Dalam VBE Anda cukup menggunakan Application kemudian disusul fungsi yang akan dipakai. Sub bulat( ) ActiveCell = Application.Round(ActiveCell, 2)



End Sub



Menghapus Nama-Nama Range Contoh berikut akan menghapus semua nama-nama range di dalam workbook Anda Sub hapus_nama_range( ) Dim NameX As Name For Each NameX In Names ActiveWorkbook.Names(NameX.Name).Delete Next NameX End Sub



Layar Berkedip PROGRAM dalam macros yang sedang berjalan dapat membuat layar berkedip-kedip, untuk menghentikannya Anda dapat menyisipkan kode berikut. Application.ScreenUpdating = False



Menuju Range Tertentu Untuk menuju suatu range tertentu, kode-kode berikut dapat digunakan. Application.Goto Reference:=”A1” Atau, Range(“A1”).Select



Menuju Sheet tertentu Sedangkan untuk menuju worksheet tertentu, gunakan kode-kode berikut. Sheets(1).Select Atau Sheet1.Select Untuk menuju Sheet terdepan (nomor 1) Sheet(“coba”).Select Untuk menuju Sheet bernama “coba”



Menyembunyikan WorkSheet Kode berikut berfungsi untuk menyembunyikan Sheet1 Sheet1.Visible = xlSheetVeryHidden Pengguna tidak dapat membuka sheet yang telah disembunyikan dengan cara ini, hanya dengan kode VBE sheet dapat dibuka kembali.



Input Box Kode berikut berguna untuk memunculkan Input Box InputBox(“Masukkan Nama”)



Menyisipkan Baris dan Kolom Kode berikut akan menyisipkan baris diatas range A1, Range(“A1”).Select Selection.EntireRow.Insert Sedang yang berikut akan menyisipkan satu kolom disamping kiri range A1, Range(“A1”).Select



Selection.EntireColumn.Insert



Mengatur Ulang Ukuran Range Selection.Resize(7,7).Select



Memberi Nama Range Selection.Name = “nama”



Menyimpan File Kode berikut berguna untuk menyimpan file tanpa memberi nama, ActiveWorkbook.Save Sedangkan bila Anda hendak memberi nama (SaveAs), gunakan kode berikut, ActiveWorkbook.SaveAs Filename:=”C:\coba.xls”



Penjadwalan Kadang-kadang kita hendak menjadwalkan sebuah tugas kepada Excel, contohnya menyimpan file pada jam-jam tertentu. VBE dapat melakukannya dengan menggunakan fungsiApplication.OnTime. Sebagai contoh, kode dibawah ini akan menjalankan prosedur Simpan( )pada jam 12:00 dan 16:00, prosedur Simpan( ) sendiri berisi perintah untuk menyimpan file, Sub tugas() Application.OnTime TimeValue("12:00:00"), "Simpan" Application.OnTime TimeValue("16:00:00"), "Simpan" End Sub Sub Simpan() ActiveWorkbook.Save End Sub Bila Anda hendak merubah jamnya, rubah TimeValue menjadiTimeValue(“10:03:05”).



missal



jam



10:03:05,



maka



Sedangkan bila Anda hendak melakukannya satu jam setelah prosedur tugas( ) dijalankan maka rubahlah kodenya seperti demikian, Sub tugas() Application.OnTime Now + TimeValue("01:00:00"), "Simpan" End Sub Perhatikan penambahan kata “Now”. Kode-kode di atas bekerja bila disimpan dalam module, bula Anda ingin menyimpannya di dalam Sheet1 (atau worksheet manapun), maka rubahlah “Simpan” menjadi Sheet1.Simpan