Contoh kode macro

Contoh singkat kode macro - Macro adalah sederetan fungsi dan perintah yang berbentuk kode untuk menjalankan program yang disimpan dalam menu Visual Basic (VB) . Microsoft Excel menyediakan fitur ini untuk merekam aktivitas yang dilakukan oleh penggunanya melalui menu tab developper -> sub menu macro -> record new macro

Sebelum membangun dan mengembangkan sebuah aplikasi ada baiknya anda mempelajari kode kode macro sederhana yang mugkin bisa memperingan beban pikiran anda atau mungkin malah menambah beban :), kode macro yang akan saya tulis dibawah ini merupakan kode macro yang sering dipakai serta paling sering digunakan seorang pengembang (Programer)

 Pennjelasan Microsoft Visual Basic VBA

Kode macro Auto Run

Ada beberapa cara untuk membuat macro yang kita bangun berjalan secara otomatis ketika pertama kali dibuka. Yang pertama adalah Auto Open Method, yang diletakkan di module, kedua adalah Workbook Open Method, yang diletakkan di pada obyek Workbook (lihat penjelasan pada langkah 3). Dua Contoh kode berikut akan menampilkan pesan halo dunia ini lah saya ketika Workbook pertama kali dibuka.
 Contoh kodde macro Auto Run pada Auto Open Method

Sub Auto_Open( )
Msgbox “halo dunia ini lah saya”
End Sub

 Contoh kodde macro Auto Run pada Workbook Open Method

Sub Workbook_Open( )
Msgbox “halo dunia ini lah saya”
End Sub

Kode macro menghitung jumlah Baris

Jumlah baris pada Microsoft Excel Versi 2010 ketas adalah 1.048.576 bagaimana cara mengetahui jumlah baris ? caranya mudah blok saja semua baris lalu jalankan kode macro untuk mengitung jumlah baris yang diblok tadi

hitung_baris = Selection.Rows.Count

Kode macro menghitung jumlah kolom

Jumlah kolom pada Microsoft Excel Versi 2010 ketas adalah 16.384 bagaimana cara mengetahui jumlah kolom ? caranya mudah blok saja semua kolom lalu jalankan kode macro untuk mengitung jumlah kolom yang diblok tadi

hitung_baris = Selection.Columns.Count

Kode macro menghitung jumlah sheet

Worksheet merupakan lembar kerja dalam microsoft excel yang berbentuk tab, dalam worksheet terdapat baris dan kolom, bagaimana cara megetahui worksheet yang aktif inilah kode macronya

hitung_sheet = Application.Sheets.Count

Kode macro menyalin nilai kolom dan baris

Kode macro menyalin nilai kolom dan baris - 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

Kode macro waktu sekarang atau tanggal sekarang

Contoh berikut akan menampilkan waktu atau tanggal pada saat ini yang sesuai dengan tanggal komputer

Sub sekarang( )
Range (“A1”)= Now
End Sub

Kode macro mengetahui posisi sel yang sedang aktif

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

Kode macro menghapus baris kosong

Kode macro yang satu ini sngat membantu, anda bisa dengan mudah menghapus kolom atau baris yang kosong dengan satu klik

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

Kode macro mengirim workbook via email

Mengirim email bisa langsung dari microsoft excel, manfaatkan kode macro berikut ini

Sub email( )
ActiveWorkbook.SendMail recipients:= ”excel@ahoo.c”
End Sub

Kode macro fungsi excel

Menggunakan fungsi bawaan Excel dalam VBE hampir sama dengan menggunakannya dalam Excel. Misal fungsi rounduntuk 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 range / define name

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

Kode macro membuat layar berkedip

Program dalam macros yang sedang berjalan dapat membuat layar berkedip-kedip, untuk menghentikannya Anda dapat menyisipkan kode berikut.

Application.ScreenUpdating = False

Kode macro VBMODULES

Maksud dari kode macro VBMoDULES adalah anda bisa membuak beberapa workbook dan aktif bersamaan, tidak ahanya itu saja anda juga masih bisa menggunakan worksheet ketika form dalam keadaan aktif

UserForm1.Show vbModeless

Kode macro membuat tombol cetak

Worksheets("Sheet1").PrintOut

Kode macro membuat tombol Preview

Kode macro ini berfungsi untuk merwview dahulu file lembar kerja yang akan dicetak, jadi anda bisa melakukan koreksi sebelum lembar kerja dicetak dengan printer

Worksheets("Sheet1").Preview

Jika anda membuat Preview menggunakan form, maka anda harus menyelipkan perintah menyembunyikan form disusul kode macro print Preview lalu terakhir menampilkan lagi form yang disembunyikan tadi

Me.Hide
Worksheets("Sheet1").Preview
Me.Show

Demikianlah kiranya contoh contoh kode macro yang sering digunakan untuk mengembangkan membuat dan membangun sebuah aplikasi terpadu, semoga bermanfaat bagi kita semua. Ingat share artikel ini ya atau komentarlah jika ada yang ingin ditanyakan, kalau ndak ada yang ingin ditanyakan ya bookmark saja www.excelpro.id ini yang merupakan tempat belajar microsoft excel VBA terbaik. Follow IG admin linknya ada dibawah sono...... Terimakasih selamat siang

Download - 423 Sampel Excel VBA dijmain mahir VBA

 Order Aplikasi Murah dengan design premium Info Disini